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