introduced general pdi unescape function
[confetti] / courses / index.cgi
1 #!/bin/sh
2
3 if [ "$_PATH" = "/courses/courses.css" ]; then
4   . $_EXEC/cgilite/file.sh
5   FILE $_EXEC/courses/courses.css
6   return 0
7 fi
8
9 . $_EXEC/pdiread.sh
10 . $_EXEC/courses/l10n.sh
11 . $_EXEC/courses/widgets.sh
12 . $_EXEC/courses/list.sh
13
14 upcase=' y;abcdefghijklmnopqrstuvwxyzäöüé;ABCDEFGHIJKLMNOPQRSTUVWXYZÄÖÜÉ;; '
15
16 order="$(GET o |grep -m1 -xE 'DOW|TOD')"
17 edit="$(GET e |PATH)"
18
19 [ "$order" ] || order=DOW
20 edit="${edit##*/}"
21
22 { w_sort_courses
23   printf '
24   [form .newcourses action="/courses/new_course.sh" method="POST"
25     [button type="submit" %s]
26   ]' "$(l10n newcourse)"
27
28   [ "$edit" ] && edit_course "$edit"
29   printf '[div .courselist\n'
30     list_courses
31   printf ']'
32 } | yield_page courses /courses/courses.css