Mercurial > hg > fapweb
annotate admajax.php @ 395:9f95b27b8e52
Backend fixes.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 05 Dec 2013 12:19:43 +0200 |
parents | 14cdbeb331b6 |
children | 2b77599d0324 |
rev | line source |
---|---|
0 | 1 <? |
56 | 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 | 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 | 11 |
214 | 12 |
228 | 13 function stValidateRequestCompoData($full) |
214 | 14 { |
15 if (!stChkRequestItem("name", $fake, | |
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 | 18 !stChkRequestItem("description", $fake, |
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 | 21 return FALSE; |
22 | |
23 if (!$full) | |
24 return TRUE; | |
25 | |
26 return | |
27 stChkRequestItem("visible", $fake, | |
28 array(CHK_TYPE, VT_BOOL, "Invalid data.") | |
29 ) && | |
30 stChkRequestItem("voting", $fake, | |
31 array(CHK_TYPE, VT_BOOL, "Invalid data.") | |
32 ) && | |
33 stChkRequestItem("showAuthors", $fake, | |
34 array(CHK_TYPE, VT_BOOL, "Invalid data.") | |
35 ); | |
36 } | |
37 | |
38 | |
228 | 39 function stValidateRequestEntryData(&$compo_id) |
214 | 40 { |
41 return | |
42 stChkRequestItem("name", $fake, | |
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 | 45 ) && |
46 stChkRequestItem("author", $fake, | |
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 | 49 ) && |
50 stChkRequestItem("filename", $fake, | |
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 | 53 ) && |
54 stChkRequestItem("info", $fake, | |
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 | 57 ) && |
58 stChkRequestItem("compo_id", $compo_id, | |
59 array(CHK_TYPE, VT_INT, "Invalid compo ID.") | |
60 ); | |
61 } | |
62 | |
63 | |
228 | 64 function stValidateRequestNewsData() |
214 | 65 { |
66 return | |
67 stChkRequestItem("text", $fake, | |
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 | 70 ) && |
71 stChkRequestItem("author", $fake, | |
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 | 74 ) && |
75 stChkRequestItem("title", $fake, | |
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 | 78 ); |
79 } | |
80 | |
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 | 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 | 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 | 147 function stGetVoteKeyItemData($id, $item, $prefix) |
148 { | |
149 global $voteKeyMode, $voteKeyLen; | |
150 | |
151 switch ($voteKeyMode) | |
152 { | |
153 case VOTE_FREELY: | |
154 case VOTE_ACTIVATE: | |
155 $str = sprintf( | |
156 "<span class=\"keyid\">%03d</span> : ". | |
157 "<span class=\"keycode\">%s</span>", | |
158 $id, | |
159 str_repeat(" ", $voteKeyLen - strlen($item["key"])).$item["key"]); | |
160 | |
161 if ($voteKeyMode == VOTE_ACTIVATE) | |
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 | 164 "class=\"keyactive\" onClick=\"voteKeySetActive(".$id.")\"", ""); |
312 | 165 } |
166 | |
167 return $str; | |
168 | |
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 | 171 " <td class=\"name\">".chentities($item["name"])."</td>\n". |
172 " <td class=\"groups\">".chentities($item["groups"])."</td>\n". | |
173 " <td class=\"vkeynum\">". | |
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 | 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 " : <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 | 191 } |
192 } | |
193 | |
194 | |
214 | 195 function stGetSaveButton() |
196 { | |
197 return "<input type=\"submit\" value=\" Save \" />\n"; | |
198 } | |
199 | |
200 | |
374 | 201 function stGetOptionList($id, $sql, $iname, $active, $onChange = "") |
371 | 202 { |
374 | 203 $str = |
204 "<select class=\"selectBox\" id=\"".$id."\" size=\"10\"". | |
205 ($onChange != "" ? " onChange=\"".$onChange."\"" : "").">\n"; | |
206 | |
207 if (($res = stExecSQL($sql)) !== false) | |
208 { | |
209 foreach ($res as $item) | |
210 { | |
211 $str .= "<option value=\"".$item["id"]."\"". | |
212 ($active == $item["id"] ? " selected=\"selected\"" : ""). | |
213 ">".chentities($item[$iname])."</option>\n"; | |
214 } | |
215 } | |
216 | |
217 return $str."</select>\n"; | |
218 } | |
219 | |
220 | |
221 function stGetShowModeButton($mode, $name, $cmode) | |
222 { | |
223 return stGetFormRadioButtonInput( | |
224 "showMode", "", "", $mode, | |
225 $cmode == $mode, | |
226 $name, | |
390
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
227 "onClick=\"setShowMode(".$mode.")\""); |
374 | 228 } |
229 | |
230 | |
373 | 231 function stRandomizeCompoShowOrder($compo_id, $patch) |
232 { | |
233 $entries = stExecSQL("SELECT id,show_id FROM entries WHERE compo_id=".$compo_id); | |
371 | 234 if ($entries !== FALSE) |
235 { | |
376
55007fe09371
And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
375
diff
changeset
|
236 $ncount = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$compo_id." AND show_id<>0"); |
371 | 237 $final = array(); |
373 | 238 |
376
55007fe09371
And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
375
diff
changeset
|
239 if ($patch && $ncount > 0) |
373 | 240 { |
376
55007fe09371
And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
375
diff
changeset
|
241 $index = -1; |
373 | 242 foreach ($entries as $entry) |
243 { | |
244 if ($entry["show_id"] == 0) | |
245 $final[] = $entry["id"]; | |
372 | 246 |
373 | 247 if ($entry["show_id"] > $index) |
248 $index = $entry["show_id"]; | |
249 } | |
376
55007fe09371
And some more work on the backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
375
diff
changeset
|
250 |
373 | 251 $index++; |
252 } | |
253 else | |
254 { | |
255 foreach ($entries as $entry) | |
256 $final[] = $entry["id"]; | |
372 | 257 |
373 | 258 shuffle($final); |
259 $index = 1; | |
260 } | |
261 | |
371 | 262 foreach ($final as $entry) |
263 { | |
264 $sql = stPrepareSQL("UPDATE entries SET show_id=%d WHERE id=%d", $index, $entry); | |
265 if (stExecSQL($sql) === false) | |
266 { | |
267 stError("Error updating entry show positions."); | |
268 break; | |
269 } | |
270 $index++; | |
271 } | |
272 } | |
273 } | |
274 | |
275 | |
214 | 276 // |
0 | 277 // Check if we are allowed to execute |
214 | 278 // |
360
2af8458058ab
Implement CSRF token checks.
Matti Hamalainen <ccr@tnsp.org>
parents:
352
diff
changeset
|
279 if (!stCheckHTTPS() || !stAdmSessionAuth() || !stCSRFCheck()) |
0 | 280 { |
59
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
281 stSetupCacheControl(); |
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
282 |
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
283 stSessionEnd(SESS_ADMIN); |
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
284 |
123
5837b9333964
Add new "about" page, and setting for default page.
Matti Hamalainen <ccr@tnsp.org>
parents:
116
diff
changeset
|
285 header("Location: ".stGetSetting("defaultPage")); |
0 | 286 exit; |
287 } | |
288 | |
214 | 289 |
290 // | |
291 // Initialize | |
292 // | |
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
293 stSetupCacheControl(); |
0 | 294 |
295 if (!stConnectSQLDB()) | |
296 die("Could not connect to SQL database."); | |
297 | |
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
298 stReloadSettings(); |
378 | 299 stReloadDisplayVars(); |
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
300 |
0 | 301 |
305
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
302 $voteKeyMode = stGetSetting("voteKeyMode"); |
312 | 303 $voteKeyLen = stGetSetting("userKeyLength"); |
208
8985d2bdb29b
More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
207
diff
changeset
|
304 $type = stGetRequestItem("type", ""); |
8985d2bdb29b
More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
207
diff
changeset
|
305 switch (stGetRequestItem("action", "")) |
0 | 306 { |
370
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
307 case "randomize": |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
308 // |
370
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
309 // Randomize entries display order |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
310 // |
373 | 311 $patch = intval(stGetRequestItem("patch", 1)); |
371 | 312 if ($type == "all") |
0 | 313 { |
371 | 314 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
|
315 stError("Eh? SQL error occured."); |
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
316 else |
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
317 foreach ($compos as $compo) |
373 | 318 stRandomizeCompoShowOrder($compo["id"], $patch); |
371 | 319 } |
320 else | |
321 if ($type == "compo") | |
322 { | |
323 if (stChkRequestItem("id", $compo_id, array(CHK_TYPE, VT_INT, "Invalid data."))) | |
373 | 324 stRandomizeCompoShowOrder($compo_id, $patch); |
370
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
325 } |
375 | 326 break; |
327 | |
328 case "check": | |
329 // | |
330 // Perform systems check | |
331 // | |
377
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
332 $errors = 0; |
375 | 333 echo |
334 "<h1>Competitions / voting</h1>\n". | |
335 "<ul>\n"; | |
336 | |
337 echo "<li>".(stGetSetting("allowVoting") ? "Voting <b>IS ENABLED</b>." : "Voting is NOT enabled!")."</li>\n"; | |
338 | |
339 if (($compos = stExecSQL("SELECT * FROM compos")) === FALSE) | |
340 stError("Eh? SQL error occured."); | |
370
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
341 else |
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
342 { |
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
343 foreach ($compos as $compo) |
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
344 { |
373 | 345 $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
|
346 if ($nentries > 0) |
377
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
347 { |
375 | 348 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
|
349 $errors++; |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
350 } |
370
d65f28bf1080
Add backend code for generating entry show positions.
Matti Hamalainen <ccr@tnsp.org>
parents:
366
diff
changeset
|
351 } |
0 | 352 } |
377
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
353 |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
354 $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
|
355 if ($nenabled == 0) |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
356 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
|
357 |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
358 $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
|
359 if ($nenabled > 0) |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
360 echo "<li>".$nenabled." competitions that are NOT visible, but are enabled for voting?</li>\n"; |
381 | 361 |
362 $entries = stFetchSQL("SELECT COUNT(*) AS nentries, COUNT(DISTINCT compo_id) AS ncompos FROM entries"); | |
363 if ($entries !== FALSE) | |
364 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
|
365 |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
366 if ($errors == 0) |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
367 echo "<li>No errors/warnings detected.</li>\n"; |
f7b53225d315
Add some more sanity checking.
Matti Hamalainen <ccr@tnsp.org>
parents:
376
diff
changeset
|
368 |
375 | 369 echo "</ul>\n"; |
370 | |
0 | 371 break; |
372 | |
390
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
373 case "ctrl": |
392 | 374 // |
375 // Party information system control | |
376 // | |
390
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
377 switch ($type) |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
378 { |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
379 case "setTempSlide": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
380 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
381 |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
382 case "setShowMode": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
383 if (stChkRequestItem("mode", $mode, |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
384 array(CHK_TYPE, VT_INT, "Invalid data."), |
391 | 385 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
|
386 { |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
387 $prev = stGetDisplayVar("showMode"); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
388 if ($prev != $mode) |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
389 { |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
390 stSetDisplayVar("lastUpdate", time()); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
391 stSetDisplayVar("showMode", $mode); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
392 } |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
393 } |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
394 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
395 |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
396 case "setCompoID": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
397 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
|
398 { |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
399 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
|
400 stError("Invalid compo ID ".$compo_id); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
401 else |
395 | 402 { |
403 $prev = stGetDisplayVar("compoID"); | |
404 if ($prev != $compo_id) | |
405 { | |
406 stSetDisplayVar("compoCurrEntry", 1); | |
407 stSetDisplayVar("compoPrevEntry", 0); | |
408 stSetDisplayVar("compoID", $compo_id); | |
409 } | |
410 } | |
390
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
411 } |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
412 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
413 |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
414 case "setEntry": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
415 case "nextEntry": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
416 case "prevEntry": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
417 if (($compo_id = stGetDisplayVar("compoID")) > 0) |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
418 { |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
419 $prev = $curr = stGetDisplayVar("compoCurrEntry"); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
420 $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
|
421 switch ($type) |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
422 { |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
423 case "setEntry": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
424 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
|
425 $curr = $tmp; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
426 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
427 |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
428 case "nextEntry": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
429 if ($curr < $nentries) |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
430 $curr++; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
431 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
432 |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
433 case "prevEntry": |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
434 if ($curr > 1) |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
435 $curr--; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
436 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
437 } |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
438 |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
439 if (!$errorSet) |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
440 { |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
441 stSetDisplayVar("compoCurrEntry", $curr); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
442 stSetDisplayVar("compoPrevEntry", $prev); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
443 } |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
444 } |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
445 else |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
446 stError("No valid competition set."); |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
447 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
448 } |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
449 break; |
3257ae94ba1c
Work on show display backend logic.
Matti Hamalainen <ccr@tnsp.org>
parents:
385
diff
changeset
|
450 |
0 | 451 case "get": |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
452 // |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
453 // Get specific data |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
454 // |
0 | 455 switch ($type) |
456 { | |
393 | 457 case "infoEditList": |
458 echo | |
459 "<div class=\"ctrlBox\" id=\"ctrlEditRotationList\">\n". | |
460 " <div class=\"ctrlTitle\">Edit rotation list</div>\n". | |
461 " ".stGetFormTextInput(30, 128, "fdsaf", "", "", "")."<br />\n". | |
462 stGetOptionList("ctrlEDRotationLists", | |
463 "SELECT * FROM displaySlides WHERE id=1", | |
464 "title", | |
465 0, | |
466 "selectedListSlide(this)"). | |
467 stGetOptionList("ctrlEDDisplaySlides", | |
468 "SELECT displaySlides.* FROM displaySlides ". | |
469 "LEFT JOIN displayListSlides ON displaySlides.id=displayListSlides.slide_id ". | |
470 "WHERE displayListSlides.list_id=1 ". | |
471 "ORDER BY displayListSlides.order_num DESC", | |
472 "title", | |
473 0, | |
474 "selectedDisplaySlide(this)"). | |
475 " <div class=\"ctrlButtons\">\n". | |
476 " ".stGetFormButtonInput("addslide", "", "", "Add slide", "addListSlide()")."\n". | |
477 " ".stGetFormButtonInput("delslide", "", "", "Remove slide", "removeListSlide()")."\n". | |
478 " </div>\n". | |
479 "</div>\n"; | |
480 break; | |
481 | |
482 case "infoEditSlide": | |
483 echo | |
484 "<div class=\"ctrlBox\" id=\"ctrlEditDisplaySlide\">\n". | |
485 " <form method=\"post\" action=\"\" onsubmit=\"return updateDisplaySlide()\">\n". | |
486 " <div class=\"ctrlTitle\">Create a new display slide</div>\n". | |
487 " ".stGetFormTextInput(40, 128, "fdsaf", "", "", "")."<br />\n". | |
488 " ".stGetFormTextArea(5, 40, "asdf", "", "", "")."<br />\n". | |
489 " <div class=\"ctrlButtons\">\n". | |
490 " ".stGetFormButtonInput("cancelslide", "", "", "Clear", "this.form.reset()")."\n". | |
491 " ".stGetFormButtonInput("cancelslide", "", "", "Cancel", "cancelDisplaySlide()")."\n". | |
492 " ".stGetFormSubmitInput("createslide", "Create slide")."\n". | |
493 " </div>\n". | |
494 " </form>\n". | |
495 "</div>\n"; | |
496 break; | |
497 | |
498 case "info": | |
378 | 499 $showMode = stGetDisplayVar("showMode"); |
500 echo | |
501 "<div id=\"ctrlGlobalControls\">\n". | |
385
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
502 "<div>\n". |
378 | 503 "Active mode:\n". |
391 | 504 stGetShowModeButton(SMODE_DISABLED, "Off/disabled", $showMode)."\n". |
378 | 505 stGetShowModeButton(SMODE_ROTATE, "Slide rotation", $showMode)."\n". |
506 stGetShowModeButton(SMODE_COMPO, "Compo mode", $showMode)."\n". | |
392 | 507 "</div>\n". |
508 "<div>\n". | |
378 | 509 stGetFormButtonInput("syscheck", "", "", " Perform system check ", "performSystemCheck()")."\n". |
510 stGetFormButtonInput("generate", "", "", " Add missing show positions ", "generateEntryPositions(0, 1)")."\n". | |
385
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
511 stGetFormButtonInput("regenerate", "", "", " ReGenerate ALL show positions ", "generateEntryPositions(0, 0)")."\n". |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
512 "</div>\n". |
378 | 513 "</div>\n"; |
393 | 514 |
515 echo | |
516 "<div class=\"ctrlBox\" id=\"ctrlListRotationLists\">\n". | |
517 " <div class=\"ctrlTitle\">Rotation lists:</div>\n". | |
518 stGetOptionList("ctrlRotationLists", | |
519 "SELECT * FROM displayListData ORDER BY id DESC", | |
520 "name", | |
521 0, | |
522 "selectedRotationList(this)"). | |
523 " <div class=\"ctrlButtons\">\n". | |
524 " ".stGetFormButtonInput("sellist", "", "", "Set Active", "activateRotationList()")."\n". | |
525 " ".stGetFormButtonInput("newlist", "", "", "Edit", "newRotationList()")."\n". | |
526 " ".stGetFormButtonInput("newlist", "", "", "New", "newRotationList()")."\n". | |
527 " ".stGetFormButtonInput("dellist", "", "", "Delete", "deleteRotationList()")."\n". | |
528 " </div>\n". | |
529 "</div>\n"; | |
530 | |
531 echo | |
532 "<div class=\"ctrlBox\" id=\"ctrlListDisplaySlides\">\n". | |
533 "<div class=\"ctrlTitle\">Display slides:</div>\n". | |
534 stGetOptionList("ctrlDisplaySlides", | |
535 "SELECT * FROM displaySlides ORDER BY id DESC", | |
536 "title", | |
537 0, | |
538 "selectedDisplaySlide(this)"). | |
539 " <div class=\"ctrlButtons\">\n". | |
540 " ".stGetFormTextInput(3, 5, "tempDuration", "", "", stGetDisplayVar("tempDuration"))." min\n". | |
541 " ".stGetFormButtonInput("setslide", "", "", "Set Temp", "activateTempSlide()")."\n". | |
542 " ".stGetFormButtonInput("newslide", "", "", "New", "newDisplaySlide()")."\n". | |
543 " ".stGetFormButtonInput("delslide", "", "", "Delete", "deleteDisplaySlide()")."\n". | |
544 " </div>\n". | |
545 "</div>\n"; | |
546 | |
547 echo | |
548 "<div class=\"ctrlBox\" id=\"ctrlCompoControl\">\n". | |
549 "<div class=\"ctrlTitle\">Competition control:</div>\n". | |
550 "<div class=\"ctrlDBox\">\n". | |
551 stGetOptionList("ctrlCompoList", | |
552 "SELECT * FROM compos ORDER BY id DESC", | |
553 "name", | |
554 0, | |
555 "selectedCompo(this)"). | |
556 " <div class=\"ctrlButtons\">\n". | |
557 " ".stGetFormButtonInput("setcompo", "", "", "Change compo", "activateCompo()")."\n". | |
558 " </div>\n". | |
559 "</div>\n". | |
560 "<div class=\"ctrlDBox\">\n". | |
561 stGetOptionList("ctrlEntryList", | |
562 "SELECT * FROM entries WHERE compo_id=3 ORDER BY show_id ASC", | |
563 "name", | |
564 0, | |
565 "selectedCompo(this)"). | |
566 " <div class=\"ctrlButtons\">\n". | |
567 " ".stGetFormButtonInput("setentry", "", "", "Set selected entry", "setSelectedEntry()")."\n". | |
568 " ".stGetFormButtonInput("nextentry", "", "", "Prev entry", "gotoPrevEntry()")."\n". | |
569 " ".stGetFormButtonInput("preventry", "", "", "Next entry", "gotoNextEntry()")."\n". | |
570 " </div>\n". | |
571 "</div>\n". | |
572 "</div>\n"; | |
573 | |
378 | 574 break; |
575 | |
0 | 576 case "news": |
265 | 577 echo |
578 "<form method=\"post\" action=\"\" onsubmit=\"return addNews()\">\n". | |
579 " ".stGetFormTextInput(40, SET_LEN_NEWS_TITLE, "", "nntitle", "", "")."<br />\n". | |
580 " ".stGetFormTextArea(5, 60, "", "nntext", "", "")."<br />\n". | |
581 " ".stGetFormTextInput(20, SET_LEN_NEWS_AUTHOR, "", "nnauthor", "", "orgaz")."\n". | |
582 " ".stGetFormSubmitInput("nnadd", "Add post")."\n". | |
583 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n". | |
584 "</form>\n". | |
585 "<hr />\n"; | |
586 | |
0 | 587 $sql = "SELECT * FROM news ORDER BY utime DESC"; |
265 | 588 foreach (stExecSQL($sql) as $item) |
589 { | |
590 echo | |
591 "<div id=\"news".$item["id"]."\">\n". | |
592 stGetNewsItemData($item["id"], $item, "ne"). | |
593 "</div>\n". | |
594 "<hr />\n"; | |
595 } | |
0 | 596 break; |
597 | |
223
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
598 case "newsitem": |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
599 $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
|
600 if ($res !== FALSE) |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
601 echo stGetNewsItemData($res["id"], $res, "ne"); |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
602 break; |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
603 |
0 | 604 case "attendees": |
272
cd3283333ec1
Add link for printing out email addresses of participants.
Matti Hamalainen <ccr@tnsp.org>
parents:
270
diff
changeset
|
605 echo |
273
39c247babc0c
Make the print links look a bit nicer.
Matti Hamalainen <ccr@tnsp.org>
parents:
272
diff
changeset
|
606 "<div class=\"tabHeadersSub\">\n". |
275 | 607 "<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
|
608 "</div>\n"; |
cd3283333ec1
Add link for printing out email addresses of participants.
Matti Hamalainen <ccr@tnsp.org>
parents:
270
diff
changeset
|
609 |
265 | 610 // For adding a new one |
611 $prefix = "ne"; | |
612 echo | |
613 "<table>\n". | |
614 " <tr>\n". | |
615 " <th>Name</th>\n". | |
616 " <th>Groups</th>\n". | |
617 " <th>Oneliner</th>\n". | |
618 " <th>E-mail</th>\n". | |
619 " <th>Actions</th>\n". | |
620 " </tr>\n". | |
621 " <tr>\n". | |
622 " <td>".stGetFormTextInput(20, SET_LEN_USERNAME, "name", "x", $prefix, "")."</td>\n". | |
623 " <td>".stGetFormTextInput(20, SET_LEN_GROUPS, "groups", "x", $prefix, "")."</td>\n". | |
624 " <td>".stGetFormTextInput(30, SET_LEN_ONELINER, "oneliner", "x", $prefix, "")."</td>\n". | |
625 " <td>".stGetFormTextInput(20, SET_LEN_EMAIL, "email", "x", $prefix, "")."</td>\n". | |
626 " <td>".stGetFormButtonInput("add", "", $prefix, " Add new ", "addAttendee()")."</td>\n". | |
627 " </tr>\n". | |
628 "</table>\n". | |
629 "<hr />\n"; | |
630 | |
631 // List of attendees | |
632 echo | |
633 "<table class=\"attendees\">\n". | |
634 " <tr>\n". | |
635 " <th class=\"name\">Name</th>\n". | |
636 " <th class=\"groups\">Groups</th>\n". | |
637 " <th class=\"regtime\">Registered</th>\n". | |
638 " <th class=\"oneliner\">Oneliner</th>\n". | |
639 " <th class=\"email\">E-mail</th>\n". | |
640 " <th>Actions</th>\n". | |
641 " </tr>\n"; | |
642 | |
0 | 643 $sql = "SELECT * FROM attendees ORDER BY regtime DESC"; |
265 | 644 $row = 0; |
645 foreach (stExecSQL($sql) as $item) | |
646 stPrintAttendee($item, $row++, TRUE, TRUE, FALSE); | |
647 | |
648 echo | |
649 "</table>\n"; | |
0 | 650 break; |
651 | |
205
77d33161f8be
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
204
diff
changeset
|
652 case "attendee": |
77d33161f8be
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
204
diff
changeset
|
653 $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
|
654 if ($res !== FALSE) |
77d33161f8be
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
204
diff
changeset
|
655 stPrintAttendee($res, -1, FALSE, TRUE, stGetRequestItem("edit", FALSE)); |
77d33161f8be
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
204
diff
changeset
|
656 break; |
77d33161f8be
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
204
diff
changeset
|
657 |
312 | 658 case "votekey": |
321
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
659 case "votekeyclass": |
312 | 660 switch ($voteKeyMode) |
661 { | |
662 case VOTE_FREELY: | |
663 case VOTE_ACTIVATE: | |
664 $sql = stPrepareSQL("SELECT * FROM votekeys WHERE id=%D", "id"); | |
665 break; | |
666 | |
667 case VOTE_ASSIGN: | |
668 $sql = stPrepareSQL("SELECT votekeys.key,attendees.* FROM attendees ". | |
669 "LEFT JOIN votekeys ON votekeys.id=attendees.key_id ". | |
670 "WHERE attendees.id=%D", "id"); | |
671 break; | |
672 } | |
673 if (($res = stFetchSQL($sql)) !== FALSE) | |
321
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
674 { |
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
675 if ($type == "votekeyclass") |
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
676 echo stGetVoteKeyClass($res); |
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
677 else |
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
678 echo stGetVoteKeyItemData($res["id"], $res, "vk"); |
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
679 } |
312 | 680 break; |
681 | |
105
a85f258f6beb
Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents:
90
diff
changeset
|
682 case "voters": |
270
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
683 // Generate vote keys, if needed |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
684 $numVKeys = stFetchSQLColumn("SELECT COUNT(*) FROM votekeys"); |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
685 $numUsers = stFetchSQLColumn("SELECT COUNT(*) FROM attendees"); |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
686 while ($numVKeys < $numUsers) |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
687 { |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
688 if (($key = stGenerateUserKey()) !== false) |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
689 { |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
690 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
|
691 $numVKeys++; |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
692 } |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
693 } |
589b44acb74a
More work on votekey admin.
Matti Hamalainen <ccr@tnsp.org>
parents:
269
diff
changeset
|
694 |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
695 // List of votekeys |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
696 echo |
305
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
697 "<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
|
698 "<div class=\"tabHeadersSub\">\n". |
275 | 699 "<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
|
700 "</div>\n"; |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
701 |
305
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
702 switch ($voteKeyMode) |
116
a95facb41c86
Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
113
diff
changeset
|
703 { |
a95facb41c86
Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
113
diff
changeset
|
704 case VOTE_FREELY: |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
705 case VOTE_ACTIVATE: |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
706 $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
|
707 |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
708 foreach (stExecSQL($sql) as $item) |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
709 { |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
710 // This funny code is to ensure that the cells are of uniform width |
312 | 711 echo |
321
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
712 "<div class=\"".stGetVoteKeyClass($item). |
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
713 "\" id=\"vkey".$item["id"]."\">". |
312 | 714 stGetVoteKeyItemData($item["id"], $item, "vk"). |
320 | 715 "</div>\n"; |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
716 } |
116
a95facb41c86
Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
113
diff
changeset
|
717 break; |
a95facb41c86
Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
113
diff
changeset
|
718 |
a95facb41c86
Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
113
diff
changeset
|
719 case VOTE_ASSIGN: |
308
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
720 $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
|
721 "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
|
722 "ORDER BY attendees.regtime DESC"; |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
723 |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
724 echo |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
725 "<table class=\"attendees\">\n". |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
726 " <tr>\n". |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
727 " <th class=\"name\">Name</th>\n". |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
728 " <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
|
729 " <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
|
730 " <th class=\"vkey\">Votekey</th>\n". |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
731 " </tr>\n"; |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
732 |
312 | 733 $index = 0; |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
734 foreach (stExecSQL($sql) as $item) |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
735 { |
308
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
736 echo |
321
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
737 " <tr class=\"".stGetVoteKeyClass($item). |
9462a59d3ab3
Votekey activation usability improvements.
Matti Hamalainen <ccr@tnsp.org>
parents:
320
diff
changeset
|
738 "\" id=\"vkey".$item["id"]."\">\n". |
312 | 739 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
|
740 " </tr>\n"; |
269
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
741 } |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
742 |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
743 echo |
46138f8478e5
Work on votekey management.
Matti Hamalainen <ccr@tnsp.org>
parents:
266
diff
changeset
|
744 "</table>\n"; |
116
a95facb41c86
Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
113
diff
changeset
|
745 break; |
a95facb41c86
Some preliminary work on the votekey administration backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
113
diff
changeset
|
746 } |
105
a85f258f6beb
Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents:
90
diff
changeset
|
747 break; |
a85f258f6beb
Move some things around and modularize the code.
Matti Hamalainen <ccr@tnsp.org>
parents:
90
diff
changeset
|
748 |
0 | 749 case "compos": |
265 | 750 echo |
751 "<form method=\"post\" action=\"\" onsubmit=\"return addCompo()\">\n". | |
752 " ".stGetFormTextInput(64, SET_LEN_COMPO_NAME, "", "ncname", "", "")."<br />\n". | |
753 " ".stGetFormTextArea(5, 60, "", "ncdescription", "", "")."<br />\n". | |
754 " ".stGetFormSubmitInput("nccompo", "Add compo")."\n". | |
755 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n". | |
756 "</form>\n". | |
757 "<hr />\n"; | |
758 | |
0 | 759 $sql = "SELECT * FROM compos ORDER BY id DESC"; |
265 | 760 foreach (stExecSQL($sql) as $item) |
761 { | |
762 echo | |
763 "<div id=\"compo".$item["id"]."\">\n". | |
764 stGetCompoData($item["id"], $item, "co"). | |
765 "</div>\n". | |
766 "<hr />\n"; | |
767 } | |
0 | 768 break; |
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
769 |
223
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
770 case "compo": |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
771 $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
|
772 if ($res !== FALSE) |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
773 echo stGetCompoData($res["id"], $res, "co"); |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
774 break; |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
775 |
352 | 776 |
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
777 case "settings": |
14
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
778 $prefix = "st"; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
779 |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
780 echo |
16 | 781 "<h1>Site settings</h1>\n". |
201
a4be19c4d99d
Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents:
198
diff
changeset
|
782 "<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
|
783 "<table>\n"; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
784 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
|
785 { |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
786 echo |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
787 " <tr>\n". |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
788 " <td>"; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
789 $id = $item["key"]; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
790 switch ($item["vtype"]) |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
791 { |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
792 case VT_INT: |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
793 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
|
794 break; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
795 case VT_STR: |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
796 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
|
797 break; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
798 case VT_BOOL: |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
799 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
|
800 break; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
801 } |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
802 echo "</td>\n". |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
803 " <td>".$item["desc"]."</td>\n". |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
804 " </tr>\n"; |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
805 } |
214 | 806 echo "</table>\n".stGetSaveButton(); |
14
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
807 |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
808 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
|
809 { |
214 | 810 echo |
811 "<h2>".chentities($item["desc"])."</h2>\n". | |
812 stGetFormTextArea(10, 60, "", $item["key"], $prefix, $item["vtext"]). | |
813 "\n<br />\n". | |
814 stGetSaveButton(); | |
14
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
815 } |
201
a4be19c4d99d
Modularize admin pages tab system.
Matti Hamalainen <ccr@tnsp.org>
parents:
198
diff
changeset
|
816 echo "</form>\n"; |
8
4c5f651aa107
Migrate certain settings to SQL database, cleanups, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
5
diff
changeset
|
817 break; |
0 | 818 |
250
34f540cea1ff
Some work on compo entry listing.
Matti Hamalainen <ccr@tnsp.org>
parents:
249
diff
changeset
|
819 case "compolist": |
249
6927edc7e266
Get compo name list as JSON.
Matti Hamalainen <ccr@tnsp.org>
parents:
228
diff
changeset
|
820 $index = 0; |
223
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
821 foreach (stExecSQL("SELECT * FROM compos") as $compo) |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
822 { |
249
6927edc7e266
Get compo name list as JSON.
Matti Hamalainen <ccr@tnsp.org>
parents:
228
diff
changeset
|
823 if ($index++ > 0) echo ","; |
251
1953d5025531
Alter the JSON format of the compo data list.
Matti Hamalainen <ccr@tnsp.org>
parents:
250
diff
changeset
|
824 echo "\"".$compo["id"]."\":\"".chentities($compo["name"])."\""; |
223
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
825 } |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
826 break; |
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
827 |
257
ef9a007c0876
Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents:
252
diff
changeset
|
828 case "entry": |
ef9a007c0876
Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents:
252
diff
changeset
|
829 $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
|
830 if ($res !== FALSE) |
ef9a007c0876
Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents:
252
diff
changeset
|
831 echo stGetEntryItemData($res["id"], $res, "en"); |
ef9a007c0876
Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents:
252
diff
changeset
|
832 break; |
ef9a007c0876
Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents:
252
diff
changeset
|
833 |
250
34f540cea1ff
Some work on compo entry listing.
Matti Hamalainen <ccr@tnsp.org>
parents:
249
diff
changeset
|
834 case "entries": |
223
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
835 $id = intval(stGetRequestItem("id", 0)); |
250
34f540cea1ff
Some work on compo entry listing.
Matti Hamalainen <ccr@tnsp.org>
parents:
249
diff
changeset
|
836 if (($compo = stFetchSQL("SELECT * FROM compos WHERE id=".$id)) !== false) |
0 | 837 { |
381 | 838 $nentries = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$id); |
839 $prefix = "ne"; | |
0 | 840 echo |
381 | 841 "<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
|
842 " (".$nentries." entries)</h1>\n"; |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
843 |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
844 if ($nentries > 0) |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
845 { |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
846 echo |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
847 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
|
848 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
|
849 } |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
850 |
8b8b0a83233b
Add compo entry show position buttons to individual compos.
Matti Hamalainen <ccr@tnsp.org>
parents:
382
diff
changeset
|
851 echo |
0 | 852 "<form>\n". |
853 " <table class=\"misc\">\n". | |
854 " <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
|
855 " <th style=\"width:4%;\">S#</th>\n". |
264 | 856 " <th>Name</th>\n". |
29 | 857 " <th>Author(s)</th>\n". |
59
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
858 " <th>Filename</th>\n". |
215
bfd480370a70
More work on input validation.
Matti Hamalainen <ccr@tnsp.org>
parents:
214
diff
changeset
|
859 " <th>Info</th>\n". |
0 | 860 " <th>Actions</th>\n". |
381 | 861 " </tr>\n". |
862 " <tr>\n". | |
863 " <td></td>\n". | |
864 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_NAME, "name", $id, $prefix, "")."</td>\n". | |
865 " <td>".stGetFormTextInput(15, SET_LEN_ENTRY_AUTHOR, "author", $id, $prefix, "")."</td>\n". | |
866 " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_FILENAME, "filename", $id, $prefix, "")."</td>\n". | |
867 // " <td>".stGetFormTextInput(20, SET_LEN_ENTRY_INFO, "info", $id, $prefix, "")."</td>\n". | |
868 " <td>".stGetFormTextArea(2, 30, "info", $id, $prefix, "")."</td>\n". | |
869 " <td>".stGetFormButtonInput("add", $id, $prefix, "Add new", "addEntry(".$id.")")."</td>\n". | |
870 " </tr>\n". | |
871 " <tr><td colspan=\"6\"><hr /></td></tr>\n"; | |
0 | 872 |
223
532704115290
Make it possible to update news entries.
Matti Hamalainen <ccr@tnsp.org>
parents:
216
diff
changeset
|
873 foreach (stExecSQL("SELECT * FROM entries WHERE compo_id=".$id) as $entry) |
0 | 874 { |
875 echo | |
257
ef9a007c0876
Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents:
252
diff
changeset
|
876 " <tr id=\"entry".$entry["id"]."\">\n". |
ef9a007c0876
Modularize and add methods for getting single entry.
Matti Hamalainen <ccr@tnsp.org>
parents:
252
diff
changeset
|
877 stGetEntryItemData($entry["id"], $entry, "en"). |
0 | 878 " </tr>\n"; |
879 } | |
59
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
880 |
0 | 881 echo |
882 " </table>\n". | |
883 "</form>\n"; | |
884 } | |
885 break; | |
886 } | |
887 break; | |
888 | |
889 case "delete": | |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
890 // |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
891 // Delete entry |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
892 // |
208
8985d2bdb29b
More work on error handling etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
207
diff
changeset
|
893 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data."))) |
0 | 894 { |
895 if ($type == "news") | |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
896 { |
0 | 897 $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
|
898 stExecSQLCond($sql, "OK, news item ".$id." deleted."); |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
899 } |
0 | 900 else |
901 if ($type == "attendees") | |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
902 { |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
903 // Attendees require some more work |
302
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
904 $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
|
905 if (($attn = stFetchSQL($sql)) !== false) |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
906 { |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
907 $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
|
908 stExecSQLCond($sql, "OK, attendee ".$id." deleted."); |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
909 |
305
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
910 // 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
|
911 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
|
912 { |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
913 $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
|
914 stExecSQLCond($sql, "OK, attendee ".$id." votekey deleted."); |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
915 |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
916 $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
|
917 stExecSQLCond($sql, "OK, attendee ".$id." votes deleted."); |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
918 } |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
919 } |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
920 else |
828fc30e3c94
Some work on vote backend stuff.
Matti Hamalainen <ccr@tnsp.org>
parents:
296
diff
changeset
|
921 stError("No such attendee ID #".$id); |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
922 } |
0 | 923 else |
924 if ($type == "entries") | |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
925 { |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
926 // .. as do compo entries |
0 | 927 $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
|
928 stExecSQLCond($sql, "OK, entry ".$id." deleted."); |
0 | 929 |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
930 $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
|
931 stExecSQLCond($sql, "OK, entry ".$id." votes deleted."); |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
932 } |
0 | 933 } |
305
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
934 else |
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
935 if ($type == "votekeys") |
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
936 { |
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
937 $sql = stPrepareSQL("DELETE FROM votekeys"); |
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
938 stExecSQLCond($sql, "OK, all votekeys purged"); |
b96c41bd9dd6
More work on admin backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
302
diff
changeset
|
939 } |
0 | 940 break; |
941 | |
942 case "add": | |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
943 // |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
944 // Add new entry |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
945 // |
228 | 946 if ($type == "news" && stValidateRequestNewsData()) |
0 | 947 { |
948 $sql = stPrepareSQL( | |
949 "INSERT INTO news (utime,title,text,author) VALUES (%d,%S,%Q,%S)", | |
950 time(), "title", "text", "author"); | |
951 | |
66
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
952 stExecSQLCond($sql, "OK, news item added."); |
0 | 953 } |
954 else | |
228 | 955 if ($type == "compo" && stValidateRequestCompoData(FALSE)) |
0 | 956 { |
957 $sql = stPrepareSQL( | |
55
4fac95384753
Make visibility of entry authors per compo.
Matti Hamalainen <ccr@tnsp.org>
parents:
53
diff
changeset
|
958 "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
|
959 "name", "description"); |
0 | 960 |
66
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
961 stExecSQLCond($sql, "OK, compo added."); |
0 | 962 } |
963 else | |
228 | 964 if ($type == "attendees" && stValidateRequestUserData(TRUE)) |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
965 { |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
966 $sql = stPrepareSQL( |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
967 "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
|
968 time(), "name", "groups", "oneliner", "email"); |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
969 |
66
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
970 stExecSQLCond($sql, "OK, attendee added."); |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
971 } |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
972 else |
228 | 973 if ($type == "entry" && stValidateRequestEntryData($fake)) |
59
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
974 { |
296
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
975 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
|
976 { |
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
977 stError("No such compo ID."); |
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
978 } |
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
979 else |
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
980 { |
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
981 $sql = stPrepareSQL( |
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
982 "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
|
983 "name", "author", "compo_id", "filename", "info"); |
59
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
984 |
296
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
985 stExecSQLCond($sql, "OK, entry added."); |
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
986 } |
59
e5e38ed4e837
Work on compo entry addition and editing.
Matti Hamalainen <ccr@tnsp.org>
parents:
57
diff
changeset
|
987 } |
0 | 988 break; |
989 | |
990 case "update": | |
53
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
991 // |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
992 // Update existing entry |
71256605546b
More work on admin interface.
Matti Hamalainen <ccr@tnsp.org>
parents:
52
diff
changeset
|
993 // |
14
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
994 if ($type == "settings") |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
995 { |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
996 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
|
997 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
|
998 { |
198
96ab189e5c03
Add some new helper functions and use them.
Matti Hamalainen <ccr@tnsp.org>
parents:
175
diff
changeset
|
999 $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
|
1000 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
|
1001 } |
e36c4d2b09c4
Fix settings to work, clean up the code, etc.
Matti Hamalainen <ccr@tnsp.org>
parents:
8
diff
changeset
|
1002 } |
366
9b266dcd1064
Oops, 10L for a missing else.
Matti Hamalainen <ccr@tnsp.org>
parents:
360
diff
changeset
|
1003 else |
209 | 1004 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data."))) |
1005 { | |
228 | 1006 if ($type == "attendees" && stValidateRequestUserData(TRUE)) |
209 | 1007 { |
1008 $sql = stPrepareSQLUpdate("attendees", | |
1009 "WHERE id=".intval(stGetRequestItem("id")), | |
1010 array( | |
1011 "name" => "S", | |
1012 "groups" => "S", | |
1013 "email" => "S", | |
1014 "oneliner" => "S", | |
1015 )); | |
1016 | |
1017 stExecSQLCond($sql, "OK, attendee updated."); | |
1018 } | |
1019 else | |
228 | 1020 if ($type == "news" && stValidateRequestNewsData()) |
209 | 1021 { |
1022 $sql = stPrepareSQLUpdate("news", | |
1023 "WHERE id=".intval(stGetRequestItem("id")), | |
1024 array( | |
1025 "title" => "S", | |
1026 "text" => "Q", | |
1027 "author" => "S" | |
1028 )); | |
1029 | |
1030 stExecSQLCond($sql, "OK, news item updated."); | |
1031 } | |
1032 else | |
228 | 1033 if ($type == "compo" && stValidateRequestCompoData(TRUE)) |
209 | 1034 { |
1035 $sql = stPrepareSQLUpdate("compos", | |
1036 "WHERE id=".intval(stGetRequestItem("id")), | |
1037 array( | |
1038 "name" => "S", | |
1039 "description" => "Q", | |
1040 "visible" => "B", | |
1041 "voting" => "B", | |
1042 "showAuthors" => "B", | |
1043 )); | |
1044 | |
1045 stExecSQLCond($sql, "OK, compo updated."); | |
1046 } | |
1047 else | |
228 | 1048 if ($type == "entry" && stValidateRequestEntryData($compo_id)) |
209 | 1049 { |
214 | 1050 if (stFetchSQLColumn("SELECT id FROM compos WHERE id=".$compo_id) === FALSE) |
209 | 1051 { |
214 | 1052 stError("No such compo ID."); |
209 | 1053 } |
1054 else | |
1055 { | |
1056 $sql = stPrepareSQLUpdate("entries", | |
1057 "WHERE id=".intval(stGetRequestItem("id")), | |
1058 array( | |
1059 "name" => "S", | |
1060 "author" => "S", | |
1061 "filename" => "S", | |
296
bbdf1b9c5a07
Check compo_id in compo entry addition.
Matti Hamalainen <ccr@tnsp.org>
parents:
289
diff
changeset
|
1062 "info" => "Q", |
209 | 1063 "compo_id" => "D", |
1064 )); | |
1065 | |
1066 stExecSQLCond($sql, "OK, entry updated."); | |
1067 } | |
1068 } | |
308
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1069 else |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1070 if ($type == "votekey") |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1071 { |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1072 switch (stGetRequestItem("mode")) |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1073 { |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1074 case "assign": |
312 | 1075 // Check if already assigned to someone .. |
318 | 1076 $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
|
1077 $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
|
1078 if (stFetchSQL($sql) === false) |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1079 stError("Invalid key ID #."); |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1080 else |
312 | 1081 { |
319
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1082 $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
|
1083 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
|
1084 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
|
1085 else |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1086 { |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1087 // Assign .. |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1088 $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
|
1089 stExecSQLCond($sql, "Assigned key updated."); |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1090 } |
312 | 1091 } |
319
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1092 break; |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1093 |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1094 case "clear": |
623acd958944
Simplify things, add clear button to vote key assignation.
Matti Hamalainen <ccr@tnsp.org>
parents:
318
diff
changeset
|
1095 $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
|
1096 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
|
1097 break; |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1098 |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1099 case "active": |
312 | 1100 // Autobots activate! |
320 | 1101 $sql = stPrepareSQL("UPDATE votekeys SET active=%B WHERE id=%D", "active", "id"); |
1102 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
|
1103 break; |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1104 } |
3cfd95758377
A bit of work on vote key management backend.
Matti Hamalainen <ccr@tnsp.org>
parents:
305
diff
changeset
|
1105 } |
209 | 1106 } |
0 | 1107 break; |
1108 | |
1109 default: | |
66
230aacc22cb4
Move some functions to site lib.
Matti Hamalainen <ccr@tnsp.org>
parents:
61
diff
changeset
|
1110 stSetStatus(404, "Not Found"); |
0 | 1111 break; |
1112 } | |
1113 | |
378 | 1114 if (!$errorSet) |
1115 stSaveDisplayVars(); | |
1116 | |
211
5bae42020034
Factorize some code into msitegen.
Matti Hamalainen <ccr@tnsp.org>
parents:
210
diff
changeset
|
1117 stDumpAJAXStatusErrors(); |
0 | 1118 ?> |