X-Git-Url: https://git.plutz.net/?p=confetti;a=blobdiff_plain;f=courses%2Findex.cgi;fp=courses%2Findex.cgi;h=446cc9fdaf9c5de4493017e601573a05cc6c31de;hp=0000000000000000000000000000000000000000;hb=057ad3bc6e2d4c7bcc5d93047b0426e7e608d25a;hpb=de8d4cf5570142a647bfe81f13fa87a73802e4e8

diff --git a/courses/index.cgi b/courses/index.cgi
new file mode 100755
index 0000000..446cc9f
--- /dev/null
+++ b/courses/index.cgi
@@ -0,0 +1,33 @@
+#!/bin/sh
+
+if [ "$_PATH" = "/courses/courses.css" ]; then
+  . $_EXEC/cgilite/file.sh
+  FILE $_EXEC/courses/courses.css
+  return 0
+fi
+
+. $_EXEC/pdiread.sh
+. $_EXEC/courses/l10n.sh
+. $_EXEC/courses/widgets.sh
+. $_EXEC/courses/list.sh
+
+unescape() { [ $# = 0 ] && sed -E 's;\\(.);\1;g' || printf %s "$*" |sed -E 's;\\(.);\1;g'; }
+upcase=' y;abcdefghijklmnopqrstuvwxyzäöüé;ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜÉ;; '
+
+order="$(GET o |grep -m1 -xE 'DOW|TOD')"
+edit="$(GET e |PATH)"
+
+[ "$order" ] || order=DOW
+edit="${edit##*/}"
+
+{ w_sort_courses
+  printf '
+  [form .newcourses action="/cards/new_course.sh" method="POST"
+    [button type="submit" %s]
+  ]' "$(l10n newcourse)"
+
+  [ "$edit" ] && edit_course "$edit"
+  printf '[div .courselist\n'
+    list_courses
+  printf ']'
+} | yield_page courses /courses/courses.css