annotate admajax.php @ 421:606a8ab61d0f

Moar work.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 05 Dec 2013 19:33:05 +0200
parents 206a18bc603a
children b7c395958728
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 <?
56
243e9a51920b Add some comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
2 //
136
aeebfedb5709 Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents: 133
diff changeset
3 // FAPWeb Simple Demoparty System
aeebfedb5709 Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents: 133
diff changeset
4 // Party administration page AJAX backend module
aeebfedb5709 Add some copyright headers.
Matti Hamalainen <ccr@tnsp.org>
parents: 133
diff changeset
5 // (C) Copyright 2012-2013 Tecnic Software productions (TNSP)
56
243e9a51920b Add some comments.
Matti Hamalainen <ccr@tnsp.org>
parents: 55
diff changeset
6 //
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
7 $sessionType = "admin";
175
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 169
diff changeset
8 require_once "mconfig.inc.php";
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 169
diff changeset
9 require_once "msite.inc.php";
8df523e6326a User require_once instead of require.
Matti Hamalainen <ccr@tnsp.org>
parents: 169
diff changeset
10 require_once "msession.inc.php";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
12
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
13 function stValidateRequestCompoData($full)
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
14 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
15 if (!stChkRequestItem("name", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
16 array(CHK_ISGT, VT_STR, 0, "Compo name too short"),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
17 array(CHK_LTEQ, VT_STR, SET_LEN_COMPO_NAME, "Compo name too long.")) ||
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
18 !stChkRequestItem("description", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
19 array(CHK_ISGT, VT_STR, 10, "Compo description too short"),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
20 array(CHK_LTEQ, VT_STR, SET_LEN_COMPO_DESC, "Compo description too long.")))
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
21 return FALSE;
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
22
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
23 if (!$full)
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
24 return TRUE;
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
25
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
26 return
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
27 stChkRequestItem("visible", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
28 array(CHK_TYPE, VT_BOOL, "Invalid data.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
29 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
30 stChkRequestItem("voting", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
31 array(CHK_TYPE, VT_BOOL, "Invalid data.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
32 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
33 stChkRequestItem("showAuthors", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
34 array(CHK_TYPE, VT_BOOL, "Invalid data.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
35 );
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
36 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
37
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
38
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
39 function stValidateRequestEntryData(&$compo_id)
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
40 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
41 return
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
42 stChkRequestItem("name", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
43 array(CHK_ISGT, VT_STR, 0, "Entry name too short."),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
44 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_NAME, "Entry name too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
45 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
46 stChkRequestItem("author", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
47 array(CHK_ISGT, VT_STR, 0, "Author name not set."),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
48 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_AUTHOR, "Entry author too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
49 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
50 stChkRequestItem("filename", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
51 array(CHK_TYPE, VT_TEXT, "Invalid data."),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
52 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_FILENAME, "Entry filename too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
53 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
54 stChkRequestItem("info", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
55 array(CHK_TYPE, VT_TEXT, "Invalid data."),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
56 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_INFO, "Entry info too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
57 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
58 stChkRequestItem("compo_id", $compo_id,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
59 array(CHK_TYPE, VT_INT, "Invalid compo ID.")
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
60 );
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
61 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
62
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
63
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
64 function stValidateRequestNewsData()
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
65 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
66 return
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
67 stChkRequestItem("text", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
68 array(CHK_ISGT, VT_STR, 0, "News text too short."),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
69 array(CHK_LTEQ, VT_STR, SET_LEN_NEWS_TEXT, "News text too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
70 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
71 stChkRequestItem("author", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
72 array(CHK_ISGT, VT_STR, 0, "News author name too short."),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
73 array(CHK_LTEQ, VT_STR, SET_LEN_NEWS_AUTHOR, "News author name too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
74 ) &&
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
75 stChkRequestItem("title", $fake,
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
76 array(CHK_ISGT, VT_STR, 0, "News title too short."),
261
b9a40d930bb6 Use CHK_LTEQ instead of CHK_ISLT.
Matti Hamalainen <ccr@tnsp.org>
parents: 259
diff changeset
77 array(CHK_LTEQ, VT_STR, SET_LEN_NEWS_TITLE, "News title too long.")
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
78 );
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
79 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
80
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
81
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
82 function stGetCompoData($id, $item, $prefix)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
83 {
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
84 return
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
85 " <h2>#".$id." - ".chentities($item["name"])."</h2>\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
86 " ".stGetFormTextInput(40, SET_LEN_COMPO_NAME, "name", $id, $prefix, $item["name"])."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
87 " ".stGetFormCheckBoxInput("visible", $id, $prefix, $item["visible"], "Visible")."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
88 " ".stGetFormCheckBoxInput("showAuthors", $id, $prefix, $item["showAuthors"], "Show authors")."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
89 " ".stGetFormCheckBoxInput("voting", $id, $prefix, $item["voting"], "Enable voting")."<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
90 " ".stGetFormTextArea(5, 60, "description", $id, $prefix, $item["description"])."\n<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
91 " ".stGetFormButtonInput("update", $id, $prefix, "Update", "updateCompo(".$id.")")."\n";
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
92 }
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
93
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
94
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
95 function stGetNewsItemData($id, $item, $prefix)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
96 {
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
97 return
227
44081a2066f5 Cosmetic improvements in news editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 223
diff changeset
98 " <h2>".chentities($item["title"])."</h2>\n".
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
99 " ".stGetFormTextInput(40, SET_LEN_NEWS_TITLE, "title", $id, $prefix, $item["title"]).
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
100 " - posted ".date("d M Y / H:i", $item["utime"])."<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
101 " ".stGetFormTextArea(5, 60, "text", $id, $prefix, $item["text"])."<br />\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
102 " ".stGetFormTextInput(20, SET_LEN_NEWS_AUTHOR, "author", $id, $prefix, $item["author"])."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
103 " ".stGetFormButtonInput("", "upd".$id, $prefix, "Update", "updateNews(".$id.")")."\n".
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
104 " ".stGetFormButtonInput("", "del".$id, $prefix, "Delete", "deleteNews(".$id.")")."\n";
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
105 }
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
106
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
107
257
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
108 function stGetEntryItemData($eid, $item, $prefix)
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
109 {
259
a7aa20dec154 Some more work.
Matti Hamalainen <ccr@tnsp.org>
parents: 258
diff changeset
110 return
257
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
111 " <td>".($item["show_id"] > 0 ? $item["show_id"] : "-")."</td>\n".
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
112 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_NAME, "name", $eid, $prefix, $item["name"])."</td>\n".
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
113 " <td>".stGetFormTextInput(15, SET_LEN_ENTRY_AUTHOR, "author", $eid, $prefix, $item["author"])."</td>\n".
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
114 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_FILENAME, "filename", $eid, $prefix, $item["filename"])."</td>\n".
266
c535c5a8a36d Use HTML textarea entry for compoentry information field.
Matti Hamalainen <ccr@tnsp.org>
parents: 265
diff changeset
115 " <td>".stGetFormTextArea(2, 30, "info", $eid, $prefix, $item["info"])."</td>\n".
257
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
116 " <td>".
258
08b292dd12ff More work on entry admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 257
diff changeset
117 stGetFormButtonInput("delete", $eid, $prefix, "Del", "deleteEntry(".$item["compo_id"].",".$eid.")").
257
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
118 stGetFormTextInput(3, 3, "compo_id", $eid, $prefix, $item["compo_id"]).
289
b91e92f18cac Make changing of entry's compo_id to work in a somewhat more userfriendly manner.
Matti Hamalainen <ccr@tnsp.org>
parents: 288
diff changeset
119 stGetFormButtonInput("update", $eid, $prefix, "Upd", "updateEntry(".$item["compo_id"].",".$eid.")").
257
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
120 "</td>\n";
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
121 }
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
122
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
123
321
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
124 function stGetVoteKeyClass($item)
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
125 {
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
126 global $voteKeyMode;
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
127
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
128 switch ($voteKeyMode)
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
129 {
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
130 case VOTE_FREELY:
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
131 $cond = 0;
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
132 break;
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
133
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
134 case VOTE_ACTIVATE:
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
135 $cond = $item["active"];
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
136 break;
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
137
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
138 case VOTE_ASSIGN:
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
139 $cond = $item["key_id"] > 0;
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
140 break;
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
141 }
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
142
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
143 return "votekey ".($cond ? "vkeyActive" : "vkeyInactive");
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
144 }
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
145
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
146
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
147 function stGetVoteKeyItemData($id, $item, $prefix)
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
148 {
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
149 global $voteKeyMode, $voteKeyLen;
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
150
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
151 switch ($voteKeyMode)
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
152 {
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
153 case VOTE_FREELY:
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
154 case VOTE_ACTIVATE:
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
155 $str = sprintf(
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
156 "<span class=\"keyid\">%03d</span>&nbsp;:&nbsp;".
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
157 "<span class=\"keycode\">%s</span>",
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
158 $id,
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
159 str_repeat("&nbsp;", $voteKeyLen - strlen($item["key"])).$item["key"]);
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
160
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
161 if ($voteKeyMode == VOTE_ACTIVATE)
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
162 {
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
163 $str .= stGetFormCheckBoxInput("active", $id, $prefix, $item["active"], FALSE,
320
a0a6131c37b4 Vote key activation.
Matti Hamalainen <ccr@tnsp.org>
parents: 319
diff changeset
164 "class=\"keyactive\" onClick=\"voteKeySetActive(".$id.")\"", "");
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
165 }
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
166
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
167 return $str;
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
168
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
169 case VOTE_ASSIGN:
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
170 $str =
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
171 " <td class=\"name\">".chentities($item["name"])."</td>\n".
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
172 " <td class=\"groups\">".chentities($item["groups"])."</td>\n".
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
173 " <td class=\"vkeynum\">".
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
174 stGetFormTextInput(5, 5, "key_id", $id, $prefix, $item["key_id"]).
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
175 stGetFormButtonInput("assign", $id, $prefix, "Set", "voteKeyAssign(".$id.",1)");
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
176
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
177 if ($item["key_id"] != 0)
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
178 $str .= stGetFormButtonInput("clear", $id, $prefix, "Clear", "voteKeyAssign(".$id.",0)");
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
179
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
180 $str .=
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
181 "</td>\n".
324
f3dfdb4fb221 Improve vkey admin visual usability.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
182 " <td class=\"vkey\">";
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
183
324
f3dfdb4fb221 Improve vkey admin visual usability.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
184 if ($item["key_id"] > 0)
f3dfdb4fb221 Improve vkey admin visual usability.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
185 $str .= sprintf("<span class=\"keyid\">%03d</span>".
f3dfdb4fb221 Improve vkey admin visual usability.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
186 "&nbsp;:&nbsp;<span class=\"keycode\">%s</span>",
f3dfdb4fb221 Improve vkey admin visual usability.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
187 $item["key_id"], chentities($item["key"]));
f3dfdb4fb221 Improve vkey admin visual usability.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
188
f3dfdb4fb221 Improve vkey admin visual usability.
Matti Hamalainen <ccr@tnsp.org>
parents: 321
diff changeset
189 $str .= "</td>\n";
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
190 return $str;
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
191 }
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
192 }
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
193
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
194
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
195 function stGetInfoOneEntryData($show_id, $compo_id)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
196 {
411
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
197 if ($show_id > 0)
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
198 {
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
199 $sql = stPrepareSQL("SELECT * FROM entries WHERE show_id=%d AND compo_id=%d",
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
200 $show_id, $compo_id);
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
201
411
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
202 if (($entry = stFetchSQL($sql)) !== false)
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
203 return "#".$entry["show_id"]." - ".chentities($entry["name"])." by ".chentities($entry["author"]);
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
204 }
2aa58de08d6d If show_id for entry is 0, ignore it.
Matti Hamalainen <ccr@tnsp.org>
parents: 407
diff changeset
205 return "-";
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
206 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
207
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
208
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
209 function stGetInfoCurrEntryData($indent)
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
210 {
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
211 $compoID = stGetDisplayVar("compoID");
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
212 if ($compoID > 0)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
213 {
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
214 $sql = stPrepareSQL("SELECT * FROM compos WHERE id=%d", $compoID);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
215 if (($entry = stFetchSQL($sql)) !== false)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
216 $strCompo = $entry["id"]." - ".chentities($entry["name"]);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
217
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
218 $strCurrEntry = stGetInfoOneEntryData(stGetDisplayVar("compoCurrEntry"), $compoID);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
219 $strPrevEntry = stGetInfoOneEntryData(stGetDisplayVar("compoPrevEntry"), $compoID);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
220 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
221 else
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
222 $strCompo = $strCurrEntry = $strPrevEntry = "-";
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
223
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
224 return
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
225 $indent."<div>Current compo:<br /><b>".$strCompo."</b></div>\n".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
226 $indent."<div>Current entry:<br /><b>".$strCurrEntry."</b></div>\n".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
227 $indent."<div>Previous entry:<br /><b>".$strPrevEntry."</b></div>\n";
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
228 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
229
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
230
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
231 function stGetInfoCurrEntryList($indent, $outer)
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
232 {
404
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
233 $sql = stPrepareSQL(
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
234 "SELECT * FROM entries WHERE compo_id=%d ORDER BY show_id ASC",
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
235 stGetDisplayVar("compoID"));
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
236
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
237 $currShowID = stGetDisplayVar("compoCurrEntry");
413
9eb46567f0aa If shown entry ID is undefined, don't select anything.
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
238 if ($currShowID <= 0)
9eb46567f0aa If shown entry ID is undefined, don't select anything.
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
239 $currShowID = -1;
9eb46567f0aa If shown entry ID is undefined, don't select anything.
Matti Hamalainen <ccr@tnsp.org>
parents: 412
diff changeset
240
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
241 $str = stGetOptionListStart("ctrlEntryList", $indent, $outer);
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
242
404
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
243 if (($res = stExecSQL($sql)) !== false)
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
244 {
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
245 foreach ($res as $item)
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
246 {
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
247 $str .= $indent." ".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
248 stGetOptionListItem($item["show_id"],
404
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
249 ($item["show_id"] == $currShowID),
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
250 sprintf("%3d. %s by %s", $item["show_id"], $item["name"], $item["author"]));
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
251 }
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
252 }
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
253
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
254 $str .= stGetOptionListEnd($indent, $outer);
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
255 return $str;
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
256 }
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
257
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
258
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
259 function stGetInfoRotationLists($indent, $outer)
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
260 {
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
261 $sql =
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
262 "SELECT rotationListData.*, ".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
263 "(SELECT COUNT(*) FROM rotationListSlides WHERE list_id=rotationListData.id) AS nslides ".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
264 "FROM rotationListData ".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
265 "LEFT JOIN rotationListSlides ON rotationListData.id=rotationListSlides.list_id ".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
266 "ORDER BY id DESC";
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
267
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
268 $str = stGetOptionListStart("ctrlRotationLists", $indent, $outer);
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
269
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
270 if (($res = stExecSQL($sql)) !== false)
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
271 {
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
272 foreach ($res as $item)
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
273 {
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
274 $str .= $indent." ".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
275 stGetOptionListItem($item["id"],
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
276 ($currListID == $item["id"]),
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
277 $item["name"]." (".$item["nslides"]." slides)");
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
278 }
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
279 }
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
280
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
281 $str .= stGetOptionListEnd($indent, $outer);
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
282 return $str;
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
283 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
284
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
285
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
286 function stGetSaveButton()
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
287 {
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
288 return "<input type=\"submit\" value=\" Save \" />\n";
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
289 }
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
290
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
291
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
292 function stGetOptionListStart($id, $indent, $outer, $size = 10, $onChange = "")
371
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
293 {
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
294 return
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
295 ($outer ? $indent."<div id=\"".$id."\">\n" : "").
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
296 $indent."<select class=\"selectBox\" id=\"".$id."Sel\" size=\"".$size."\"".
374
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
297 ($onChange != "" ? " onChange=\"".$onChange."\"" : "").">\n";
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
298 }
374
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
299
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
300
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
301 function stGetOptionListItem($value, $active, $name)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
302 {
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
303 return
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
304 "<option value=\"".$value."\"".
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
305 ($active ? " selected=\"selected\"" : "").
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
306 ">".chentities($name)."</option>\n";
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
307 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
308
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
309
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
310 function stGetOptionListEnd($indent, $outer)
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
311 {
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
312 return
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
313 $indent."</select>\n".
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
314 ($outer ? $indent."</div>\n" : "");
374
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
315 }
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
316
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
317
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
318 function stGetShowModeButton($mode, $name, $cmode)
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
319 {
396
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
320 return
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
321 "<input type=\"radio\" id=\"showMode".$mode.
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
322 "\" name=\"showMode\" value=\"".$mode."\" ".
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
323 "onClick=\"setShowMode(".$mode.")\" ".
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
324 ($cmode == $mode ? "checked=\"checked\" ": "")."/>".
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
325 "<label for=\"showMode".$mode."\">".chentities($name)."</label>";
374
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
326 }
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
327
9c4accca7bf8 Add some helper functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 373
diff changeset
328
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
329 function stRandomizeCompoShowOrder($compo_id, $patch)
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
330 {
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
331 $entries = stExecSQL("SELECT id,show_id FROM entries WHERE compo_id=".$compo_id);
371
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
332 if ($entries !== FALSE)
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
333 {
376
55007fe09371 And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 375
diff changeset
334 $ncount = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$compo_id." AND show_id<>0");
371
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
335 $final = array();
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
336
376
55007fe09371 And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 375
diff changeset
337 if ($patch && $ncount > 0)
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
338 {
376
55007fe09371 And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 375
diff changeset
339 $index = -1;
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
340 foreach ($entries as $entry)
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
341 {
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
342 if ($entry["show_id"] == 0)
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
343 $final[] = $entry["id"];
372
f09b4c08a920 Actually shuffle .. oops.
Matti Hamalainen <ccr@tnsp.org>
parents: 371
diff changeset
344
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
345 if ($entry["show_id"] > $index)
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
346 $index = $entry["show_id"];
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
347 }
376
55007fe09371 And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 375
diff changeset
348
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
349 $index++;
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
350 }
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
351 else
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
352 {
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
353 foreach ($entries as $entry)
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
354 $final[] = $entry["id"];
372
f09b4c08a920 Actually shuffle .. oops.
Matti Hamalainen <ccr@tnsp.org>
parents: 371
diff changeset
355
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
356 shuffle($final);
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
357 $index = 1;
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
358 }
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
359
371
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
360 foreach ($final as $entry)
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
361 {
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
362 $sql = stPrepareSQL("UPDATE entries SET show_id=%d WHERE id=%d", $index, $entry);
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
363 if (stExecSQL($sql) === false)
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
364 {
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
365 stError("Error updating entry show positions.");
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
366 break;
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
367 }
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
368 $index++;
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
369 }
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
370 }
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
371 }
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
372
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
373
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
374 //
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
375 // Check if we are allowed to execute
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
376 //
360
2af8458058ab Implement CSRF token checks.
Matti Hamalainen <ccr@tnsp.org>
parents: 352
diff changeset
377 if (!stCheckHTTPS() || !stAdmSessionAuth() || !stCSRFCheck())
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
378 {
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
379 stSetupCacheControl();
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
380
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
381 stSessionEnd(SESS_ADMIN);
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
382
123
5837b9333964 Add new "about" page, and setting for default page.
Matti Hamalainen <ccr@tnsp.org>
parents: 116
diff changeset
383 header("Location: ".stGetSetting("defaultPage"));
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
384 exit;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
385 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
386
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
387
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
388 //
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
389 // Initialize
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
390 //
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
391 stSetupCacheControl();
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
392
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
393 if (!stConnectSQLDB())
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
394 die("Could not connect to SQL database.");
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
395
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
396 stReloadSettings();
378
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
397 stReloadDisplayVars();
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
398
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
399
305
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
400 $voteKeyMode = stGetSetting("voteKeyMode");
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
401 $voteKeyLen = stGetSetting("userKeyLength");
208
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
402 $type = stGetRequestItem("type", "");
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
403 switch (stGetRequestItem("action", ""))
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
404 {
370
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
405 case "randomize":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
406 //
370
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
407 // Randomize entries display order
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
408 //
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
409 $patch = intval(stGetRequestItem("patch", 1));
371
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
410 if ($type == "all")
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
411 {
371
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
412 if (($compos = stExecSQL("SELECT id FROM compos")) === FALSE)
370
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
413 stError("Eh? SQL error occured.");
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
414 else
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
415 foreach ($compos as $compo)
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
416 stRandomizeCompoShowOrder($compo["id"], $patch);
371
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
417 }
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
418 else
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
419 if ($type == "compo")
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
420 {
1a7f97a36047 Modularize some more.
Matti Hamalainen <ccr@tnsp.org>
parents: 370
diff changeset
421 if (stChkRequestItem("id", $compo_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
422 stRandomizeCompoShowOrder($compo_id, $patch);
370
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
423 }
375
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
424 break;
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
425
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
426 case "check":
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
427 //
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
428 // Perform systems check
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
429 //
377
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
430 $errors = 0;
375
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
431 echo
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
432 "<h1>Competitions / voting</h1>\n".
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
433 "<ul>\n";
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
434
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
435 echo "<li>".(stGetSetting("allowVoting") ? "Voting <b>IS ENABLED</b>." : "Voting is NOT enabled!")."</li>\n";
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
436
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
437 if (($compos = stExecSQL("SELECT * FROM compos")) === FALSE)
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
438 stError("Eh? SQL error occured.");
370
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
439 else
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
440 {
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
441 foreach ($compos as $compo)
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
442 {
373
ff8462a80cf2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 372
diff changeset
443 $nentries = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE show_id=0 AND compo_id=".$compo["id"]);
370
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
444 if ($nentries > 0)
377
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
445 {
375
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
446 echo "<li>Compo <b>#".$compo["id"]." - ".$compo["name"]."</b> has NO show order set for some entries.</li>\n";
377
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
447 $errors++;
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
448 }
370
d65f28bf1080 Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents: 366
diff changeset
449 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
450 }
377
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
451
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
452 $nenabled = stFetchSQLColumn("SELECT COUNT(*) FROM compos WHERE visible<>0 AND voting<>0");
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
453 if ($nenabled == 0)
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
454 echo "<li>No competitions that are visible and enabled for voting.</li>\n";
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
455
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
456 $nenabled = stFetchSQLColumn("SELECT COUNT(*) FROM compos WHERE visible=0 AND voting<>0");
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
457 if ($nenabled > 0)
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
458 echo "<li>".$nenabled." competitions that are NOT visible, but are enabled for voting?</li>\n";
381
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
459
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
460 $entries = stFetchSQL("SELECT COUNT(*) AS nentries, COUNT(DISTINCT compo_id) AS ncompos FROM entries");
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
461 if ($entries !== FALSE)
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
462 echo "<li><b>".$entries["nentries"]."</b> compo entries in system in <b>".$entries["ncompos"]."</b> compos.</li>\n";
377
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
463
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
464 if ($errors == 0)
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
465 echo "<li>No errors/warnings detected.</li>\n";
f7b53225d315 Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents: 376
diff changeset
466
375
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
467 echo "</ul>\n";
028daa721ee2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 374
diff changeset
468
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
469 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
470
390
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
471 case "ctrl":
392
5a34126297b1 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 391
diff changeset
472 //
5a34126297b1 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 391
diff changeset
473 // Party information system control
5a34126297b1 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 391
diff changeset
474 //
390
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
475 switch ($type)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
476 {
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
477 case "setShowMode":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
478 if (stChkRequestItem("mode", $mode,
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
479 array(CHK_TYPE, VT_INT, "Invalid data."),
391
0c1798c9d486 Add disabled mode.
Matti Hamalainen <ccr@tnsp.org>
parents: 390
diff changeset
480 array(CHK_RANGE, VT_INT, array(SMODE_DISABLED, SMODE_COMPO), "Invalid mode value.")))
390
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
481 {
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
482 $prev = stGetDisplayVar("showMode");
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
483 if ($prev != $mode)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
484 {
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
485 stDisplayUpdated();
390
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
486 stSetDisplayVar("showMode", $mode);
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
487 }
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
488 }
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
489 break;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
490
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
491 case "setCompoID":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
492 if (stChkRequestItem("id", $compo_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
493 {
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
494 if (stFetchSQL("SELECT id FROM compos WHERE id=".$compo_id) === false)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
495 stError("Invalid compo ID ".$compo_id);
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
496 else
395
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
497 {
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
498 $prev = stGetDisplayVar("compoID");
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
499 if ($prev != $compo_id)
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
500 {
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
501 stSetDisplayVar("compoCurrEntry", 0);
395
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
502 stSetDisplayVar("compoPrevEntry", 0);
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
503 stSetDisplayVar("compoID", $compo_id);
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
504 stDisplayUpdated();
395
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
505 }
9f95b27b8e52 Backend fixes.
Matti Hamalainen <ccr@tnsp.org>
parents: 393
diff changeset
506 }
390
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
507 }
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
508 break;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
509
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
510 case "setEntry":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
511 case "nextEntry":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
512 case "prevEntry":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
513 if (($compo_id = stGetDisplayVar("compoID")) > 0)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
514 {
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
515 $prev = $curr = stGetDisplayVar("compoCurrEntry");
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
516 $nentries = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$compo_id);
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
517 switch ($type)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
518 {
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
519 case "setEntry":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
520 if (stChkRequestItem("index", $tmp, array(CHK_TYPE, VT_INT, "Invalid index.")))
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
521 $curr = $tmp;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
522 break;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
523
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
524 case "nextEntry":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
525 if ($curr < $nentries)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
526 $curr++;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
527 break;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
528
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
529 case "prevEntry":
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
530 if ($curr > 1)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
531 $curr--;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
532 break;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
533 }
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
534
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
535 if (!$errorSet)
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
536 {
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
537 stSetDisplayVar("compoCurrEntry", $curr);
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
538 stSetDisplayVar("compoPrevEntry", $prev);
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
539 stDisplayUpdated();
390
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
540 }
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
541 }
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
542 else
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
543 stError("No valid competition set.");
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
544 break;
421
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
545
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
546 case "setTempSlide":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
547 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
548
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
549 case "newSlide":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
550 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
551
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
552 case "updateSlide":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
553 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
554
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
555 case "deleteSlide":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
556 if (stChkRequestItem("id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
557 {
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
558 $sql = stPrepareSQL("DELETE FROM displaySlides WHERE id=%d", $slide_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
559 stExecSQLCond($sql, "Slide deleted.");
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
560
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
561 $sql = stPrepareSQL("DELETE FROM rotationListSlides WHERE slide_id=%d", $slide_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
562 stExecSQLCond($sql, "Slide list refs deleted.");
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
563 }
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
564 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
565
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
566 case "newList":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
567 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
568
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
569 case "updateList":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
570 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
571
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
572 case "moveListSlide":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
573 if (stChkRequestItem("list_id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
574 stChkRequestItem("slide_id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
575 stChkRequestItem("dir", $dir, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
576 {
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
577 }
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
578 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
579
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
580 case "addListSlide":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
581 if (stChkRequestItem("list_id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
582 stChkRequestItem("slide_id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
583 {
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
584 $nslides = stFetchSQLColumn(stPrepareSQL("SELECT COUNT(*) FROM rotationListSlides WHERE list_id=%d", $list_id));
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
585 $sql = stPrepareSQL("INSERT INTO rotationListSlides () VALUES ()",
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
586 $list_id, $slide_id, $nslides+1);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
587
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
588 stExecSQLCond($sql, "Slide added to list.");
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
589 stNormalizeListSlideOrder($list_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
590 }
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
591 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
592
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
593 case "deleteListSlide":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
594 if (stChkRequestItem("list_id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
595 stChkRequestItem("slide_id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
596 {
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
597 $sql = stPrepareSQL("DELETE FROM rotationListSlides WHERE list_id=%d AND slide_id=%d",
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
598 $list_id, $slide_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
599 stExecSQLCond($sql, "List slide refs deleted.");
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
600 stNormalizeListSlideOrder($list_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
601 }
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
602 break;
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
603
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
604 case "deleteList":
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
605 if (stChkRequestItem("id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
606 {
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
607 $sql = stPrepareSQL("DELETE FROM rotationListData WHERE id=%d", $list_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
608 stExecSQLCond($sql, "List data deleted.");
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
609
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
610 $sql = stPrepareSQL("DELETE FROM rotationListSlides WHERE list_id=%d", $list_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
611 stExecSQLCond($sql, "List slide refs deleted.");
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
612 }
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
613 break;
390
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
614 }
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
615 break;
3257ae94ba1c Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents: 385
diff changeset
616
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
617 case "get":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
618 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
619 // Get specific data
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
620 //
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
621 switch ($type)
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
622 {
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
623 case "infoCurrEntryData":
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
624 echo stGetInfoCurrEntryData("", FALSE);
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
625 break;
404
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
626
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
627 case "infoCurrEntryList":
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
628 echo stGetInfoCurrEntryList("", FALSE);
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
629 break;
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
630
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
631 case "infoRotationLists":
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
632 echo stGetInfoRotationLists("", FALSE);
404
d454f7eebddd Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 398
diff changeset
633 break;
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
634
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
635 case "infoEditRotationList":
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
636 echo
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
637 "<div class=\"ctrlBox\" id=\"ctrlEditRotationList\">\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
638 " <div class=\"ctrlTitle\">Edit rotation list</div>\n".
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
639 " ".stGetFormTextInput(30, 128, "ctrlEDRotationListName", "", "", "")."<br />\n".
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
640 stGetOptionListStart("ctrlEDRotationList", " ", TRUE);
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
641
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
642 $sql = "SELECT * FROM displaySlides";
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
643 if (($res = stExecSQL($sql)) !== false)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
644 {
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
645 foreach ($res as $item)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
646 echo " ".stGetOptionListItem($item["id"], FALSE, $item["title"]);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
647 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
648
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
649 $sql = stPrepareSQL(
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
650 "SELECT displaySlides.* FROM displaySlides ".
416
876846d8ed5b Rename some database things.
Matti Hamalainen <ccr@tnsp.org>
parents: 415
diff changeset
651 "LEFT JOIN rotationListSlides ON displaySlides.id=rotationListSlides.slide_id ".
876846d8ed5b Rename some database things.
Matti Hamalainen <ccr@tnsp.org>
parents: 415
diff changeset
652 "WHERE rotationListSlides.list_id=%d ".
876846d8ed5b Rename some database things.
Matti Hamalainen <ccr@tnsp.org>
parents: 415
diff changeset
653 "ORDER BY rotationListSlides.order_num DESC",
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
654 $list_id);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
655
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
656 echo
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
657 stGetOptionListEnd(" ", TRUE).
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
658 stGetOptionListStart("ctrlEDDisplaySlides", " ", TRUE);
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
659
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
660 if (($res = stExecSQL($sql)) !== false)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
661 {
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
662 foreach ($res as $item)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
663 echo " ".stGetOptionListItem($item["id"], FALSE, $item["title"]);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
664 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
665
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
666 echo
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
667 stGetOptionListEnd(" ", TRUE).
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
668 " <div class=\"ctrlButtons\">\n".
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
669 " ".stGetFormButtonInput("moveslideup", "", "", "Move Up", "moveListSlide(-1)")."\n".
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
670 " ".stGetFormButtonInput("moveslidedn", "", "", "Move Down", "moveListSlide(1)")."\n".
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
671 " ".stGetFormButtonInput("addslide", "", "", "Add slide", "addListSlide()")."\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
672 " ".stGetFormButtonInput("delslide", "", "", "Remove slide", "removeListSlide()")."\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
673 " </div>\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
674 "</div>\n";
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
675 break;
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
676
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
677 case "infoEditSlide":
421
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
678 if (stChkRequestItem("id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
679 {
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
680 $sql = stPrepareSQL("SELECT * FROM displaySlides WHERE id=%d", $slide_id);
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
681 if (($slide = stFetchSQL($sql)) !== false)
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
682 {
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
683 echo
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
684 "<div class=\"ctrlBox\" id=\"ctrlEditDisplaySlide\">\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
685 " <form method=\"post\" action=\"\" onsubmit=\"return updateDisplaySlide(this)\">\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
686 " <div class=\"ctrlTitle\">Edit display slide</div>\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
687 " ".stGetFormTextInput(40, SET_LEN_DISP_SLIDE_TITLE, "fdsaf", "", "", "")."<br />\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
688 " ".stGetFormTextArea(5, 40, "asdf", "", "", "")."<br />\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
689 " <div class=\"ctrlButtons\">\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
690 " ".stGetFormButtonInput("clearslide", "", "", "Clear", "this.form.reset()")."\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
691 " ".stGetFormButtonInput("cancelslide", "", "", "Cancel", "cancelEditDisplaySlide()")."\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
692 " ".stGetFormSubmitInput("createslide", "Save slide")."\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
693 " </div>\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
694 " </form>\n".
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
695 "</div>\n";
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
696 }
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
697 else
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
698 stError("No such slide!");
606a8ab61d0f Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 419
diff changeset
699 }
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
700 break;
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
701
419
206a18bc603a Rename menu entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 418
diff changeset
702 case "infoMain":
378
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
703 $showMode = stGetDisplayVar("showMode");
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
704 echo
396
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
705 "<div id=\"ctrlModeControls\">\n".
378
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
706 "Active mode:\n".
391
0c1798c9d486 Add disabled mode.
Matti Hamalainen <ccr@tnsp.org>
parents: 390
diff changeset
707 stGetShowModeButton(SMODE_DISABLED, "Off/disabled", $showMode)."\n".
378
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
708 stGetShowModeButton(SMODE_ROTATE, "Slide rotation", $showMode)."\n".
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
709 stGetShowModeButton(SMODE_COMPO, "Compo mode", $showMode)."\n".
418
0688a1d2122e Add link for opening the info view window.
Matti Hamalainen <ccr@tnsp.org>
parents: 417
diff changeset
710 "<a href=\"show.php\" target=\"_blank\">Open info window</a>\n".
392
5a34126297b1 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 391
diff changeset
711 "</div>\n".
396
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
712 "<div id=\"ctrlSystemControls\">\n".
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
713 stGetFormButtonInput("syscheck", "", "", "Perform system check", "performSystemCheck()")."\n".
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
714 stGetFormButtonInput("generate", "", "", "Add missing show positions", "generateEntryPositions(0, 1)")."\n".
Matti Hamalainen <ccr@tnsp.org>
parents: 395
diff changeset
715 stGetFormButtonInput("regenerate", "", "", "ReGenerate ALL show positions", "generateEntryPositions(0, 0)")."\n".
378
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
716 "</div>\n";
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
717
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
718 echo
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
719 "<div class=\"ctrlBox\" id=\"ctrlListRotationLists\">\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
720 " <div class=\"ctrlTitle\">Rotation lists:</div>\n".
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
721 stGetInfoRotationLists(" ", TRUE).
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
722 " <div class=\"ctrlButtons\">\n".
416
876846d8ed5b Rename some database things.
Matti Hamalainen <ccr@tnsp.org>
parents: 415
diff changeset
723 " ".stGetFormButtonInput("actlist", "", "", "Set Active", "activateRotationList()")."\n".
876846d8ed5b Rename some database things.
Matti Hamalainen <ccr@tnsp.org>
parents: 415
diff changeset
724 " ".stGetFormButtonInput("editlist", "", "", "Edit", "editRotationList()")."\n".
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
725 " ".stGetFormButtonInput("newlist", "", "", "New", "newRotationList()")."\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
726 " ".stGetFormButtonInput("dellist", "", "", "Delete", "deleteRotationList()")."\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
727 " </div>\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
728 "</div>\n";
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
729
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
730 echo
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
731 "<div class=\"ctrlBox\" id=\"ctrlListDisplaySlides\">\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
732 "<div class=\"ctrlTitle\">Display slides:</div>\n".
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
733 stGetOptionListStart("ctrlDisplaySlides", " ", TRUE);
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
734
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
735 $sql = "SELECT * FROM displaySlides ORDER BY id DESC";
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
736 if (($res = stExecSQL($sql)) !== false)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
737 {
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
738 foreach ($res as $item)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
739 echo " ".stGetOptionListItem($item["id"], FALSE, $item["title"]);
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
740 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
741
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
742 echo
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
743 stGetOptionListEnd(" ", TRUE).
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
744 " <div class=\"ctrlButtons\">\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
745 " ".stGetFormTextInput(3, 5, "tempDuration", "", "", stGetDisplayVar("tempDuration"))." min\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
746 " ".stGetFormButtonInput("setslide", "", "", "Set Temp", "activateTempSlide()")."\n".
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
747 " ".stGetFormButtonInput("editslide", "", "", "Edit", "editDisplaySlide()")."\n".
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
748 " ".stGetFormButtonInput("newslide", "", "", "New", "newDisplaySlide()")."\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
749 " ".stGetFormButtonInput("delslide", "", "", "Delete", "deleteDisplaySlide()")."\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
750 " </div>\n".
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
751 "</div>\n";
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
752
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
753 echo
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
754 "<div class=\"ctrlBox\" id=\"ctrlCompoControl\">\n".
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
755 " <div class=\"ctrlTitle\">Competition control:</div>\n".
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
756 " <div class=\"ctrlDBox1\">\n".
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
757 stGetOptionListStart("ctrlCompoList", " ", TRUE);
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
758
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
759 $sql =
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
760 "SELECT compos.*, ".
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
761 "(SELECT COUNT(*) FROM entries WHERE compo_id=compos.id) AS nentries ".
412
3e38433fcace Show only competitions that have entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 411
diff changeset
762 "FROM compos WHERE nentries > 0 ".
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
763 "ORDER BY id DESC";
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
764
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
765 $currCompoID = stGetDisplayVar("compoID");
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
766 if (($res = stExecSQL($sql)) !== false)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
767 {
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
768 foreach ($res as $item)
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
769 {
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
770 echo " ".stGetOptionListItem($item["id"],
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
771 ($item["id"] == $currCompoID),
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
772 sprintf("%s (%d entries)", $item["name"], $item["nentries"]));
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
773 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
774 }
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
775
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
776 echo
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
777 stGetOptionListEnd(" ", TRUE).
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
778 " <div class=\"ctrlButtons\">\n".
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
779 " ".stGetFormButtonInput("setcompo", "", "", "Change compo", "activateCompo()")."\n".
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
780 " </div>\n".
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
781 " </div>\n";
398
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
782
Matti Hamalainen <ccr@tnsp.org>
parents: 397
diff changeset
783 echo
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
784 " <div class=\"ctrlDBox1\">\n".
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
785 stGetInfoCurrEntryList(" ", TRUE).
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
786 " <div class=\"ctrlButtons\">\n".
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
787 " ".stGetFormButtonInput("setentry", "", "", "Set selected entry", "setSelectedEntry()")."\n".
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
788 " ".stGetFormButtonInput("preventry", "", "", "Prev entry", "switchEntry(-1)")."\n".
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
789 " ".stGetFormButtonInput("nextentry", "", "", "Next entry", "switchEntry(1)")."\n".
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
790 " </div>\n".
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
791 " </div>\n".
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
792 " <div class=\"ctrlDBox2\" id=\"ctrlCurrEntryData\">\n".
417
d2ece5d0aaa4 Cleanups.
Matti Hamalainen <ccr@tnsp.org>
parents: 416
diff changeset
793 stGetInfoCurrEntryData(" ").
407
eaea1ae2bc3d Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 405
diff changeset
794 " </div>\n".
393
14cdbeb331b6 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 392
diff changeset
795 "</div>\n";
378
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
796 break;
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
797
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
798 case "news":
265
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
799 echo
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
800 "<form method=\"post\" action=\"\" onsubmit=\"return addNews()\">\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
801 " ".stGetFormTextInput(40, SET_LEN_NEWS_TITLE, "", "nntitle", "", "")."<br />\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
802 " ".stGetFormTextArea(5, 60, "", "nntext", "", "")."<br />\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
803 " ".stGetFormTextInput(20, SET_LEN_NEWS_AUTHOR, "", "nnauthor", "", "orgaz")."\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
804 " ".stGetFormSubmitInput("nnadd", "Add post")."\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
805 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
806 "</form>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
807 "<hr />\n";
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
808
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
809 $sql = "SELECT * FROM news ORDER BY utime DESC";
265
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
810 foreach (stExecSQL($sql) as $item)
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
811 {
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
812 echo
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
813 "<div id=\"news".$item["id"]."\">\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
814 stGetNewsItemData($item["id"], $item, "ne").
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
815 "</div>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
816 "<hr />\n";
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
817 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
818 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
819
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
820 case "newsitem":
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
821 $res = stFetchSQL(stPrepareSQL("SELECT * FROM news WHERE id=%D", "id"));
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
822 if ($res !== FALSE)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
823 echo stGetNewsItemData($res["id"], $res, "ne");
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
824 break;
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
825
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
826 case "attendees":
272
cd3283333ec1 Add link for printing out email addresses of participants.
Matti Hamalainen <ccr@tnsp.org>
parents: 270
diff changeset
827 echo
273
39c247babc0c Make the print links look a bit nicer.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
828 "<div class=\"tabHeadersSub\">\n".
275
11cd85bdfac7 Clarify some links.
Matti Hamalainen <ccr@tnsp.org>
parents: 274
diff changeset
829 "<a href=\"print.php?type=emails\" target=\"_blank\">Show plain list of e-mails</a>\n".
272
cd3283333ec1 Add link for printing out email addresses of participants.
Matti Hamalainen <ccr@tnsp.org>
parents: 270
diff changeset
830 "</div>\n";
cd3283333ec1 Add link for printing out email addresses of participants.
Matti Hamalainen <ccr@tnsp.org>
parents: 270
diff changeset
831
265
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
832 // For adding a new one
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
833 $prefix = "ne";
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
834 echo
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
835 "<table>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
836 " <tr>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
837 " <th>Name</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
838 " <th>Groups</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
839 " <th>Oneliner</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
840 " <th>E-mail</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
841 " <th>Actions</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
842 " </tr>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
843 " <tr>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
844 " <td>".stGetFormTextInput(20, SET_LEN_USERNAME, "name", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
845 " <td>".stGetFormTextInput(20, SET_LEN_GROUPS, "groups", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
846 " <td>".stGetFormTextInput(30, SET_LEN_ONELINER, "oneliner", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
847 " <td>".stGetFormTextInput(20, SET_LEN_EMAIL, "email", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
848 " <td>".stGetFormButtonInput("add", "", $prefix, " Add new ", "addAttendee()")."</td>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
849 " </tr>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
850 "</table>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
851 "<hr />\n";
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
852
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
853 // List of attendees
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
854 echo
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
855 "<table class=\"attendees\">\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
856 " <tr>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
857 " <th class=\"name\">Name</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
858 " <th class=\"groups\">Groups</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
859 " <th class=\"regtime\">Registered</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
860 " <th class=\"oneliner\">Oneliner</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
861 " <th class=\"email\">E-mail</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
862 " <th>Actions</th>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
863 " </tr>\n";
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
864
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
865 $sql = "SELECT * FROM attendees ORDER BY regtime DESC";
265
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
866 $row = 0;
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
867 foreach (stExecSQL($sql) as $item)
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
868 stPrintAttendee($item, $row++, TRUE, TRUE, FALSE);
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
869
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
870 echo
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
871 "</table>\n";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
872 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
873
205
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
874 case "attendee":
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
875 $res = stFetchSQL(stPrepareSQL("SELECT * FROM attendees WHERE id=%D", "id"));
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
876 if ($res !== FALSE)
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
877 stPrintAttendee($res, -1, FALSE, TRUE, stGetRequestItem("edit", FALSE));
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
878 break;
77d33161f8be More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 204
diff changeset
879
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
880 case "votekey":
321
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
881 case "votekeyclass":
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
882 switch ($voteKeyMode)
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
883 {
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
884 case VOTE_FREELY:
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
885 case VOTE_ACTIVATE:
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
886 $sql = stPrepareSQL("SELECT * FROM votekeys WHERE id=%D", "id");
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
887 break;
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
888
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
889 case VOTE_ASSIGN:
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
890 $sql = stPrepareSQL("SELECT votekeys.key,attendees.* FROM attendees ".
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
891 "LEFT JOIN votekeys ON votekeys.id=attendees.key_id ".
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
892 "WHERE attendees.id=%D", "id");
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
893 break;
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
894 }
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
895 if (($res = stFetchSQL($sql)) !== FALSE)
321
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
896 {
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
897 if ($type == "votekeyclass")
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
898 echo stGetVoteKeyClass($res);
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
899 else
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
900 echo stGetVoteKeyItemData($res["id"], $res, "vk");
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
901 }
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
902 break;
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
903
105
a85f258f6beb Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 90
diff changeset
904 case "voters":
270
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
905 // Generate vote keys, if needed
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
906 $numVKeys = stFetchSQLColumn("SELECT COUNT(*) FROM votekeys");
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
907 $numUsers = stFetchSQLColumn("SELECT COUNT(*) FROM attendees");
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
908 while ($numVKeys < $numUsers)
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
909 {
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
910 if (($key = stGenerateUserKey()) !== false)
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
911 {
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
912 if (stExecSQL(stPrepareSQL("INSERT INTO votekeys (key) VALUES (%s)", $key)) !== false)
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
913 $numVKeys++;
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
914 }
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
915 }
589b44acb74a More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 269
diff changeset
916
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
917 // List of votekeys
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
918 echo
305
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
919 "<div class=\"info\"><b>Voting mode: ".$voteModeData[$voteKeyMode][0]."</b>. ".$voteModeData[$voteKeyMode][1]."</div>\n".
273
39c247babc0c Make the print links look a bit nicer.
Matti Hamalainen <ccr@tnsp.org>
parents: 272
diff changeset
920 "<div class=\"tabHeadersSub\">\n".
275
11cd85bdfac7 Clarify some links.
Matti Hamalainen <ccr@tnsp.org>
parents: 274
diff changeset
921 "<a href=\"print.php?type=votekeys\" target=\"_blank\">Show printable key list</a>\n".
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
922 "</div>\n";
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
923
305
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
924 switch ($voteKeyMode)
116
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
925 {
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
926 case VOTE_FREELY:
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
927 case VOTE_ACTIVATE:
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
928 $sql = "SELECT * FROM votekeys ORDER BY votekeys.id ASC";
116
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
929
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
930 foreach (stExecSQL($sql) as $item)
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
931 {
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
932 // This funny code is to ensure that the cells are of uniform width
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
933 echo
321
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
934 "<div class=\"".stGetVoteKeyClass($item).
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
935 "\" id=\"vkey".$item["id"]."\">".
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
936 stGetVoteKeyItemData($item["id"], $item, "vk").
320
a0a6131c37b4 Vote key activation.
Matti Hamalainen <ccr@tnsp.org>
parents: 319
diff changeset
937 "</div>\n";
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
938 }
116
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
939 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
940
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
941 case VOTE_ASSIGN:
308
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
942 $sql = "SELECT votekeys.key,attendees.* FROM attendees ".
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
943 "LEFT JOIN votekeys ON votekeys.id=attendees.key_id ".
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
944 "ORDER BY attendees.regtime DESC";
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
945
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
946 echo
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
947 "<table class=\"attendees\">\n".
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
948 " <tr>\n".
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
949 " <th class=\"name\">Name</th>\n".
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
950 " <th class=\"groups\">Groups</th>\n".
308
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
951 " <th class=\"vkeynum\">Key #</th>\n".
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
952 " <th class=\"vkey\">Votekey</th>\n".
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
953 " </tr>\n";
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
954
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
955 $index = 0;
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
956 foreach (stExecSQL($sql) as $item)
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
957 {
308
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
958 echo
321
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
959 " <tr class=\"".stGetVoteKeyClass($item).
9462a59d3ab3 Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 320
diff changeset
960 "\" id=\"vkey".$item["id"]."\">\n".
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
961 stGetVoteKeyItemData($item["id"], $item, "vk").
308
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
962 " </tr>\n";
269
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
963 }
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
964
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
965 echo
46138f8478e5 Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents: 266
diff changeset
966 "</table>\n";
116
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
967 break;
a95facb41c86 Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 113
diff changeset
968 }
105
a85f258f6beb Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 90
diff changeset
969 break;
a85f258f6beb Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents: 90
diff changeset
970
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
971 case "compos":
265
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
972 echo
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
973 "<form method=\"post\" action=\"\" onsubmit=\"return addCompo()\">\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
974 " ".stGetFormTextInput(64, SET_LEN_COMPO_NAME, "", "ncname", "", "")."<br />\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
975 " ".stGetFormTextArea(5, 60, "", "ncdescription", "", "")."<br />\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
976 " ".stGetFormSubmitInput("nccompo", "Add compo")."\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
977 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
978 "</form>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
979 "<hr />\n";
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
980
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
981 $sql = "SELECT * FROM compos ORDER BY id DESC";
265
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
982 foreach (stExecSQL($sql) as $item)
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
983 {
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
984 echo
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
985 "<div id=\"compo".$item["id"]."\">\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
986 stGetCompoData($item["id"], $item, "co").
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
987 "</div>\n".
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
988 "<hr />\n";
d1f99f239046 Cleanup.
Matti Hamalainen <ccr@tnsp.org>
parents: 264
diff changeset
989 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
990 break;
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
991
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
992 case "compo":
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
993 $res = stFetchSQL(stPrepareSQL("SELECT * FROM compos WHERE id=%D", "id"));
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
994 if ($res !== FALSE)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
995 echo stGetCompoData($res["id"], $res, "co");
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
996 break;
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
997
352
7944ad74b31c Remove dead code.
Matti Hamalainen <ccr@tnsp.org>
parents: 324
diff changeset
998
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
999 case "settings":
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1000 $prefix = "st";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1001
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1002 echo
16
6da681d1f62a Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 14
diff changeset
1003 "<h1>Site settings</h1>\n".
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
1004 "<form method=\"post\" action=\"\" onsubmit=\"return updateSettings()\">\n".
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1005 "<table>\n";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1006 foreach (stExecSQL("SELECT * FROM settings WHERE vtype<>".VT_TEXT) as $item)
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1007 {
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1008 echo
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1009 " <tr>\n".
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1010 " <td>";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1011 $id = $item["key"];
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1012 switch ($item["vtype"])
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1013 {
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1014 case VT_INT:
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1015 echo stGetFormTextInput(10, 10, "", $id, $prefix, $item["vint"]);
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1016 break;
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1017 case VT_STR:
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1018 echo stGetFormTextInput(40, 128, "", $id, $prefix, $item["vstr"]);
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1019 break;
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1020 case VT_BOOL:
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1021 echo stGetFormCheckBoxInput("", $id, $prefix, $item["vint"], "");
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1022 break;
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1023 }
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1024 echo "</td>\n".
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1025 " <td>".$item["desc"]."</td>\n".
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1026 " </tr>\n";
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1027 }
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1028 echo "</table>\n".stGetSaveButton();
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1029
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1030 foreach (stExecSQL("SELECT * FROM settings WHERE vtype=".VT_TEXT) as $item)
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1031 {
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1032 echo
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1033 "<h2>".chentities($item["desc"])."</h2>\n".
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1034 stGetFormTextArea(10, 60, "", $item["key"], $prefix, $item["vtext"]).
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1035 "\n<br />\n".
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1036 stGetSaveButton();
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1037 }
201
a4be19c4d99d Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents: 198
diff changeset
1038 echo "</form>\n";
8
4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 5
diff changeset
1039 break;
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1040
250
34f540cea1ff Some work on compo entry listing.
Matti Hamalainen <ccr@tnsp.org>
parents: 249
diff changeset
1041 case "compolist":
249
6927edc7e266 Get compo name list as JSON.
Matti Hamalainen <ccr@tnsp.org>
parents: 228
diff changeset
1042 $index = 0;
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
1043 foreach (stExecSQL("SELECT * FROM compos") as $compo)
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
1044 {
249
6927edc7e266 Get compo name list as JSON.
Matti Hamalainen <ccr@tnsp.org>
parents: 228
diff changeset
1045 if ($index++ > 0) echo ",";
251
1953d5025531 Alter the JSON format of the compo data list.
Matti Hamalainen <ccr@tnsp.org>
parents: 250
diff changeset
1046 echo "\"".$compo["id"]."\":\"".chentities($compo["name"])."\"";
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
1047 }
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
1048 break;
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
1049
257
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1050 case "entry":
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1051 $res = stFetchSQL(stPrepareSQL("SELECT * FROM entries WHERE id=%D", "id"));
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1052 if ($res !== FALSE)
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1053 echo stGetEntryItemData($res["id"], $res, "en");
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1054 break;
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1055
250
34f540cea1ff Some work on compo entry listing.
Matti Hamalainen <ccr@tnsp.org>
parents: 249
diff changeset
1056 case "entries":
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
1057 $id = intval(stGetRequestItem("id", 0));
250
34f540cea1ff Some work on compo entry listing.
Matti Hamalainen <ccr@tnsp.org>
parents: 249
diff changeset
1058 if (($compo = stFetchSQL("SELECT * FROM compos WHERE id=".$id)) !== false)
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1059 {
381
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1060 $nentries = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$id);
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1061 $prefix = "ne";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1062 echo
381
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1063 "<h1 style=\"margin-bottom: 0px;\">#".$id." - ".chentities($compo["name"]).
385
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1064 " (".$nentries." entries)</h1>\n";
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1065
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1066 if ($nentries > 0)
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1067 {
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1068 echo
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1069 stGetFormButtonInput("generate", "", "", " Add missing show positions ", "generateEntryPositions(".$id.", 1)")."\n".
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1070 stGetFormButtonInput("regenerate", "", "", " ReGenerate show positions ", "generateEntryPositions(".$id.", 0)")."\n";
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1071 }
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1072
8b8b0a83233b Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents: 382
diff changeset
1073 echo
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1074 "<form>\n".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1075 " <table class=\"misc\">\n".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1076 " <tr>\n".
113
671330b7f5d1 Add "show_id" to compo entries, to designate the position they were shown at
Matti Hamalainen <ccr@tnsp.org>
parents: 112
diff changeset
1077 " <th style=\"width:4%;\">S#</th>\n".
264
fb9bf61c9918 s/Title/Name/
Matti Hamalainen <ccr@tnsp.org>
parents: 262
diff changeset
1078 " <th>Name</th>\n".
29
4b5a176805e2 Moar work.
Matti Hamalainen <ccr@tnsp.org>
parents: 26
diff changeset
1079 " <th>Author(s)</th>\n".
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
1080 " <th>Filename</th>\n".
215
bfd480370a70 More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 214
diff changeset
1081 " <th>Info</th>\n".
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1082 " <th>Actions</th>\n".
381
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1083 " </tr>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1084 " <tr>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1085 " <td></td>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1086 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_NAME, "name", $id, $prefix, "")."</td>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1087 " <td>".stGetFormTextInput(15, SET_LEN_ENTRY_AUTHOR, "author", $id, $prefix, "")."</td>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1088 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_FILENAME, "filename", $id, $prefix, "")."</td>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1089 // " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_INFO, "info", $id, $prefix, "")."</td>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1090 " <td>".stGetFormTextArea(2, 30, "info", $id, $prefix, "")."</td>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1091 " <td>".stGetFormButtonInput("add", $id, $prefix, "Add new", "addEntry(".$id.")")."</td>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1092 " </tr>\n".
0ae6d3fb5688 Interface improvements.
Matti Hamalainen <ccr@tnsp.org>
parents: 378
diff changeset
1093 " <tr><td colspan=\"6\"><hr /></td></tr>\n";
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1094
223
532704115290 Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents: 216
diff changeset
1095 foreach (stExecSQL("SELECT * FROM entries WHERE compo_id=".$id) as $entry)
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1096 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1097 echo
257
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1098 " <tr id=\"entry".$entry["id"]."\">\n".
ef9a007c0876 Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents: 252
diff changeset
1099 stGetEntryItemData($entry["id"], $entry, "en").
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1100 " </tr>\n";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1101 }
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
1102
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1103 echo
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1104 " </table>\n".
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1105 "</form>\n";
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1106 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1107 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1108 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1109 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1110
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1111 case "delete":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1112 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1113 // Delete entry
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1114 //
208
8985d2bdb29b More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 207
diff changeset
1115 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data.")))
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1116 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1117 if ($type == "news")
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1118 {
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1119 $sql = stPrepareSQL("DELETE FROM news WHERE id=%d AND persist=0", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1120 stExecSQLCond($sql, "OK, news item ".$id." deleted.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1121 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1122 else
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1123 if ($type == "attendees")
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1124 {
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1125 // Attendees require some more work
302
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1126 $sql = stPrepareSQL("SELECT * FROM attendees WHERE id=%d", $id);
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1127 if (($attn = stFetchSQL($sql)) !== false)
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1128 {
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1129 $sql = stPrepareSQL("DELETE FROM attendees WHERE id=%d", $id);
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1130 stExecSQLCond($sql, "OK, attendee ".$id." deleted.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1131
305
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1132 // If assigned votekey mode, delete the key and votes as well
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1133 if ($voteKeyMode == VOTE_ASSIGN && $attn["key_id"] != 0)
302
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1134 {
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1135 $sql = stPrepareSQL("DELETE FROM votekeys WHERE id=%d", $attn["key_id"]);
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1136 stExecSQLCond($sql, "OK, attendee ".$id." votekey deleted.");
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1137
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1138 $sql = stPrepareSQL("DELETE FROM votes WHERE key_id=%d", $attn["key_id"]);
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1139 stExecSQLCond($sql, "OK, attendee ".$id." votes deleted.");
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1140 }
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1141 }
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1142 else
828fc30e3c94 Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents: 296
diff changeset
1143 stError("No such attendee ID #".$id);
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1144 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1145 else
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1146 if ($type == "entries")
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1147 {
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1148 // .. as do compo entries
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1149 $sql = stPrepareSQL("DELETE FROM entries WHERE id=%d", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1150 stExecSQLCond($sql, "OK, entry ".$id." deleted.");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1151
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1152 $sql = stPrepareSQL("DELETE FROM votes WHERE entry_id=%d", $id);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1153 stExecSQLCond($sql, "OK, entry ".$id." votes deleted.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1154 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1155 }
305
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1156 else
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1157 if ($type == "votekeys")
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1158 {
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1159 $sql = stPrepareSQL("DELETE FROM votekeys");
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1160 stExecSQLCond($sql, "OK, all votekeys purged");
b96c41bd9dd6 More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 302
diff changeset
1161 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1162 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1163
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1164 case "add":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1165 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1166 // Add new entry
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1167 //
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1168 if ($type == "news" && stValidateRequestNewsData())
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1169 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1170 $sql = stPrepareSQL(
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1171 "INSERT INTO news (utime,title,text,author) VALUES (%d,%S,%Q,%S)",
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1172 time(), "title", "text", "author");
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1173
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1174 stExecSQLCond($sql, "OK, news item added.");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1175 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1176 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1177 if ($type == "compo" && stValidateRequestCompoData(FALSE))
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1178 {
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1179 $sql = stPrepareSQL(
55
4fac95384753 Make visibility of entry authors per compo.
Matti Hamalainen <ccr@tnsp.org>
parents: 53
diff changeset
1180 "INSERT INTO compos (name,description,visible,voting,showAuthors) VALUES (%S,%Q,0,0,0)",
26
7be3f8cf1f7a Lots of cleanups, preparing for adding entry submission support.
Matti Hamalainen <ccr@tnsp.org>
parents: 24
diff changeset
1181 "name", "description");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1182
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1183 stExecSQLCond($sql, "OK, compo added.");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1184 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1185 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1186 if ($type == "attendees" && stValidateRequestUserData(TRUE))
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1187 {
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1188 $sql = stPrepareSQL(
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1189 "INSERT INTO attendees (regtime,name,groups,oneliner,email) VALUES (%d,%S,%S,%S,%S)",
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1190 time(), "name", "groups", "oneliner", "email");
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1191
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1192 stExecSQLCond($sql, "OK, attendee added.");
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1193 }
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1194 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1195 if ($type == "entry" && stValidateRequestEntryData($fake))
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
1196 {
296
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1197 if (stFetchSQLColumn(stPrepareSQL("SELECT id FROM compos WHERE id=%D", "compo_id")) === FALSE)
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1198 {
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1199 stError("No such compo ID.");
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1200 }
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1201 else
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1202 {
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1203 $sql = stPrepareSQL(
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1204 "INSERT INTO entries (name,author,compo_id,filename,info) VALUES (%S,%S,%D,%S,%Q)",
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1205 "name", "author", "compo_id", "filename", "info");
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
1206
296
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1207 stExecSQLCond($sql, "OK, entry added.");
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1208 }
59
e5e38ed4e837 Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents: 57
diff changeset
1209 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1210 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1211
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1212 case "update":
53
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1213 //
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1214 // Update existing entry
71256605546b More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents: 52
diff changeset
1215 //
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1216 if ($type == "settings")
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1217 {
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1218 foreach (stExecSQL("SELECT * FROM settings") as $item)
198
96ab189e5c03 Add some new helper functions and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 175
diff changeset
1219 if (($val = stGetRequestItem($item["key"], FALSE)) !== FALSE)
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1220 {
198
96ab189e5c03 Add some new helper functions and use them.
Matti Hamalainen <ccr@tnsp.org>
parents: 175
diff changeset
1221 $sql = "UPDATE settings SET ".stGetSettingSQL($item, $val)." WHERE key=".$db->quote($item["key"]);
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1222 stExecSQLCond($sql, "OK, setting updated.");
14
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1223 }
e36c4d2b09c4 Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents: 8
diff changeset
1224 }
366
9b266dcd1064 Oops, 10L for a missing else.
Matti Hamalainen <ccr@tnsp.org>
parents: 360
diff changeset
1225 else
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1226 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data.")))
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1227 {
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1228 if ($type == "attendees" && stValidateRequestUserData(TRUE))
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1229 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1230 $sql = stPrepareSQLUpdate("attendees",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1231 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1232 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1233 "name" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1234 "groups" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1235 "email" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1236 "oneliner" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1237 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1238
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1239 stExecSQLCond($sql, "OK, attendee updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1240 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1241 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1242 if ($type == "news" && stValidateRequestNewsData())
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1243 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1244 $sql = stPrepareSQLUpdate("news",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1245 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1246 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1247 "title" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1248 "text" => "Q",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1249 "author" => "S"
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1250 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1251
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1252 stExecSQLCond($sql, "OK, news item updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1253 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1254 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1255 if ($type == "compo" && stValidateRequestCompoData(TRUE))
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1256 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1257 $sql = stPrepareSQLUpdate("compos",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1258 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1259 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1260 "name" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1261 "description" => "Q",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1262 "visible" => "B",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1263 "voting" => "B",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1264 "showAuthors" => "B",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1265 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1266
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1267 stExecSQLCond($sql, "OK, compo updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1268 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1269 else
228
e3dd18b58e6c Rename some functions.
Matti Hamalainen <ccr@tnsp.org>
parents: 227
diff changeset
1270 if ($type == "entry" && stValidateRequestEntryData($compo_id))
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1271 {
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1272 if (stFetchSQLColumn("SELECT id FROM compos WHERE id=".$compo_id) === FALSE)
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1273 {
214
36423e8ab765 Improve input validation.
Matti Hamalainen <ccr@tnsp.org>
parents: 212
diff changeset
1274 stError("No such compo ID.");
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1275 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1276 else
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1277 {
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1278 $sql = stPrepareSQLUpdate("entries",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1279 "WHERE id=".intval(stGetRequestItem("id")),
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1280 array(
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1281 "name" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1282 "author" => "S",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1283 "filename" => "S",
296
bbdf1b9c5a07 Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents: 289
diff changeset
1284 "info" => "Q",
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1285 "compo_id" => "D",
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1286 ));
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1287
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1288 stExecSQLCond($sql, "OK, entry updated.");
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1289 }
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1290 }
308
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1291 else
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1292 if ($type == "votekey")
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1293 {
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1294 switch (stGetRequestItem("mode"))
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1295 {
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1296 case "assign":
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
1297 // Check if already assigned to someone ..
318
008406f27395 Allow clearing of key id.
Matti Hamalainen <ccr@tnsp.org>
parents: 314
diff changeset
1298 $key_id = intval(stGetRequestItem("key_id", 0));
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1299 $sql = stPrepareSQL("SELECT * FROM votekeys WHERE id=%d", $key_id);
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1300 if (stFetchSQL($sql) === false)
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1301 stError("Invalid key ID #.");
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1302 else
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
1303 {
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1304 $sql = stPrepareSQL("SELECT * FROM attendees WHERE key_id=%d", $key_id);
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1305 if (($attn = stFetchSQL($sql)) !== false && $attn["id"] != $id)
314
50527339b615 Make sure that the key ID # is valid.
Matti Hamalainen <ccr@tnsp.org>
parents: 313
diff changeset
1306 stError("That key has already been assigned to another attendee!");
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1307 else
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1308 {
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1309 // Assign ..
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1310 $sql = stPrepareSQL("UPDATE attendees SET key_id=%d WHERE id=%d", $key_id, $id);
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1311 stExecSQLCond($sql, "Assigned key updated.");
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1312 }
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
1313 }
319
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1314 break;
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1315
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1316 case "clear":
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1317 $sql = stPrepareSQL("UPDATE attendees SET key_id=NULL WHERE id=%D", "id");
623acd958944 Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents: 318
diff changeset
1318 stExecSQLCond($sql, "Assigned key cleared.");
308
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1319 break;
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1320
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1321 case "active":
312
9340eb112ccc Work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents: 309
diff changeset
1322 // Autobots activate!
320
a0a6131c37b4 Vote key activation.
Matti Hamalainen <ccr@tnsp.org>
parents: 319
diff changeset
1323 $sql = stPrepareSQL("UPDATE votekeys SET active=%B WHERE id=%D", "active", "id");
a0a6131c37b4 Vote key activation.
Matti Hamalainen <ccr@tnsp.org>
parents: 319
diff changeset
1324 stExecSQLCond($sql, "Votekey status changed.");
308
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1325 break;
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1326 }
3cfd95758377 A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents: 305
diff changeset
1327 }
209
3870601c17c3 More work.
Matti Hamalainen <ccr@tnsp.org>
parents: 208
diff changeset
1328 }
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1329 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1330
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1331 default:
66
230aacc22cb4 Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents: 61
diff changeset
1332 stSetStatus(404, "Not Found");
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1333 break;
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1334 }
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1335
378
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
1336 if (!$errorSet)
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
1337 stSaveDisplayVars();
5722c37aba2a It has begun.
Matti Hamalainen <ccr@tnsp.org>
parents: 377
diff changeset
1338
211
5bae42020034 Factorize some code into msitegen.
Matti Hamalainen <ccr@tnsp.org>
parents: 210
diff changeset
1339 stDumpAJAXStatusErrors();
0
8019b357cc03 Initial import.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1340 ?>