list_videos function including sorting

[rawnet] / page_channel.sh

diff --git a/page_channel.sh b/page_channel.sh
index f2d073843bc54c6dfbca78001ab53e0dcfd8949f..36d9dcd777f963299fa7584865243786fc372ac2 100755 (executable)
--- a/page_channel.sh
+++ b/page_channel.sh
@@ -71,7 +71,6 @@ if [ "$CHANNEL_ID" -a "$action" = edit ]; then
        ]
        EOF
 elif [ "$CHANNEL_ID" ]; then
-  vid_db="$_DATA/$CHANNEL_ID/videos.db"
   yield_page "$CHANNEL_NAME" "channel" <<-EOF
        [nav [a href="../" Channels] - [span $(HTML "${CHANNEL_NAME:-(Unnamed Channel)}")]]
        [h1 .name $(HTML "$CHANNEL_NAME")]
@@ -84,8 +83,7 @@ elif [ "$CHANNEL_ID" ]; then
               [hidden "video" "%s"]
               [submit "action" "newvideo" New Video]
             ]' "$(timeid)"
-         [ -f "$vid_db" -a -r "$vid_db" ] \
-         && while w_video; do :; done <"$vid_db"
+         list_videos |while w_video; do :; done
        )]
        EOF
 else