annotate src/your_courses.html.luan @ 32:d34d709a7a8e

region
author Franklin Schmidt <fschmidt@gmail.com>
date Sun, 03 Aug 2025 18:43:17 -0600
parents 87fe70201aa8
children cc20eebaa74a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
1 local Luan = require "luan:Luan.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2 local error = Luan.error
4
b1adec083e44 chat work
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
3 local ipairs = Luan.ipairs or error()
23
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
4 local pairs = Luan.pairs or error()
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 local Io = require "luan:Io.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 local Http = require "luan:http/Http.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 local Shared = require "site:/lib/Shared.luan"
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 local head = Shared.head or error()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 local header = Shared.header or error()
4
b1adec083e44 chat work
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
10 local User = require "site:/lib/User.luan"
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
11 local current_user = User.current_required or error()
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
12 local Course = require "site:/lib/Course.luan"
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
13 local course_search = Course.search or error()
23
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
14 local languages = require "site:/lib/languages.luan"
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
15 local Logging = require "luan:logging/Logging.luan"
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
16 local logger = Logging.logger "chats.html"
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
17
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 return function()
4
b1adec083e44 chat work
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
20 local user = current_user()
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
21 if user == nil then return end
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
22 local courses = course_search( "course_user_id:"..user.id, "course_updated desc" )
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
23 local select_language = #courses > 0 and courses[1].language or nil
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24 Io.stdout = Http.response.text_writer()
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25 %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 <!doctype html>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
27 <html lang="en">
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 <head>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29 <% head() %>
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
30 <style>
23
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
31 form {
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
32 margin-bottom: 20px;
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
33 }
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
34 td {
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
35 padding: 8px 8px;
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
36 }
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
37 </style>
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
38 </head>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
39 <body>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
40 <% header() %>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
41 <div content>
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
42 <h1>Your Courses</h1>
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
43 <form action="edit_course.html">
23
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
44 <select name=language>
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
45 <% for _, lang in pairs(languages) do
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
46 local code = lang.code
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
47 local selected = code==select_language and "selected" or ""
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
48 %>
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
49 <option value="<%=code%>" <%=selected%> ><%=lang.name%></option>
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
50 <% end %>
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
51 </select>
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
52 <input type=submit value="new course">
23
0c17c233c45a start courses
Franklin Schmidt <fschmidt@gmail.com>
parents: 21
diff changeset
53 </form>
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
54 <table>
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
55 <% for _, course in ipairs(courses) do %>
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
56 <tr>
24
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
57 <td><%= course.language_name() %></td>
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
58 <td><%= course.name_html() %></td>
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
59 <td><a href="new_chat.red?course=<%=course.id%>">new chat</a></td>
87fe70201aa8 courses work
Franklin Schmidt <fschmidt@gmail.com>
parents: 23
diff changeset
60 <td><a href="edit_course.html?course=<%=course.id%>">edit</a></td>
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
61 </tr>
4
b1adec083e44 chat work
Franklin Schmidt <fschmidt@gmail.com>
parents: 2
diff changeset
62 <% end %>
21
Franklin Schmidt <fschmidt@gmail.com>
parents: 18
diff changeset
63 </table>
0
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
64 </div>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
65 </body>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
66 </html>
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
67 <%
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
68 end