fapweb: admajax.php annotate

annotate admajax.php @ 1096:bbc0a3d0b51e

Major renaming / refactor of site messages. Some that were previously modifiable from admin interface are now "hardcoded" in the configuration file. Having these settings made modifiable from there made no sense and just took space in the UI.

author	Matti Hamalainen <ccr@tnsp.org>
date	Fri, 27 Jan 2017 22:15:06 +0200
parents	95b74632cfe2
children	0a2117349f46 0eca3f1b1d48

rev	line source
1071 76e11ae923a7 Use long tags. Matti Hamalainen <ccr@tnsp.org> parents: 1059 diff changeset	1 <?php
56 243e9a51920b Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	2 //
571 ce11ea112a65 Change the header blurb a bit. Matti Hamalainen <ccr@tnsp.org> parents: 565 diff changeset	3 // FAPWeb - Simple Web-based Demoparty Management System
136 aeebfedb5709 Add some copyright headers. Matti Hamalainen <ccr@tnsp.org> parents: 133 diff changeset	4 // Party administration page AJAX backend module
1072 7da8bde9b7be Bump copyrights. Matti Hamalainen <ccr@tnsp.org> parents: 1071 diff changeset	5 // (C) Copyright 2012-2017 Tecnic Software productions (TNSP)
56 243e9a51920b Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 55 diff changeset	6 //
59 e5e38ed4e837 Work on compo entry addition and editing. Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	7 $sessionType = "admin";
175 8df523e6326a User require_once instead of require. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	8 require_once "mconfig.inc.php";
8df523e6326a User require_once instead of require. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	9 require_once "msite.inc.php";
8df523e6326a User require_once instead of require. Matti Hamalainen <ccr@tnsp.org> parents: 169 diff changeset	10 require_once "msession.inc.php";
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	11
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	12
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	13 // Define modes for entry editing code
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	14 define("EEMODE_NORMAL", 0);
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	15 define("EEMODE_EDIT", 1);
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	16 define("EEMODE_ADD", 2);
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	17
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	18
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	19 function stValidateRequestCompoData($full, $ctype)
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	20 {
896 52737f6192bb More work on preview handling. Matti Hamalainen <ccr@tnsp.org> parents: 877 diff changeset	21 global $previewTypeList;
52737f6192bb More work on preview handling. Matti Hamalainen <ccr@tnsp.org> parents: 877 diff changeset	22
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	23 $res = TRUE;
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	24
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	25 stChkRequestItemFail("name", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	26 array(CHK_ISGT, VT_STR, 0, "Compo name is empty."),
f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	27 array(CHK_LTEQ, VT_STR, SET_LEN_COMPO_NAME, "Compo name too long (%1 chars, must be less than %2)."));
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	28
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	29 stChkRequestItemFail("description", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	30 array(CHK_ISGT, VT_STR, 10, "Compo description too short (%1 chars, must be more than %2)"),
f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	31 array(CHK_LTEQ, VT_STR, SET_LEN_COMPO_DESC, "Compo description too long (%1 chars, must be less than %2)."));
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	32
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	33 // Not a full check?
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	34 if (!$full)
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	35 return $res;
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	36
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	37 // Check by compo type
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	38 switch ($ctype)
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	39 {
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	40 case COMPO_NORMAL:
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	41 stChkRequestItemFail("voting", $fake, $res,
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	42 array(CHK_TYPE, VT_BOOL, "Invalid data."));
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	43
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	44 stChkRequestItemFail("show_authors", $fake, $res,
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	45 array(CHK_TYPE, VT_BOOL, "Invalid data."));
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	46
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	47 stChkRequestItemFail("preview_type", $fake, $res,
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	48 array(CHK_TYPE, VT_INT, "Invalid data."),
907 affd8bd8c910 Add new check type(s) CHK_ARRAY_KEY and CHK_ARRAY_VAL, remove CHK_ARRAY as Matti Hamalainen <ccr@tnsp.org> parents: 905 diff changeset	49 array(CHK_ARRAY_KEY, $previewTypeList, "Invalid preview type value."));
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	50
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	51 stChkRequestItemFail("cpath", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	52 array(CHK_LTEQ, VT_STR, SET_LEN_COMPO_PATH, "Compo file path too long (%1 chars, must be less than %2)."));
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	53 break;
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	54 }
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	55
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	56 stChkRequestItemFail("visible", $fake, $res,
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	57 array(CHK_TYPE, VT_BOOL, "Invalid data."));
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	58
ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	59 return $res;
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	60 }
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	61
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	62
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	63 function stValidateRequestEntryData(&$compo_id, $full, $ctype)
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	64 {
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	65 $res = TRUE;
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	66
767 1337c483b9f9 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 766 diff changeset	67 // Things common for all compo types
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	68 stChkRequestItemFail("name", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	69 array(CHK_ISGT, VT_STR, 0, "Name is empty."),
f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	70 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_NAME, "Name too long (%1 chars, must be less than %2)."));
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	71
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	72 stChkRequestItemFail("notes", $fake, $res,
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	73 array(CHK_TYPE, VT_TEXT, "Invalid data."),
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	74 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_NOTES, "Entry notes are too long (%1 chars, must be less than %2)."));
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	75
767 1337c483b9f9 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 766 diff changeset	76 // Check based on compo type
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	77 switch ($ctype)
707 2dc533ae3afd Fix compo data validation by adding boolean for checking full data when Matti Hamalainen <ccr@tnsp.org> parents: 706 diff changeset	78 {
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	79 case COMPO_NORMAL:
764 48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	80 stChkRequestItemFail("compo_id", $compo_id, $res,
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	81 array(CHK_TYPE, VT_INT, "Invalid compo ID."));
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	82
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	83 stChkRequestItemFail("author", $fake, $res,
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	84 array(CHK_ISGT, VT_STR, 0, "Author name not set."),
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	85 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_AUTHOR, "Entry author too long (%1 chars, must be less than %2)."));
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	86
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	87 stChkRequestItemFail("info", $fake, $res,
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	88 array(CHK_TYPE, VT_TEXT, "Invalid data."),
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	89 array(CHK_LTEQ, VT_STR, SET_LEN_ENTRY_INFO, "Entry info text too long (%1 chars, must be less than %2)."));
1034 8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	90
8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	91 if ($full)
8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	92 {
8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	93 stChkRequestItemFail("preview_type", $fake, $res,
8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	94 array(CHK_TYPE, VT_INT, "Invalid data."),
8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	95 array(CHK_RANGE, VT_INT, array(EPREV_NONE, EPREV_AUDIO), "Invalid preview type value."));
8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	96 }
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	97 break;
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	98
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	99 case COMPO_POINTS:
758 3b973041f6bb Few fixes to entry data validation. Matti Hamalainen <ccr@tnsp.org> parents: 754 diff changeset	100 stChkRequestItemFail("evalue", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	101 array(CHK_TYPE, VT_INT, "Invalid points value, must be a valid integer."));
758 3b973041f6bb Few fixes to entry data validation. Matti Hamalainen <ccr@tnsp.org> parents: 754 diff changeset	102 break;
3b973041f6bb Few fixes to entry data validation. Matti Hamalainen <ccr@tnsp.org> parents: 754 diff changeset	103
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	104 case COMPO_ASSIGN:
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	105 stChkRequestItemFail("evalue", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	106 array(CHK_TYPE, VT_INT, "Invalid position, must be a valid integer."),
f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	107 array(CHK_GTEQ, VT_INT, 1, "Invalid position, must be >= %2."));
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	108 break;
707 2dc533ae3afd Fix compo data validation by adding boolean for checking full data when Matti Hamalainen <ccr@tnsp.org> parents: 706 diff changeset	109 }
2dc533ae3afd Fix compo data validation by adding boolean for checking full data when Matti Hamalainen <ccr@tnsp.org> parents: 706 diff changeset	110
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	111 return $res;
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	112 }
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	113
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	114
228 e3dd18b58e6c Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 227 diff changeset	115 function stValidateRequestNewsData()
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	116 {
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	117 $res = TRUE;
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	118
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	119 stChkRequestItemFail("text", $fake, $res,
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	120 array(CHK_ISGT, VT_STR, 0, "News text too short."),
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	121 array(CHK_LTEQ, VT_STR, SET_LEN_NEWS_TEXT, "News text too long (%1 chars, must be less than %2)."));
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	122
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	123 stChkRequestItemFail("author", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	124 array(CHK_ISGT, VT_STR, 0, "News author name not set."),
f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	125 array(CHK_LTEQ, VT_STR, SET_LEN_NEWS_AUTHOR, "News author name too long (%1 chars, must be less than %2)."));
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	126
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	127 stChkRequestItemFail("title", $fake, $res,
795 f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	128 array(CHK_ISGT, VT_STR, 0, "News title not set."),
f4b99fed50b4 Use the formatting functionality added to stChkRequestItem(). Matti Hamalainen <ccr@tnsp.org>* parents: 794 diff changeset	129 array(CHK_LTEQ, VT_STR, SET_LEN_NEWS_TITLE, "News title too long (%1 chars. must be less than %2)."));
671 11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	130
11b6e5c7ba86 Use stChkRequestItemFail() where appropriate. Matti Hamalainen <ccr@tnsp.org> parents: 669 diff changeset	131 return $res;
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	132 }
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	133
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	134
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	135 function stGetCompoData($id, $item, $prefix)
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	136 {
705 45750a346f3e Add default preview_type for compos, and remove preview_file element from Matti Hamalainen <ccr@tnsp.org> parents: 690 diff changeset	137 global $compoModeData, $previewTypeList;
644 de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	138
640 c78e11aa3162 Rename a database field, so that it does not conflict with AJAX request item Matti Hamalainen <ccr@tnsp.org> parents: 636 diff changeset	139 switch ($item["ctype"])
635 59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	140 {
59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	141 case COMPO_NORMAL:
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	142 $str1 =
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	143 " File path: ".stGetFormTextInput(40, SET_LEN_COMPO_PATH, "cpath", $id, $prefix, $item["cpath"])."<br />\n";
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	144
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	145 $str2 =
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	146 " ".stGetFormCheckBoxInput("voting", $id, $prefix, $item["voting"],
767 1337c483b9f9 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 766 diff changeset	147 "Enable voting", "onChange=\"setCompoData(".$id.",'voting')\"").
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	148 " ".stGetFormCheckBoxInput("show_authors", $id, $prefix, $item["show_authors"], "Show authors")."\n".
752 c714140541d5 Add more data to previewTypeList array and implement array index argument in Matti Hamalainen <ccr@tnsp.org> parents: 751 diff changeset	149 " ".stGetFormOptionListFromArray($prefix."preview_type".$id, " ", FALSE, $previewTypeList, $item["preview_type"], 0, 0)."\n";
635 59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	150 break;
59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	151
59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	152 default:
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	153 $str1 = $str2 = "";
635 59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	154 break;
59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	155 }
59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	156
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	157 return
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	158 " <h2>#".$id." - ".chentities($item["name"])."</h2>\n".
752 c714140541d5 Add more data to previewTypeList array and implement array index argument in Matti Hamalainen <ccr@tnsp.org> parents: 751 diff changeset	159 " Type: ".stGetFormOptionListFromArray($prefix."type".$id, " ", FALSE, $compoModeData, $item["ctype"], 0, 0, "updateCompoType(".$id.")").
644 de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	160 " - ".$compoModeData[$item["ctype"]][1]."<br />\n".
635 59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	161 " Name: ".stGetFormTextInput(40, SET_LEN_COMPO_NAME, "name", $id, $prefix, $item["name"])."<br />\n".
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	162 $str1.
979 678b44a20e1a Implement rest of notes. Matti Hamalainen <ccr@tnsp.org> parents: 977 diff changeset	163 "<div class=\"compoDesc\"><h3>Description</h3>".stGetFormTextArea(8, 60, "description", $id, $prefix, $item["description"])."</div>\n".
678b44a20e1a Implement rest of notes. Matti Hamalainen <ccr@tnsp.org> parents: 977 diff changeset	164 "<div class=\"compoDesc\"><h3>Notes (shown in results)</h3>".stGetFormTextArea(8, 60, "notes", $id, $prefix, $item["notes"])."</div>\n".
678b44a20e1a Implement rest of notes. Matti Hamalainen <ccr@tnsp.org> parents: 977 diff changeset	165 "<div>\n".
706 a91a91b8160e Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 705 diff changeset	166 " ".stGetFormCheckBoxInput("visible", $id, $prefix, $item["visible"], "Visible")."\n".
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	167 $str2."\n".
635 59d14c0825cd Somewhat fix compo data updating. Work is still needed to have the planned Matti Hamalainen <ccr@tnsp.org> parents: 634 diff changeset	168 " ".stGetFormButtonInput("update", $id, $prefix, "Update", "updateCompo(".$id.")")."\n".
979 678b44a20e1a Implement rest of notes. Matti Hamalainen <ccr@tnsp.org> parents: 977 diff changeset	169 " ".stGetFormButtonInput("delete", $id, $prefix, "Delete", "deleteCompo(".$id.")")."\n".
678b44a20e1a Implement rest of notes. Matti Hamalainen <ccr@tnsp.org> parents: 977 diff changeset	170 "</div>\n";
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	171 }
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	172
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	173
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	174 function stGetNewsItemData($id, $item, $prefix)
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	175 {
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	176 return
227 44081a2066f5 Cosmetic improvements in news editing. Matti Hamalainen <ccr@tnsp.org> parents: 223 diff changeset	177 " <h2>".chentities($item["title"])."</h2>\n".
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	178 " ".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	179 " - 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	180 " ".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	181 " ".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	182 " ".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	183 " ".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	184 }
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	185
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	186
838 4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	187 function stGetFileUploadAndSelector($mode, $entry, $type, $file_id, $title)
821 f27dccdde8ef Partially remove old filename stuff from entries. Still some vestiges Matti Hamalainen <ccr@tnsp.org> parents: 798 diff changeset	188 {
846 e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	189 if ($mode == 2)
904 c4bff14a8a50 Fix previous commit to be nicer. Matti Hamalainen <ccr@tnsp.org> parents: 903 diff changeset	190 return "";
846 e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	191
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	192 $eid = $entry["id"];
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	193 $str = "<div class=\"editControl\"><span class=\"editControlTitle\">".chentities($title)."</span>\n";
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	194
872 5e9958f78b16 More work. Matti Hamalainen <ccr@tnsp.org> parents: 870 diff changeset	195 // Show currently selected / active file
5e9958f78b16 More work. Matti Hamalainen <ccr@tnsp.org> parents: 870 diff changeset	196 if (($efile = stFetchSQL("SELECT * FROM files WHERE deleted=0 AND id=".$entry[$file_id])) !== false)
846 e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	197 {
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	198 $str .=
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	199 "<div>File: <b>".chentities($efile["filename"])."</b></div>\n".
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	200 "<div>Orig: <b>".chentities($efile["origname"])."</b></div>\n";
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	201 }
850 cb281b64cd82 Add "no file stored" message for those entry files/previews that have no Matti Hamalainen <ccr@tnsp.org> parents: 849 diff changeset	202 else
cb281b64cd82 Add "no file stored" message for those entry files/previews that have no Matti Hamalainen <ccr@tnsp.org> parents: 849 diff changeset	203 {
872 5e9958f78b16 More work. Matti Hamalainen <ccr@tnsp.org> parents: 870 diff changeset	204 $str .= "<div>No file stored OR selected</div>\n";
850 cb281b64cd82 Add "no file stored" message for those entry files/previews that have no Matti Hamalainen <ccr@tnsp.org> parents: 849 diff changeset	205 }
846 e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	206
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	207 if ($mode == 1)
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	208 {
899 0cc1d87cdca1 Add few lines of commented out code for future purposes. Matti Hamalainen <ccr@tnsp.org> parents: 896 diff changeset	209 // Show active file selection
0cc1d87cdca1 Add few lines of commented out code for future purposes. Matti Hamalainen <ccr@tnsp.org> parents: 896 diff changeset	210 // XXX TODO .. $sql = stPrepareSQL("SELECT * FROM files WHERE uploadtype=%s AND entry_id=%d", $type, $eid);
0cc1d87cdca1 Add few lines of commented out code for future purposes. Matti Hamalainen <ccr@tnsp.org> parents: 896 diff changeset	211
872 5e9958f78b16 More work. Matti Hamalainen <ccr@tnsp.org> parents: 870 diff changeset	212 // Show upload form
854 6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	213 $handler = "admajax.php";
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	214 $str .=
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	215 " ".stGetFormStart($type."UploadForm".$eid, $handler, FALSE, "enctype=\"multipart/form-data\" id=\"".$type."UploadForm".$eid."\"").
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	216 " ".stGetFormHiddenInput("action", "upload")."\n".
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	217 " ".stGetFormHiddenInput("type", $type)."\n".
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	218 " ".stGetFormHiddenInput("entry_id", $eid)."\n".
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	219 " <input type=\"file\" name=\"".$type."ToUpload".$eid."\" id=\"".$type."ToUpload".$eid."\">\n".
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	220 " ".stGetFormButtonInput($type."UploadButton", $eid, "", "Upload",
6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	221 "jsStartFileUpload('".$type."UploadForm".$eid."','".$handler."','".$type."ToUpload".$eid.
1082 571ad3639468 Fix file uploads. Matti Hamalainen <ccr@tnsp.org> parents: 1072 diff changeset	222 "',".stGetSetting($type."MaxSize").", function() { updateEntry(".$entry["compo_id"].",".$eid.", 1) })")."\n".
854 6ea0497101cd Actual upload form code blurb. Matti Hamalainen <ccr@tnsp.org> parents: 853 diff changeset	223 " </form>\n";
846 e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	224 }
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	225
e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	226 return $str."</div>\n";
821 f27dccdde8ef Partially remove old filename stuff from entries. Still some vestiges Matti Hamalainen <ccr@tnsp.org> parents: 798 diff changeset	227 }
f27dccdde8ef Partially remove old filename stuff from entries. Still some vestiges Matti Hamalainen <ccr@tnsp.org> parents: 798 diff changeset	228
f27dccdde8ef Partially remove old filename stuff from entries. Still some vestiges Matti Hamalainen <ccr@tnsp.org> parents: 798 diff changeset	229
1052 fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	230 function stGetCompoVoting($compo, $outer)
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	231 {
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	232 return
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	233 ($outer ? "<span id=\"covoting".$compo["id"]."\">" : "").
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	234 stGetFormCheckBoxInput(
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	235 "votingbutton", $compo["id"], "co", $compo["voting"], "Voting ".($compo["voting"] ? "IS ACTIVE" : "disabled"),
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	236 "class=\"votingactive\" onChange=\"updateCompoVoting(".$compo["id"].")\"", "").
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	237 ($outer ? "</span>" : "");
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	238 }
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	239
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	240
753 5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	241 function stPrintEntryItemData($item, $row, $tr, $prefix, $compo, $mode)
257 ef9a007c0876 Modularize and add methods for getting single entry. Matti Hamalainen <ccr@tnsp.org> parents: 252 diff changeset	242 {
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	243 global $entryFlagsList, $previewTypeList, $compoModeData;
690 bad79296eb34 Cleanups, rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 689 diff changeset	244
767 1337c483b9f9 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 766 diff changeset	245 // Fetch compo data if we don't have it already
690 bad79296eb34 Cleanups, rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 689 diff changeset	246 $eid = $item["id"];
753 5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	247 if ($compo === FALSE)
5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	248 $compo = stFetchSQL("SELECT * FROM compos WHERE id=".$item["compo_id"]);
682 2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	249
767 1337c483b9f9 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 766 diff changeset	250 // Output wrapper div only if requested
682 2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	251 if ($tr)
2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	252 {
2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	253 echo
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	254 " <div class=\"entryRow ".($row % 2 == 1 ? "rodd" : "reven").
976 b0a8cb63334e Fix adding of new entries in some rare cases. Matti Hamalainen <ccr@tnsp.org> parents: 975 diff changeset	255 "\"".($mode == EEMODE_NORMAL ? " id=\"entry".$eid."\" onClick=\"activateEntry(".$eid.", false)\"" : "").">\n";
682 2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	256 }
2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	257
767 1337c483b9f9 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 766 diff changeset	258 // Only show show_id if this is a normal compo and we are not adding
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	259 if ($mode != EEMODE_ADD && $compo["ctype"] == COMPO_NORMAL)
682 2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	260 {
2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	261 echo
761 1be30385e9d4 More work on the improved(?) entry editing interface. Matti Hamalainen <ccr@tnsp.org> parents: 759 diff changeset	262 " <div class=\"entryCell entryShowID\">".($item["show_id"] > 0 ? $item["show_id"] : "-")."</div>\n";
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	263 }
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	264
753 5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	265 switch ($compo["ctype"])
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	266 {
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	267 case COMPO_NORMAL:
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	268 echo
761 1be30385e9d4 More work on the improved(?) entry editing interface. Matti Hamalainen <ccr@tnsp.org> parents: 759 diff changeset	269 " <div class=\"entryCell entryBasic\">\n".
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	270 " ".stGetEditFormTextInput($mode, "Name", 20, SET_LEN_ENTRY_NAME, "name", $eid, $prefix, $item["name"])."\n".
773 133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	271 " ".stGetEditFormTextInput($mode, "Author", 20, SET_LEN_ENTRY_AUTHOR, "author", $eid, $prefix, $item["author"])."\n".
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	272 " </div>\n".
761 1be30385e9d4 More work on the improved(?) entry editing interface. Matti Hamalainen <ccr@tnsp.org> parents: 759 diff changeset	273 " <div class=\"entryCell entryFiles\">\n".
904 c4bff14a8a50 Fix previous commit to be nicer. Matti Hamalainen <ccr@tnsp.org> parents: 903 diff changeset	274 ($mode == 2 ? "Files can be uploaded after adding the entry" : "").
838 4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	275 stGetFileUploadAndSelector($mode, $item, "entry", "file_id", "Entry file").
4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	276 stGetFileUploadAndSelector($mode, $item, "preview", "preview_id", "Preview file").
768 91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	277 " </div>\n".
761 1be30385e9d4 More work on the improved(?) entry editing interface. Matti Hamalainen <ccr@tnsp.org> parents: 759 diff changeset	278 " <div class=\"entryCell entryNotes\">\n".
958 fb945b968827 Adjust info/notes box sizes. Matti Hamalainen <ccr@tnsp.org> parents: 956 diff changeset	279 " ".stGetEditFormTextArea($mode, "Info shown during compo", 2, 35, "info", $eid, $prefix, $item["info"])."\n".
fb945b968827 Adjust info/notes box sizes. Matti Hamalainen <ccr@tnsp.org> parents: 956 diff changeset	280 " ".stGetEditFormTextArea($mode, "Notes for internal use", 2, 35, "notes", $eid, $prefix, $item["notes"])."\n".
773 133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	281 " </div>\n".
133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	282 " <div class=\"entryCell\">\n";
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	283
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	284 if ($mode == EEMODE_NORMAL \|\| $mode == EEMODE_EDIT)
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	285 {
773 133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	286 echo " <div class=\"editControl entryPreview\">".
909 f45d1402b8b5 10L. Matti Hamalainen <ccr@tnsp.org> parents: 907 diff changeset	287 "<span class=\"editControlTitle\">Preview</span>";
1036 b67fa444099e Add preview_type display. Matti Hamalainen <ccr@tnsp.org> parents: 1034 diff changeset	288 $previewTypeList[$compo["preview_type"]][0]." / ";
b67fa444099e Add preview_type display. Matti Hamalainen <ccr@tnsp.org> parents: 1034 diff changeset	289
b67fa444099e Add preview_type display. Matti Hamalainen <ccr@tnsp.org> parents: 1034 diff changeset	290 if ($mode)
b67fa444099e Add preview_type display. Matti Hamalainen <ccr@tnsp.org> parents: 1034 diff changeset	291 echo stGetFormOptionListFromArray($prefix."preview_type".$eid, " ", FALSE, $previewTypeList, $item["preview_type"], 0, 1);
b67fa444099e Add preview_type display. Matti Hamalainen <ccr@tnsp.org> parents: 1034 diff changeset	292 else
b67fa444099e Add preview_type display. Matti Hamalainen <ccr@tnsp.org> parents: 1034 diff changeset	293 echo $previewTypeList[$item["preview_type"]][1];
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	294
782 c984cff340e3 Add previews to entry admin too. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	295 stPrintPreviewElements($compo, $item);
c984cff340e3 Add previews to entry admin too. Matti Hamalainen <ccr@tnsp.org> parents: 779 diff changeset	296
772 3901bb443119 Mostly cosmetic changes. Matti Hamalainen <ccr@tnsp.org> parents: 770 diff changeset	297 echo "</div>\n";
764 48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	298 }
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	299
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	300 if ($mode == EEMODE_EDIT)
764 48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	301 {
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	302 $sql =
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	303 "SELECT compos.*, ".
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	304 "COUNT(DISTINCT entries.id) AS nentries ".
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	305 "FROM compos LEFT JOIN entries ON compos.id=entries.compo_id ".
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	306 "GROUP BY compos.id ".
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	307 "ORDER BY compos.id DESC";
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	308
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	309 echo
773 133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	310 " <div class=\"editControl entryCompoID\">".
133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	311 "<span class=\"editControlTitle\">Compo</span>".
764 48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	312 stGetFormOptionListStart($prefix."compo_id".$eid, " ", TRUE, 0);
778 06e3469fe480 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 773 diff changeset	313
764 48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	314 foreach (stExecSQL($sql) as $cdata)
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	315 {
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	316 echo stGetFormOptionListItem(" ",
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	317 $cdata["id"],
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	318 ($cdata["id"] == $item["compo_id"]),
773 133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	319 sprintf("%-20s (%d)", substr($cdata["name"], 0, 20), $cdata["nentries"])
764 48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	320 );
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	321 }
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	322
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	323 echo
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	324 stGetFormOptionListEnd(" ", TRUE).
48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	325 "</div>\n";
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	326 }
773 133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	327
133197d0e48a Adjust entry editing look. Matti Hamalainen <ccr@tnsp.org> parents: 772 diff changeset	328 echo "</div>\n";
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	329 break;
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	330
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	331 case COMPO_POINTS:
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	332 case COMPO_ASSIGN:
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	333 echo
761 1be30385e9d4 More work on the improved(?) entry editing interface. Matti Hamalainen <ccr@tnsp.org> parents: 759 diff changeset	334 " <div class=\"entryCell entryBase\">".
753 5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	335 stGetEditFormTextInput($mode, "Name", 15, SET_LEN_ENTRY_AUTHOR, "name", $eid, $prefix, $item["name"]).
5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	336 "</div>\n".
761 1be30385e9d4 More work on the improved(?) entry editing interface. Matti Hamalainen <ccr@tnsp.org> parents: 759 diff changeset	337 " <div class=\"entryCell entryEvalue\">".
753 5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	338 stGetEditFormTextInput($mode, $compoModeData[$compo["ctype"]][2], 5, SET_LEN_ENTRY_AUTHOR, "evalue", $eid, $prefix, $item["evalue"]).
5fce9011101a Implement per entry preview type editing. Matti Hamalainen <ccr@tnsp.org> parents: 752 diff changeset	339 "</div>\n".
761 1be30385e9d4 More work on the improved(?) entry editing interface. Matti Hamalainen <ccr@tnsp.org> parents: 759 diff changeset	340 " <div class=\"entryCell entryNotes\">\n".
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	341 " ".stGetEditFormTextArea($mode, "Notes", 2, 30, "notes", $eid, $prefix, $item["notes"])."\n".
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	342 " </div>\n";
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	343 break;
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	344 }
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	345
754 ba85638cd75f Disable entry flags display for now, as editing them is not implemented. Matti Hamalainen <ccr@tnsp.org> parents: 753 diff changeset	346 /* XXX TODO .. flags disabled for now
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	347 if ($mode == EEMODE_NORMAL \|\| $mode == EEMODE_EDIT)
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	348 {
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	349 echo " <div class=\"entryCell\">";
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	350 foreach ($entryFlagsList as $flag => $fdata)
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	351 {
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	352 echo " ".stGetFormCheckBoxInput("eflag".$flag, $eid, $prefix, ($item["flags"] & $flag), $fdata[0],
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	353 $mode ? "" : " disabled=\"disabled\" ")."\n";
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	354 }
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	355 echo " </div>\n";
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	356 }
754 ba85638cd75f Disable entry flags display for now, as editing them is not implemented. Matti Hamalainen <ccr@tnsp.org> parents: 753 diff changeset	357 */
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	358
768 91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	359 if ($mode != EEMODE_NORMAL)
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	360 {
768 91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	361 echo "<div class=\"entryCell entryActions\">\n";
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	362 switch ($mode)
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	363 {
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	364 case EEMODE_EDIT:
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	365 echo
860 bb4a6967ccdd Keep edit state after file upload in updateEntry(). Matti Hamalainen <ccr@tnsp.org> parents: 856 diff changeset	366 stGetFormButtonInput("update", $eid, $prefix, "Update", "updateEntry(".$item["compo_id"].",".$eid.", 0)").
768 91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	367 stGetFormButtonInput("delete", $eid, $prefix, "Delete", "deleteEntry(".$item["compo_id"].",".$eid.")");
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	368 break;
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	369
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	370 case EEMODE_ADD:
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	371 echo
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	372 stGetFormButtonInput("add", $item["compo_id"], $prefix, "Add new", "addEntry(".$item["compo_id"].")");
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	373 break;
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	374 }
91c9fef38e2d Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 767 diff changeset	375 echo "</div>\n";
682 2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	376 }
2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	377
2e54b6858ce9 A tiny bit more work on entry editing. Matti Hamalainen <ccr@tnsp.org> parents: 681 diff changeset	378 if ($tr)
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	379 echo " </div>\n";
257 ef9a007c0876 Modularize and add methods for getting single entry. Matti Hamalainen <ccr@tnsp.org> parents: 252 diff changeset	380 }
ef9a007c0876 Modularize and add methods for getting single entry. Matti Hamalainen <ccr@tnsp.org> parents: 252 diff changeset	381
ef9a007c0876 Modularize and add methods for getting single entry. Matti Hamalainen <ccr@tnsp.org> parents: 252 diff changeset	382
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	383 function stGetUserKeyClass($item)
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	384 {
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	385 global $setUserKeyMode;
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	386
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	387 switch ($setUserKeyMode)
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	388 {
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	389 case VOTE_FREELY:
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	390 $cond = 0;
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	391 break;
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	392
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	393 case VOTE_ACTIVATE:
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	394 $cond = $item["active"];
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	395 break;
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	396
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	397 case VOTE_ASSIGN:
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	398 $cond = $item["key_id"] > 0;
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	399 break;
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	400 }
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	401
1091 c4b93729269d Add visual hint about user/votekeys that have been used for voting. Matti Hamalainen <ccr@tnsp.org> parents: 1082 diff changeset	402 return
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	403 "userkey ".($cond ? "vkeyActive" : "vkeyInactive").
1091 c4b93729269d Add visual hint about user/votekeys that have been used for voting. Matti Hamalainen <ccr@tnsp.org> parents: 1082 diff changeset	404 " ".($item["nvotes"] > 0 ? "vkeyUsed" : "vkeyUnused");
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	405 }
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	406
9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	407
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	408 function stGetUserKeyInfo()
1038 2e1a9b564674 Add votekey information blurb. Matti Hamalainen <ccr@tnsp.org> parents: 1036 diff changeset	409 {
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	410 $nkeys = stFetchSQLColumn("SELECT COUNT(*) FROM userkeys WHERE active=1");
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	411 $totalKeys = stFetchSQLColumn("SELECT COUNT(*) FROM userkeys");
1056 6dc4337c7068 Add more information about voting. Matti Hamalainen <ccr@tnsp.org> parents: 1055 diff changeset	412
6dc4337c7068 Add more information about voting. Matti Hamalainen <ccr@tnsp.org> parents: 1055 diff changeset	413 $nvoters = stFetchSQLColumn("SELECT COUNT(DISTINCT(key_id)) FROM votes");
6dc4337c7068 Add more information about voting. Matti Hamalainen <ccr@tnsp.org> parents: 1055 diff changeset	414
6dc4337c7068 Add more information about voting. Matti Hamalainen <ccr@tnsp.org> parents: 1055 diff changeset	415 return
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	416 "Info: <b>".$nkeys."</b> of <b>".$totalKeys."</b> userkeys are activated. ".
1056 6dc4337c7068 Add more information about voting. Matti Hamalainen <ccr@tnsp.org> parents: 1055 diff changeset	417 "Also, <b>".$nvoters."</b> keys have been used for voting.";
1038 2e1a9b564674 Add votekey information blurb. Matti Hamalainen <ccr@tnsp.org> parents: 1036 diff changeset	418 }
2e1a9b564674 Add votekey information blurb. Matti Hamalainen <ccr@tnsp.org> parents: 1036 diff changeset	419
2e1a9b564674 Add votekey information blurb. Matti Hamalainen <ccr@tnsp.org> parents: 1036 diff changeset	420
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	421 function stGetUserKeyItemData($id, $item, $prefix)
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	422 {
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	423 global $setUserKeyMode, $setUserKeyLen;
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	424
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	425 switch ($setUserKeyMode)
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	426 {
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	427 case VOTE_FREELY:
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	428 case VOTE_ACTIVATE:
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	429 $klen = $setUserKeyLen - strlen($item["key"]);
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	430 $str = sprintf(
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	431 "<span class=\"keyid\">%03d</span> : ".
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	432 "<span class=\"keycode\">%s</span>",
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	433 $id,
668 2943ec592cc1 Validate votekey length - set vote key length when printing padding. Matti Hamalainen <ccr@tnsp.org> parents: 666 diff changeset	434 (($klen > 0) ? str_repeat(" ", $klen) : "").$item["key"]);
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	435
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	436 if ($setUserKeyMode == VOTE_ACTIVATE)
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	437 {
319 623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	438 $str .= stGetFormCheckBoxInput("active", $id, $prefix, $item["active"], FALSE,
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	439 "class=\"keyactive\" onChange=\"userKeySetActive(".$id.")\"", "");
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	440 }
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	441
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	442 return $str;
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	443
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	444 case VOTE_ASSIGN:
319 623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	445 $str =
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	446 " <td class=\"name\">".chentities($item["name"])."</td>\n".
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	447 " <td class=\"groups\">".chentities($item["groups"])."</td>\n".
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	448 " <td class=\"vkeynum\">".
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	449 stGetFormTextInput(5, 5, "key_id", $id, $prefix, $item["key_id"]).
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	450 stGetFormButtonInput("assign", $id, $prefix, "Set", "userKeyAssign(".$id.",1)");
319 623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	451
623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	452 if ($item["key_id"] != 0)
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	453 $str .= stGetFormButtonInput("clear", $id, $prefix, "Clear", "userKeyAssign(".$id.",0)");
319 623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	454
623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	455 $str .=
623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	456 "</td>\n".
324 f3dfdb4fb221 Improve vkey admin visual usability. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	457 " <td class=\"vkey\">";
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	458
324 f3dfdb4fb221 Improve vkey admin visual usability. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	459 if ($item["key_id"] > 0)
f3dfdb4fb221 Improve vkey admin visual usability. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	460 $str .= sprintf("<span class=\"keyid\">%03d</span>".
f3dfdb4fb221 Improve vkey admin visual usability. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	461 " : <span class=\"keycode\">%s</span>",
f3dfdb4fb221 Improve vkey admin visual usability. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	462 $item["key_id"], chentities($item["key"]));
f3dfdb4fb221 Improve vkey admin visual usability. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	463
f3dfdb4fb221 Improve vkey admin visual usability. Matti Hamalainen <ccr@tnsp.org> parents: 321 diff changeset	464 $str .= "</td>\n";
319 623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	465 return $str;
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	466 }
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	467 }
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	468
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	469
905 2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	470 function stGetInfoEntryData($show_id, $compo_id, $showNotes)
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	471 {
411 2aa58de08d6d If show_id for entry is 0, ignore it. Matti Hamalainen <ccr@tnsp.org> parents: 407 diff changeset	472 if ($show_id > 0)
2aa58de08d6d If show_id for entry is 0, ignore it. Matti Hamalainen <ccr@tnsp.org> parents: 407 diff changeset	473 {
2aa58de08d6d If show_id for entry is 0, ignore it. Matti Hamalainen <ccr@tnsp.org> parents: 407 diff changeset	474 $sql = stPrepareSQL("SELECT * FROM entries WHERE show_id=%d AND compo_id=%d",
2aa58de08d6d If show_id for entry is 0, ignore it. Matti Hamalainen <ccr@tnsp.org> parents: 407 diff changeset	475 $show_id, $compo_id);
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	476
411 2aa58de08d6d If show_id for entry is 0, ignore it. Matti Hamalainen <ccr@tnsp.org> parents: 407 diff changeset	477 if (($entry = stFetchSQL($sql)) !== false)
468 bc1755a9f89f Add filenames to be shown in current/prev entry in compo control. Matti Hamalainen <ccr@tnsp.org> parents: 467 diff changeset	478 {
905 2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	479 // Entry show#/title/author information
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	480 $str =
868 6829da58c17c Add some more css classes. Matti Hamalainen <ccr@tnsp.org> parents: 867 diff changeset	481 "<div class=\"entryInfo\">#".$entry["show_id"]." - ".
6829da58c17c Add some more css classes. Matti Hamalainen <ccr@tnsp.org> parents: 867 diff changeset	482 "<span class=\"entryName\">".chentities($entry["name"])."</span>".
6829da58c17c Add some more css classes. Matti Hamalainen <ccr@tnsp.org> parents: 867 diff changeset	483 "<span class=\"entryBy\"> by </span>".
6829da58c17c Add some more css classes. Matti Hamalainen <ccr@tnsp.org> parents: 867 diff changeset	484 "<span class=\"entryAuthor\">".chentities($entry["author"])."</span>".
6829da58c17c Add some more css classes. Matti Hamalainen <ccr@tnsp.org> parents: 867 diff changeset	485 "</div>";
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	486
905 2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	487 // File information for quick reference
872 5e9958f78b16 More work. Matti Hamalainen <ccr@tnsp.org> parents: 870 diff changeset	488 if (($efile = stFetchSQL("SELECT * FROM files WHERE deleted=0 AND id=".$entry["file_id"])) !== false)
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	489 {
870 b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	490 foreach (array("S" => "filename", "O" => "origname") as $ftitle => $fid)
b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	491 {
b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	492 $str .=
b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	493 "<div class=\"entryFile\">".
b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	494 "<span class=\"entryFileTitle\">".$ftitle.": </span>".
b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	495 "<span class=\"entryFileName\">".chentities($efile[$fid])."</span>".
b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	496 "</div>";
b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	497 }
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	498 }
74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	499 else
870 b5176d174bf5 Adjust curr/prev entry showing. Matti Hamalainen <ccr@tnsp.org> parents: 868 diff changeset	500 $str .= "<div class=\"entryFile\"><span class=\"entryFileName\">No file!</span></div>";
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	501
905 2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	502 // Show entry notes here too
2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	503 if ($showNotes)
2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	504 $str .= "<div class=\"entryNotes\">".chentities($entry["notes"])."</div>";
2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	505
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	506 return $str;
468 bc1755a9f89f Add filenames to be shown in current/prev entry in compo control. Matti Hamalainen <ccr@tnsp.org> parents: 467 diff changeset	507 }
411 2aa58de08d6d If show_id for entry is 0, ignore it. Matti Hamalainen <ccr@tnsp.org> parents: 407 diff changeset	508 }
2aa58de08d6d If show_id for entry is 0, ignore it. Matti Hamalainen <ccr@tnsp.org> parents: 407 diff changeset	509 return "-";
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	510 }
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	511
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	512
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	513 function stGetInfoCurrCompoData($indent)
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	514 {
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	515 $compoID = stGetDisplayVar("compoID");
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	516 if ($compoID > 0)
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	517 {
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	518 $sql = stPrepareSQL("SELECT * FROM compos WHERE id=%d", $compoID);
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	519 if (($entry = stFetchSQL($sql)) !== false)
790 7d7258904b02 Compo interface cosmetic change. Matti Hamalainen <ccr@tnsp.org> parents: 783 diff changeset	520 $strCompo = chentities($entry["name"]);
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	521
905 2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	522 $strCurrEntry = stGetInfoEntryData(stGetDisplayVar("compoCurrEntry"), $compoID, TRUE);
2e2d3d9ab205 Add some comments. Matti Hamalainen <ccr@tnsp.org> parents: 904 diff changeset	523 $strPrevEntry = stGetInfoEntryData(stGetDisplayVar("compoPrevEntry"), $compoID, FALSE);
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	524 }
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	525 else
468 bc1755a9f89f Add filenames to be shown in current/prev entry in compo control. Matti Hamalainen <ccr@tnsp.org> parents: 467 diff changeset	526 $strCompo = $strCurrEntry = $strCurrEntryFile = $strPrevEntry = "-";
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	527
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	528 return
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	529 $indent."<div class=\"entryData\">Compo: <b>".$strCompo."</b></div>\n".
74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	530 $indent."<div class=\"entryData\"><div class=\"entryDataTitle\">Current entry:</div>".$strCurrEntry."</div>\n".
74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	531 $indent."<div class=\"entryData\"><div class=\"entryDataTitle\">Previous entry:</div>".$strPrevEntry."</div>\n";
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	532 }
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	533
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	534
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	535 function stGetInfoCurrEntryList($indent, $outer)
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	536 {
404 d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	537 $sql = stPrepareSQL(
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	538 "SELECT * FROM entries WHERE compo_id=%d ORDER BY show_id ASC",
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	539 stGetDisplayVar("compoID"));
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	540
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	541 $currShowID = stGetDisplayVar("compoCurrEntry");
413 9eb46567f0aa If shown entry ID is undefined, don't select anything. Matti Hamalainen <ccr@tnsp.org> parents: 412 diff changeset	542 if ($currShowID <= 0)
9eb46567f0aa If shown entry ID is undefined, don't select anything. Matti Hamalainen <ccr@tnsp.org> parents: 412 diff changeset	543 $currShowID = -1;
9eb46567f0aa If shown entry ID is undefined, don't select anything. Matti Hamalainen <ccr@tnsp.org> parents: 412 diff changeset	544
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	545 $str = stGetFormOptionListStart("ctrlEntryList", $indent, $outer);
407 eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	546
404 d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	547 if (($res = stExecSQL($sql)) !== false)
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	548 {
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	549 foreach ($res as $item)
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	550 {
747 330e6d79c5dc Change stGetFormOptionList* function APIs a bit. Matti Hamalainen <ccr@tnsp.org> parents: 740 diff changeset	551 $str .= stGetFormOptionListItem($indent." ", $item["show_id"],
404 d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	552 ($item["show_id"] == $currShowID),
469 fccb15424ca3 Cosmetic improvements. Matti Hamalainen <ccr@tnsp.org> parents: 468 diff changeset	553 sprintf("%3d. %-25s by %-15s",
fccb15424ca3 Cosmetic improvements. Matti Hamalainen <ccr@tnsp.org> parents: 468 diff changeset	554 $item["show_id"],
fccb15424ca3 Cosmetic improvements. Matti Hamalainen <ccr@tnsp.org> parents: 468 diff changeset	555 substr($item["name"], 0, 25),
fccb15424ca3 Cosmetic improvements. Matti Hamalainen <ccr@tnsp.org> parents: 468 diff changeset	556 substr($item["author"], 0, 15)));
404 d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	557 }
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	558 }
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	559
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	560 return $str.stGetFormOptionListEnd($indent, $outer);
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	561 }
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	562
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	563
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	564 function stGetInfoRotationLists($indent, $outer)
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	565 {
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	566 $sql =
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	567 "SELECT rot_list_data.*, ".
8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	568 "(SELECT COUNT(*) FROM rot_list_slides WHERE list_id=rot_list_data.id) AS nslides ".
8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	569 "FROM rot_list_data ".
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	570 "ORDER BY id DESC";
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	571
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	572 $str = stGetFormOptionListStart("ctrlRotationLists", $indent, $outer);
453 f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	573 $currListID = stGetDisplayVar("rotateList");
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	574
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	575 if (($res = stExecSQL($sql)) !== false)
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	576 {
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	577 foreach ($res as $item)
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	578 {
747 330e6d79c5dc Change stGetFormOptionList* function APIs a bit. Matti Hamalainen <ccr@tnsp.org> parents: 740 diff changeset	579 $str .= stGetFormOptionListItem($indent." ", $item["id"],
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	580 ($currListID == $item["id"]),
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	581 $item["name"]." (".$item["nslides"]." slides)");
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	582 }
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	583 }
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	584
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	585 return $str.stGetFormOptionListEnd($indent, $outer);
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	586 }
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	587
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	588
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	589 function stGetInfoDisplaySlides($indent, $outer)
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	590 {
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	591 $str = stGetFormOptionListStart("ctrlDisplaySlides", $indent, $outer);
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	592
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	593 $sql = "SELECT * FROM display_slides ORDER BY id DESC";
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	594 if (($res = stExecSQL($sql)) !== false)
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	595 {
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	596 foreach ($res as $item)
747 330e6d79c5dc Change stGetFormOptionList* function APIs a bit. Matti Hamalainen <ccr@tnsp.org> parents: 740 diff changeset	597 $str .= stGetFormOptionListItem($indent." ", $item["id"], FALSE, $item["title"]);
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	598 }
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	599
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	600 return $str.stGetFormOptionListEnd($indent, $outer);
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	601 }
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	602
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	603
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	604 function stGetInfoRotationListEditFull($indent, $outer, $list_id)
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	605 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	606 $sql = stPrepareSQL("SELECT * FROM rot_list_data WHERE id=%d", $list_id);
449 3e334425a421 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 447 diff changeset	607 if (($data = stFetchSQL($sql)) === false)
657 abfbacdff90a Add error message for missing rotation list IDs. Matti Hamalainen <ccr@tnsp.org> parents: 655 diff changeset	608 return "<p>No such rotation list ID #".intval($list_id)."</p>";
449 3e334425a421 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 447 diff changeset	609
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	610 $str =
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	611 ($outer ? $indent."<div class=\"ctrlBox\" id=\"ctrlRotationListEdit\">\n" : "").
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	612 $indent." <div class=\"ctrlTitle\">Edit rotation list</div>\n".
453 f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	613 $indent." ".stGetFormTextInput(30, SET_LEN_ROT_LIST_NAME, "", "ctrlEDRotationListName", "", $data["name"])."\n".
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	614 $indent." ".stGetFormButtonInput("updname", "", "", "Save", "updateRotationList(".$list_id.")")."\n".
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	615 "<div>Available slides:</div>\n".
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	616 stGetFormOptionListStart("ctrlEDDisplaySlides", $indent." ", TRUE);
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	617
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	618 $sql = "SELECT * FROM display_slides";
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	619 if (($res = stExecSQL($sql)) !== false)
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	620 {
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	621 foreach ($res as $item)
747 330e6d79c5dc Change stGetFormOptionList* function APIs a bit. Matti Hamalainen <ccr@tnsp.org> parents: 740 diff changeset	622 $str .= stGetFormOptionListItem($indent." ", $item["id"], FALSE, $item["title"]);
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	623 }
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	624
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	625 $str .=
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	626 stGetFormOptionListEnd($indent." ", TRUE).
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	627 "<div>List content:</div>\n".
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	628 stGetInfoRotationListEditData($indent." ", TRUE, $list_id).
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	629 $indent." <div class=\"ctrlButtons\">\n".
464 a678e904633f OK. Matti Hamalainen <ccr@tnsp.org> parents: 461 diff changeset	630 // $indent." ".stGetFormButtonInput("moveslideup", "", "", "Move Up", "moveRotationListSlide(".$list_id.", -1)")."\n".
a678e904633f OK. Matti Hamalainen <ccr@tnsp.org> parents: 461 diff changeset	631 // $indent." ".stGetFormButtonInput("moveslidedn", "", "", "Move Down", "moveRotationListSlide(".$list_id.", 1)")."\n".
453 f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	632 $indent." ".stGetFormButtonInput("addslide", "", "", "Add slide", "addRotationListSlide(".$list_id.")")."\n".
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	633 $indent." ".stGetFormButtonInput("delslide", "", "", "Remove slide", "removeRotationListSlide(".$list_id.")")."\n".
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	634 $indent." ".stGetFormButtonInput("closeedit", "", "", "Close", "jsCloseAdminPopup()")."\n".
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	635 $indent." </div>\n".
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	636 ($outer ? $indent."</div>\n" : "");
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	637
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	638 return $str;
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	639 }
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	640
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	641
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	642 function stGetInfoRotationListEditData($indent, $outer, $list_id)
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	643 {
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	644 $sql = stPrepareSQL(
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	645 "SELECT display_slides.*,rot_list_slides.order_num FROM display_slides ".
8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	646 "LEFT JOIN rot_list_slides ON display_slides.id=rot_list_slides.slide_id ".
8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	647 "WHERE rot_list_slides.list_id=%d ".
8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	648 "ORDER BY rot_list_slides.order_num DESC",
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	649 $list_id);
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	650
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	651 $str = stGetFormOptionListStart("ctrlEDRotationList", $indent, $outer);
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	652
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	653 if (($res = stExecSQL($sql)) !== false)
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	654 {
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	655 foreach ($res as $item)
449 3e334425a421 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 447 diff changeset	656 {
747 330e6d79c5dc Change stGetFormOptionList* function APIs a bit. Matti Hamalainen <ccr@tnsp.org> parents: 740 diff changeset	657 $str .= stGetFormOptionListItem($indent." ", $item["id"]."_".$item["order_num"], FALSE, $item["title"]);
449 3e334425a421 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 447 diff changeset	658 }
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	659 }
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	660
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	661 return $str.stGetFormOptionListEnd($indent, $outer);
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	662 }
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	663
4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	664
455 a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	665 function stGetInfoActiveRotationList($indent, $outer)
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	666 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	667 $sql = stPrepareSQL("SELECT * FROM rot_list_data WHERE id=%d",
455 a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	668 stGetDisplayVar("rotateList"));
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	669
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	670 $str = $indent.($outer ? "<div id=\"ctrlActiveRotationList\">" : "").
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	671 "<b>Active list:</b> ";
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	672
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	673 if (($slist = stFetchSQL($sql)) === false)
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	674 $str .= "-";
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	675 else
466 fd192840dbea Adjust limit. Matti Hamalainen <ccr@tnsp.org> parents: 465 diff changeset	676 $str .= chentities(substr($slist["name"], 0, 40));
455 a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	677
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	678 return $str.($outer ? "</div>\n" : "");
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	679 }
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	680
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	681
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	682 function stGetInfoDisplaySlideEdit($indent, $outer, $slide_id)
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	683 {
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	684 $prefix = "ctrlDisplaySlide";
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	685
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	686 $str =
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	687 ($outer ? "<div class=\"ctrlBox\" id=\"".$prefix."Edit\">\n" : "").
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	688 $indent." <form method=\"post\" action=\"\" onsubmit=\"return updateDisplaySlide(".$slide_id.")\">\n".
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	689 $indent." <div class=\"ctrlTitle\">Edit display slide</div>\n";
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	690
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	691 $sql = stPrepareSQL("SELECT * FROM display_slides WHERE id=%d", $slide_id);
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	692 if (($slide = stFetchSQL($sql)) !== false)
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	693 {
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	694 $str .=
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	695 " ".stGetFormTextInput(40, SET_LEN_DISP_SLIDE_TITLE, "", "Title", $prefix, $slide["title"])."<br />\n".
877 5c5bd09d15f3 Make display slide content editing textbox larger. Matti Hamalainen <ccr@tnsp.org> parents: 872 diff changeset	696 " ".stGetFormTextArea(10, 80, "", "Text", $prefix, $slide["text"])."<br />\n";
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	697 }
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	698
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	699 $str .=
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	700 " <div class=\"ctrlButtons\">\n".
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	701 " ".stGetFormSubmitInput("createslide", "Save slide")."\n".
442 dfe1e94d6f17 Make close/cancel button bigger. Matti Hamalainen <ccr@tnsp.org> parents: 441 diff changeset	702 " ".stGetFormButtonInput("cancelslide", "", "", "Close / Cancel", "jsCloseAdminPopup()")."\n".
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	703 " </div>\n".
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	704 " </form>\n".
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	705 ($outer ? "</div>\n" : "");
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	706
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	707 return $str;
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	708 }
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	709
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	710
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	711 function stGetSaveButton()
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	712 {
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	713 return "<input type=\"submit\" value=\" Save \" />\n";
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	714 }
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	715
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	716
374 9c4accca7bf8 Add some helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 373 diff changeset	717 function stGetShowModeButton($mode, $name, $cmode)
9c4accca7bf8 Add some helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 373 diff changeset	718 {
396 2b77599d0324 Stuff. Matti Hamalainen <ccr@tnsp.org> parents: 395 diff changeset	719 return
2b77599d0324 Stuff. Matti Hamalainen <ccr@tnsp.org> parents: 395 diff changeset	720 "<input type=\"radio\" id=\"showMode".$mode.
2b77599d0324 Stuff. Matti Hamalainen <ccr@tnsp.org> parents: 395 diff changeset	721 "\" name=\"showMode\" value=\"".$mode."\" ".
534 067bef3846aa Use onChange instead of onClick. Matti Hamalainen <ccr@tnsp.org> parents: 519 diff changeset	722 "onChange=\"setShowMode(".$mode.")\" ".
396 2b77599d0324 Stuff. Matti Hamalainen <ccr@tnsp.org> parents: 395 diff changeset	723 ($cmode == $mode ? "checked=\"checked\" ": "")."/>".
2b77599d0324 Stuff. Matti Hamalainen <ccr@tnsp.org> parents: 395 diff changeset	724 "<label for=\"showMode".$mode."\">".chentities($name)."</label>";
374 9c4accca7bf8 Add some helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 373 diff changeset	725 }
9c4accca7bf8 Add some helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 373 diff changeset	726
9c4accca7bf8 Add some helper functions. Matti Hamalainen <ccr@tnsp.org> parents: 373 diff changeset	727
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	728 function stRandomizeCompoShowOrder($compo_id, $patch)
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	729 {
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	730 $entries = stExecSQL("SELECT id,show_id FROM entries WHERE compo_id=".$compo_id);
371 1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	731 if ($entries !== FALSE)
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	732 {
376 55007fe09371 And some more work on the backend. Matti Hamalainen <ccr@tnsp.org> parents: 375 diff changeset	733 $ncount = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$compo_id." AND show_id<>0");
371 1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	734 $final = array();
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	735
376 55007fe09371 And some more work on the backend. Matti Hamalainen <ccr@tnsp.org> parents: 375 diff changeset	736 if ($patch && $ncount > 0)
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	737 {
376 55007fe09371 And some more work on the backend. Matti Hamalainen <ccr@tnsp.org> parents: 375 diff changeset	738 $index = -1;
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	739 foreach ($entries as $entry)
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	740 {
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	741 if ($entry["show_id"] == 0)
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	742 $final[] = $entry["id"];
372 f09b4c08a920 Actually shuffle .. oops. Matti Hamalainen <ccr@tnsp.org> parents: 371 diff changeset	743
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	744 if ($entry["show_id"] > $index)
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	745 $index = $entry["show_id"];
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	746 }
376 55007fe09371 And some more work on the backend. Matti Hamalainen <ccr@tnsp.org> parents: 375 diff changeset	747
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	748 $index++;
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	749 }
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	750 else
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	751 {
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	752 foreach ($entries as $entry)
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	753 $final[] = $entry["id"];
372 f09b4c08a920 Actually shuffle .. oops. Matti Hamalainen <ccr@tnsp.org> parents: 371 diff changeset	754
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	755 shuffle($final);
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	756 $index = 1;
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	757 }
ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	758
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	759 stDBBeginTransaction();
371 1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	760 foreach ($final as $entry)
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	761 {
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	762 $sql = stPrepareSQL("UPDATE entries SET show_id=%d WHERE id=%d", $index, $entry);
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	763 if (stExecSQL($sql) === false)
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	764 {
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	765 stError("Error updating entry show positions.");
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	766 break;
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	767 }
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	768 $index++;
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	769 }
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	770 stDBCommitTransaction();
371 1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	771 }
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	772 }
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	773
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	774
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	775 //
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	776 // Check if we are allowed to execute
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	777 //
687 a38eab6f2bd2 Improve session expiration handling. Matti Hamalainen <ccr@tnsp.org> parents: 686 diff changeset	778 if (!stCheckHTTPS() \|\| !stAdmSessionAuth(TRUE) \|\| !stCSRFCheck())
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	779 {
686 8730bffcffd4 Add new return code 903 and handling for it. Matti Hamalainen <ccr@tnsp.org> parents: 682 diff changeset	780 stSetStatus(903, "Session expired.");
59 e5e38ed4e837 Work on compo entry addition and editing. Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	781 stSetupCacheControl();
686 8730bffcffd4 Add new return code 903 and handling for it. Matti Hamalainen <ccr@tnsp.org> parents: 682 diff changeset	782 stDumpAJAXStatusErrors();
59 e5e38ed4e837 Work on compo entry addition and editing. Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	783
e5e38ed4e837 Work on compo entry addition and editing. Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	784 stSessionEnd(SESS_ADMIN);
e5e38ed4e837 Work on compo entry addition and editing. Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	785
613 6fc379f4033d Session expiration handling made different. Matti Hamalainen <ccr@tnsp.org> parents: 609 diff changeset	786 echo
6fc379f4033d Session expiration handling made different. Matti Hamalainen <ccr@tnsp.org> parents: 609 diff changeset	787 "<h1>Session expired</h1>".
6fc379f4033d Session expiration handling made different. Matti Hamalainen <ccr@tnsp.org> parents: 609 diff changeset	788 "<div><a href=\"admin.php\">Click here to relogin</a>.</div>\n";
6fc379f4033d Session expiration handling made different. Matti Hamalainen <ccr@tnsp.org> parents: 609 diff changeset	789
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	790 exit;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	791 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	792
214 36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	793
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	794 //
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	795 // Initialize
36423e8ab765 Improve input validation. Matti Hamalainen <ccr@tnsp.org> parents: 212 diff changeset	796 //
544 b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	797 ob_start();
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	798
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	799 stSetupCacheControl();
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	800
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	801 if (!stConnectSQLDB())
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	802 die("Could not connect to SQL database.");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	803
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	804 stReloadSettings();
378 5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	805 stReloadDisplayVars();
687 a38eab6f2bd2 Improve session expiration handling. Matti Hamalainen <ccr@tnsp.org> parents: 686 diff changeset	806 stSessionExpire(SESS_ADMIN, FALSE);
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	807
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	808
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	809 $setUserKeyMode = stGetSetting("userKeyMode");
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	810 $setUserKeyLen = stGetSetting("userKeyLength");
208 8985d2bdb29b More work on error handling etc. Matti Hamalainen <ccr@tnsp.org> parents: 207 diff changeset	811 $type = stGetRequestItem("type", "");
8985d2bdb29b More work on error handling etc. Matti Hamalainen <ccr@tnsp.org> parents: 207 diff changeset	812 switch (stGetRequestItem("action", ""))
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	813 {
838 4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	814 case "upload":
4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	815 //
4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	816 // File upload
4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	817 //
846 e0c9bf182bb7 More work, another database change :S Matti Hamalainen <ccr@tnsp.org> parents: 838 diff changeset	818 if (stHandleGenericFileUpload(0))
865 80f6f31d3711 File upload fixes. Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	819 {
80f6f31d3711 File upload fixes. Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	820 echo "File upload successful!";
80f6f31d3711 File upload fixes. Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	821 stSetStatus(902, "File successfully uploaded.");
80f6f31d3711 File upload fixes. Matti Hamalainen <ccr@tnsp.org> parents: 860 diff changeset	822 }
838 4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	823 break;
4fcab270a3f9 API changes. Matti Hamalainen <ccr@tnsp.org> parents: 821 diff changeset	824
370 d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	825 case "randomize":
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	826 //
370 d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	827 // Randomize entries display order
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	828 //
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	829 $patch = intval(stGetRequestItem("patch", 1));
371 1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	830 if ($type == "all")
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	831 {
371 1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	832 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	833 stError("Eh? SQL error occured.");
d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	834 else
d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	835 foreach ($compos as $compo)
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	836 stRandomizeCompoShowOrder($compo["id"], $patch);
371 1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	837 }
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	838 else
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	839 if ($type == "compo")
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	840 {
1a7f97a36047 Modularize some more. Matti Hamalainen <ccr@tnsp.org> parents: 370 diff changeset	841 if (stChkRequestItem("id", $compo_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	842 stRandomizeCompoShowOrder($compo_id, $patch);
370 d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	843 }
375 028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	844 break;
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	845
1041 f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	846 case "screencmd":
f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	847 if (stChkRequestItem("cmd", $stmp, array(CHK_TYPE, VT_STR, "Invalid data.")))
f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	848 {
f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	849 stSetDisplayVar("screenCmdSet", TRUE);
f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	850 stSetDisplayVarUpd("screenCmd", $stmp);
f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	851 }
f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	852 break;
f188caaedf0f Implement force reloading of show screen web-page. Matti Hamalainen <ccr@tnsp.org> parents: 1038 diff changeset	853
375 028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	854 case "check":
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	855 //
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	856 // Perform systems check
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	857 //
377 f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	858 $errors = 0;
375 028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	859 echo
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	860 "<h1>Competitions / voting</h1>\n".
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	861 "<ul>\n";
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	862
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	863 echo "<li>".(stGetSetting("allowVoting") ? "Voting <b>IS ENABLED</b>." : "Voting is NOT enabled!")."</li>\n";
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	864
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	865 if (($compos = stExecSQL("SELECT * FROM compos")) === FALSE)
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	866 stError("Eh? SQL error occured.");
370 d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	867 else
d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	868 {
d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	869 foreach ($compos as $compo)
d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	870 {
373 ff8462a80cf2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 372 diff changeset	871 $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	872 if ($nentries > 0)
377 f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	873 {
375 028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	874 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	875 $errors++;
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	876 }
370 d65f28bf1080 Add backend code for generating entry show positions. Matti Hamalainen <ccr@tnsp.org> parents: 366 diff changeset	877 }
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	878 }
377 f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	879
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	880 $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	881 if ($nenabled == 0)
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	882 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	883
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	884 $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	885 if ($nenabled > 0)
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	886 echo "<li>".$nenabled." competitions that are NOT visible, but are enabled for voting?</li>\n";
381 0ae6d3fb5688 Interface improvements. Matti Hamalainen <ccr@tnsp.org> parents: 378 diff changeset	887
919 71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	888 // Count entries and compos
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	889 $nentries = $ncompos = 0;
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	890 foreach (stExecSQL("SELECT * FROM compos WHERE ctype=".COMPO_NORMAL) as $compo)
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	891 {
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	892 if (($ne = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$compo["id"])) !== false && $ne > 0)
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	893 {
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	894 $nentries += $ne;
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	895 $ncompos++;
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	896 }
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	897 }
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	898 if ($ncompos > 0)
1055 86f6a6191749 Cosmetic. Matti Hamalainen <ccr@tnsp.org> parents: 1052 diff changeset	899 echo "<li>VOTING COMPOS: <b>".$nentries."</b> entries in <b>".$ncompos."</b> compos.</li>\n";
919 71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	900
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	901 $nentries = $ncompos = 0;
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	902 foreach (stExecSQL("SELECT * FROM compos WHERE ctype <> ".COMPO_NORMAL) as $compo)
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	903 {
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	904 if (($ne = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$compo["id"])) !== false && $ne > 0)
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	905 {
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	906 $nentries += $ne;
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	907 $ncompos++;
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	908 }
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	909 }
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	910 if ($ncompos > 0)
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	911 echo "<li>NON-VOTING COMPOS: <b>".$nentries."</b> entries/participants in <b>".$ncompos."</b> compos.</li>\n";
71621519a883 Improve display of compo / entry statistics. Matti Hamalainen <ccr@tnsp.org> parents: 909 diff changeset	912
377 f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	913
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	914 if ($errors == 0)
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	915 echo "<li>No errors/warnings detected.</li>\n";
f7b53225d315 Add some more sanity checking. Matti Hamalainen <ccr@tnsp.org> parents: 376 diff changeset	916
375 028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	917 echo "</ul>\n";
028daa721ee2 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 374 diff changeset	918
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	919 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	920
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	921 case "ctrl":
392 5a34126297b1 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 391 diff changeset	922 //
5a34126297b1 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 391 diff changeset	923 // Party information system control
5a34126297b1 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 391 diff changeset	924 //
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	925 stDBBeginTransaction();
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	926 switch ($type)
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	927 {
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	928 case "setRotateDuration":
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	929 if (stChkRequestItem("duration", $duration,
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	930 array(CHK_TYPE, VT_INT, "Invalid data."),
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	931 array(CHK_RANGE, VT_INT, array(5, 60), "Invalid slide time value, must be 5 - 60 seconds.")))
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	932 {
454 ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	933 stSetDisplayVarUpd("rotateDuration", $duration);
ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	934 }
ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	935 break;
ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	936
455 a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	937 case "setActiveRotationList":
454 ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	938 if (stChkRequestItem("id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	939 {
ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	940 stSetDisplayVarUpd("rotateList", $list_id);
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	941 }
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	942 break;
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	943
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	944 case "setShowMode":
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	945 if (stChkRequestItem("mode", $mode,
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	946 array(CHK_TYPE, VT_INT, "Invalid data."),
391 0c1798c9d486 Add disabled mode. Matti Hamalainen <ccr@tnsp.org> parents: 390 diff changeset	947 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	948 {
454 ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	949 stSetDisplayVarUpd("showMode", $mode);
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	950 }
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	951 break;
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	952
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	953 case "setCompoID":
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	954 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	955 {
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	956 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	957 stError("Invalid compo ID ".$compo_id);
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	958 else
395 9f95b27b8e52 Backend fixes. Matti Hamalainen <ccr@tnsp.org> parents: 393 diff changeset	959 {
546 f1f55db4228f Always update current info display compo id if requested. Matti Hamalainen <ccr@tnsp.org> parents: 545 diff changeset	960 stSetDisplayVarUpd("compoID", $compo_id);
454 ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	961 stSetDisplayVar("compoCurrEntry", 0);
ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	962 stSetDisplayVar("compoPrevEntry", 0);
395 9f95b27b8e52 Backend fixes. Matti Hamalainen <ccr@tnsp.org> parents: 393 diff changeset	963 }
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	964 }
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	965 break;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	966
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	967 case "setEntry":
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	968 case "nextEntry":
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	969 case "prevEntry":
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	970 if (($compo_id = stGetDisplayVar("compoID")) > 0)
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	971 {
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	972 $prev = $curr = stGetDisplayVar("compoCurrEntry");
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	973 $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	974 switch ($type)
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	975 {
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	976 case "setEntry":
669 3b9992ab02d0 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 668 diff changeset	977 if (stChkRequestItem("index", $tmp,
3b9992ab02d0 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 668 diff changeset	978 array(CHK_TYPE, VT_INT, "Invalid index.")))
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	979 $curr = $tmp;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	980 break;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	981
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	982 case "nextEntry":
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	983 if ($curr < $nentries)
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	984 $curr++;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	985 break;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	986
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	987 case "prevEntry":
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	988 if ($curr > 1)
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	989 $curr--;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	990 break;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	991 }
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	992
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	993 if (!$errorSet)
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	994 {
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	995 stSetDisplayVar("compoCurrEntry", $curr);
738 249cba787da0 Only set displayed previous entry if it is different from current. Matti Hamalainen <ccr@tnsp.org> parents: 735 diff changeset	996 if ($curr != $prev)
249cba787da0 Only set displayed previous entry if it is different from current. Matti Hamalainen <ccr@tnsp.org> parents: 735 diff changeset	997 stSetDisplayVar("compoPrevEntry", $prev);
407 eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	998 stDisplayUpdated();
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	999 }
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	1000 }
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	1001 else
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	1002 stError("No valid competition set.");
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	1003 break;
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1004
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1005 case "setTempSlide":
429 2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1006 if (stChkRequestItem("id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1007 stChkRequestItem("duration", $slide_dur, array(CHK_RANGE, VT_INT, array(1, 60), "Invalid duration range, should be 1-60 min.")))
2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1008 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1009 $sql = stPrepareSQL("SELECT * FROM display_slides WHERE id=%d", $slide_id);
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1010 if (($slide = stFetchSQL($sql)) !== false)
429 2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1011 {
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1012 stSetDisplayVar("tempDuration", $slide_dur);
429 2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1013 stSetDisplayVar("tempSlide", $slide["id"]);
2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1014 stSetDisplayVar("tempSlideSet", TRUE);
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1015 echo "Temporary slide '".chentities($slide["title"])."' set for <b>".$slide_dur."</b> minutes.";
441 a7d348fe2055 Update when needed. Matti Hamalainen <ccr@tnsp.org> parents: 439 diff changeset	1016 stDisplayUpdated();
429 2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1017 }
2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1018 else
2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1019 stError("No such slide ID #".$slide_id);
2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1020 }
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1021 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1022
472 1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1023 case "skipToNextSlide":
1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1024 if (stGetDisplayVar("activeSlideMode") == SMODE_ROTATE)
1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1025 {
1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1026 stSetDisplayVar("activeSlideExpire", 0);
1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1027 stDisplayUpdated();
1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1028 }
1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1029 break;
1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1030
457 3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1031 case "copyDisplaySlide":
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1032 if (stChkRequestItem("id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1033 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1034 $sql = stPrepareSQL("SELECT * FROM display_slides WHERE id=%d", $slide_id);
457 3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1035 if (($slide = stFetchSQL($sql)) !== false)
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1036 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1037 $sql = stPrepareSQL("INSERT INTO display_slides (title,text) VALUES (%s,%s)",
457 3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1038 $slide["title"]." (copy)", $slide["text"]);
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1039
548 b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1040 if (($new_id = stExecSQLInsert($sql)) !== false)
457 3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1041 echo stGetInfoDisplaySlideEdit("", TRUE, $new_id);
548 b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1042 else
b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1043 stError("Could not insert slide.");
457 3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1044 }
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1045 else
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1046 stError("No such slide ID #".$slide_id);
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1047 }
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1048 break;
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1049
433 5c85316adfad Rename methods. Matti Hamalainen <ccr@tnsp.org> parents: 431 diff changeset	1050 case "newDisplaySlide":
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1051 $sql = stPrepareSQL("INSERT INTO display_slides (title) VALUES (%s)", "New slide");
548 b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1052 if (($slide_id = stExecSQLInsert($sql)) !== false)
434 d948f1f12b23 Fix new slide creation. Matti Hamalainen <ccr@tnsp.org> parents: 433 diff changeset	1053 echo stGetInfoDisplaySlideEdit("", TRUE, $slide_id);
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1054 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1055
433 5c85316adfad Rename methods. Matti Hamalainen <ccr@tnsp.org> parents: 431 diff changeset	1056 case "updateDisplaySlide":
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1057 if (stChkRequestItem("id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
451 772a2138861b No need for this function. Matti Hamalainen <ccr@tnsp.org> parents: 450 diff changeset	1058 stChkRequestItem("title", $fake,
772a2138861b No need for this function. Matti Hamalainen <ccr@tnsp.org> parents: 450 diff changeset	1059 array(CHK_GTEQ, VT_STR, 1, "Slide title too short."),
772a2138861b No need for this function. Matti Hamalainen <ccr@tnsp.org> parents: 450 diff changeset	1060 array(CHK_LTEQ, VT_STR, SET_LEN_DISP_SLIDE_TITLE, "Slide title too long.")
772a2138861b No need for this function. Matti Hamalainen <ccr@tnsp.org> parents: 450 diff changeset	1061 ) &&
772a2138861b No need for this function. Matti Hamalainen <ccr@tnsp.org> parents: 450 diff changeset	1062 stChkRequestItem("text", $fake,
772a2138861b No need for this function. Matti Hamalainen <ccr@tnsp.org> parents: 450 diff changeset	1063 array(CHK_LTEQ, VT_STR, SET_LEN_DISP_SLIDE_TEXT, "Slide content too long.")
772a2138861b No need for this function. Matti Hamalainen <ccr@tnsp.org> parents: 450 diff changeset	1064 ))
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1065 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1066 $sql = stPrepareSQLUpdate("display_slides",
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1067 "WHERE id=".$slide_id,
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1068 array(
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1069 "title" => "S",
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1070 "text" => "S",
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1071 ));
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1072
548 b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1073 if (stExecSQL($sql) !== false)
b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1074 {
b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1075 stSetStatus(200, "Slide updated.");
b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1076 stDisplayUpdated();
b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1077 }
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1078 }
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1079 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1080
433 5c85316adfad Rename methods. Matti Hamalainen <ccr@tnsp.org> parents: 431 diff changeset	1081 case "deleteDisplaySlide":
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1082 if (stChkRequestItem("id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1083 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1084 $sql = stPrepareSQL("DELETE FROM display_slides WHERE id=%d", $slide_id);
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1085 stExecSQLCond($sql, "Slide deleted.");
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1086
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1087 $sql = stPrepareSQL("DELETE FROM rot_list_slides WHERE slide_id=%d", $slide_id);
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1088 stExecSQLCond($sql, "Slide list refs deleted.");
441 a7d348fe2055 Update when needed. Matti Hamalainen <ccr@tnsp.org> parents: 439 diff changeset	1089 stDisplayUpdated();
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1090 }
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1091 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1092
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1093 case "newRotationList":
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1094 $sql = stPrepareSQL("INSERT INTO rot_list_data (name) VALUES (%s)", "New list #");
548 b3e9c3eedc23 Use the helper functions for insertion. Matti Hamalainen <ccr@tnsp.org> parents: 546 diff changeset	1095 if (($list_id = stExecSQLInsert($sql)) !== false)
427 707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1096 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1097 $sql = stPrepareSQL("UPDATE rot_list_data SET name=%s WHERE id=%d",
431 55affc680c2b 10L again. Matti Hamalainen <ccr@tnsp.org> parents: 430 diff changeset	1098 "New list #".$list_id, $list_id);
427 707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1099
707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1100 if (stExecSQLCond($sql, "OK!") !== false)
707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1101 echo stGetInfoRotationListEditFull("", TRUE, $list_id);
707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1102 }
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1103 break;
b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1104
b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1105 case "updateRotationList":
453 f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1106 if (stChkRequestItem("id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1107 stChkRequestItem("name", $fake,
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1108 array(CHK_GTEQ, VT_STR, 3, "Rotation list name too short."),
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1109 array(CHK_LTEQ, VT_STR, SET_LEN_ROT_LIST_NAME, "Rotation list name too long.")))
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1110 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1111 $sql = stPrepareSQLUpdate("rot_list_data",
453 f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1112 "WHERE id=".$list_id,
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1113 array(
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1114 "name" => "S",
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1115 ));
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1116
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1117 stExecSQLCond($sql, "OK, list updated.");
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1118 stDisplayUpdated();
f2a0da566e30 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 451 diff changeset	1119 }
441 a7d348fe2055 Update when needed. Matti Hamalainen <ccr@tnsp.org> parents: 439 diff changeset	1120 stDisplayUpdated();
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1121 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1122
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1123 case "deleteRotationList":
b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1124 if (stChkRequestItem("id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1125 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1126 $sql = stPrepareSQL("DELETE FROM rot_list_data WHERE id=%d", $list_id);
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1127 stExecSQLCond($sql, "List data deleted.");
b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1128
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1129 $sql = stPrepareSQL("DELETE FROM rot_list_slides WHERE list_id=%d", $list_id);
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1130 stExecSQLCond($sql, "List slide refs deleted.");
441 a7d348fe2055 Update when needed. Matti Hamalainen <ccr@tnsp.org> parents: 439 diff changeset	1131 stDisplayUpdated();
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1132 }
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1133 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1134
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1135 case "moveRotationListSlide":
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1136 if (stChkRequestItem("list_id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1137 stChkRequestItem("slide_id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
461 ac7357d52ff6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	1138 stChkRequestItem("order_num", $order_num, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1139 stChkRequestItem("dir", $dir, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1140 {
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1141 }
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1142 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1143
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1144 case "addRotationListSlide":
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1145 if (stChkRequestItem("list_id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1146 stChkRequestItem("slide_id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1147 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1148 $nslides = stFetchSQLColumn(stPrepareSQL("SELECT COUNT(*) FROM rot_list_slides WHERE list_id=%d", $list_id));
459 36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1149 $sql = stPrepareSQL(
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1150 "INSERT INTO rot_list_slides (list_id,slide_id,order_num) VALUES (%d,%d,%d)",
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1151 $list_id, $slide_id, $nslides+1);
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1152
459 36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1153 if (stExecSQLCond($sql, "Slide added to list."))
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1154 {
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1155 stNormalizeListSlideOrder($list_id);
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1156 stDisplayUpdated();
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1157 }
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1158 }
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1159 break;
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1160
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	1161 case "removeRotationListSlide":
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1162 if (stChkRequestItem("list_id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
461 ac7357d52ff6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	1163 stChkRequestItem("slide_id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")) &&
ac7357d52ff6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	1164 stChkRequestItem("order_num", $order_num, array(CHK_TYPE, VT_INT, "Invalid data.")))
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1165 {
542 8c1a53532be0 Rename various database tables and column names for better SQL compatibility. Matti Hamalainen <ccr@tnsp.org> parents: 534 diff changeset	1166 $sql = stPrepareSQL("DELETE FROM rot_list_slides WHERE list_id=%d AND slide_id=%d AND order_num=%d",
461 ac7357d52ff6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 459 diff changeset	1167 $list_id, $slide_id, $order_num);
459 36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1168
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1169 if (stExecSQLCond($sql, "List slide refs deleted."))
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1170 {
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1171 stNormalizeListSlideOrder($list_id);
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1172 stDisplayUpdated();
36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1173 }
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1174 }
606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1175 break;
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	1176 }
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1177 stDBCommitTransaction();
390 3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	1178 break;
3257ae94ba1c Work on show display backend logic. Matti Hamalainen <ccr@tnsp.org> parents: 385 diff changeset	1179
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1180 case "get":
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1181 //
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1182 // Get specific data
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1183 //
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1184 switch ($type)
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1185 {
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	1186 case "infoCurrCompoData":
74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	1187 echo stGetInfoCurrCompoData("", FALSE);
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1188 break;
404 d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	1189
d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	1190 case "infoCurrEntryList":
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	1191 echo stGetInfoCurrEntryList("", FALSE);
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	1192 break;
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	1193
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	1194 case "infoRotationLists":
d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	1195 echo stGetInfoRotationLists("", FALSE);
404 d454f7eebddd Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 398 diff changeset	1196 break;
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1197
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1198 case "infoDisplaySlides":
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1199 echo stGetInfoDisplaySlides("", FALSE);
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1200 break;
48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1201
422 b7c395958728 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 421 diff changeset	1202 case "infoRotationListEdit":
427 707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1203 if (stChkRequestItem("id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
459 36835ef53346 Moar! Matti Hamalainen <ccr@tnsp.org> parents: 457 diff changeset	1204 echo stGetInfoRotationListEditFull("", stGetRequestItem("full", TRUE), $list_id);
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	1205 break;
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1206
423 4c6e4daf9d0d Moar. Matti Hamalainen <ccr@tnsp.org> parents: 422 diff changeset	1207 case "infoRotationListEditData":
427 707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1208 if (stChkRequestItem("id", $list_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1209 echo stGetInfoRotationListEditData("", FALSE, $list_id);
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1210 break;
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1211
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1212 case "infoDisplaySlideEdit":
421 606a8ab61d0f Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 419 diff changeset	1213 if (stChkRequestItem("id", $slide_id, array(CHK_TYPE, VT_INT, "Invalid data.")))
467 9e987c975dca Default to full html of the slide edit. Matti Hamalainen <ccr@tnsp.org> parents: 466 diff changeset	1214 echo stGetInfoDisplaySlideEdit("", TRUE, $slide_id);
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1215 break;
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1216
455 a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	1217 case "infoActiveRotationList":
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	1218 echo stGetInfoActiveRotationList("", FALSE);
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	1219 break;
a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	1220
419 206a18bc603a Rename menu entry. Matti Hamalainen <ccr@tnsp.org> parents: 418 diff changeset	1221 case "infoMain":
449 3e334425a421 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 447 diff changeset	1222 //
3e334425a421 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 447 diff changeset	1223 // Main information control screen
3e334425a421 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 447 diff changeset	1224 //
378 5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1225 $showMode = stGetDisplayVar("showMode");
5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1226 echo
792 b42b23073209 Improve printing of results with more options (in the admin interface). Matti Hamalainen <ccr@tnsp.org> parents: 790 diff changeset	1227 "<div id=\"ctrlModeControls\" class=\"ctrlModeControls\">\n".
378 5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1228 "Active mode:\n".
391 0c1798c9d486 Add disabled mode. Matti Hamalainen <ccr@tnsp.org> parents: 390 diff changeset	1229 stGetShowModeButton(SMODE_DISABLED, "Off/disabled", $showMode)."\n".
378 5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1230 stGetShowModeButton(SMODE_ROTATE, "Slide rotation", $showMode)."\n".
5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1231 stGetShowModeButton(SMODE_COMPO, "Compo mode", $showMode)."\n".
1046 4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1232 stGetFormButtonInput("openShowScreen", "", "", "Showscreen window", "window.open('show.php')")."\n".
4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1233 stGetFormButtonInput("reloadShowScreen", "", "", "Showscreen reload", "showScreenCmd('reload')")."\n".
4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1234 //"</div>\n".
4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1235 //"<div id=\"ctrlSystemControls\">\n".
4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1236 stGetFormButtonInput("systemCheck", "", "", "System check", "performSystemCheck()")."\n".
4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1237 stGetFormButtonInput("generateShowPositions", "", "", "Add show positions", "generateEntryPositions(0, 1)")."\n".
4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1238 // XXX: disable this button for now
4e5fa876ebee Maybe make the infosystem screen a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 1045 diff changeset	1239 // stGetFormButtonInput("regenerate", "", "", "RESET show positions", "generateEntryPositions(0, 0)")."\n".
378 5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1240 "</div>\n";
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1241
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1242 echo
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1243 "<div class=\"ctrlBox\" id=\"ctrlListRotationLists\">\n".
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1244 " <div class=\"ctrlTitle\">Rotation lists:</div>\n".
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	1245 " <div class=\"ctrlInfo\">Lists of slides, that are shown for X seconds and 'rotated' to next one.</div>\n".
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	1246 stGetInfoRotationLists(" ", TRUE).
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1247 " <div class=\"ctrlButtons\">\n".
450 c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	1248 " ".stGetFormButtonInput("setdur", "", "", "Set", "setRotateDuration()")."\n".
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	1249 " ".stGetFormTextInput(3, 5, "", "ctrlRotSlideDuration", "", stGetDisplayVar("rotateDuration"))." sec\n".
c7cc689071aa Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 449 diff changeset	1250 " - ".
454 ea7fc4e9f602 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 453 diff changeset	1251 " ".stGetFormButtonInput("actlist", "", "", "Set Active", "setActiveRotationList()")."\n".
416 876846d8ed5b Rename some database things. Matti Hamalainen <ccr@tnsp.org> parents: 415 diff changeset	1252 " ".stGetFormButtonInput("editlist", "", "", "Edit", "editRotationList()")."\n".
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1253 " ".stGetFormButtonInput("newlist", "", "", "New", "newRotationList()")."\n".
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1254 " ".stGetFormButtonInput("dellist", "", "", "Delete", "deleteRotationList()")."\n".
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1255 " </div>\n".
455 a23441096913 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 454 diff changeset	1256 stGetInfoActiveRotationList(" ", TRUE).
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1257 "</div>\n";
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1258
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1259 echo
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1260 "<div class=\"ctrlBox\" id=\"ctrlListDisplaySlides\">\n".
14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1261 "<div class=\"ctrlTitle\">Display slides:</div>\n".
443 2a4d5ded6c79 Add helpful information popups. Matti Hamalainen <ccr@tnsp.org> parents: 442 diff changeset	1262 " <div class=\"ctrlInfo\">Editable slides (think 'powerpoint') for information/announcements. ".
2a4d5ded6c79 Add helpful information popups. Matti Hamalainen <ccr@tnsp.org> parents: 442 diff changeset	1263 "Can be collected into slide rotations or set to display as 'temp slide' at any given time.</div>\n".
438 48903fd966cd Things are starting to work. Matti Hamalainen <ccr@tnsp.org> parents: 437 diff changeset	1264 stGetInfoDisplaySlides(" ", TRUE).
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1265 " <div class=\"ctrlButtons\">\n".
457 3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1266 " ".stGetFormButtonInput("editslide", "", "", "Edit", "editDisplaySlide()")."\n".
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1267 " ".stGetFormButtonInput("copyslide", "", "", "Copy", "copyDisplaySlide()")."\n".
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1268 " ".stGetFormButtonInput("newslide", "", "", "New", "newDisplaySlide()")."\n".
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1269 " ".stGetFormButtonInput("delslide", "", "", "Delete", "deleteDisplaySlide()")."\n".
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1270 " </div>\n".
3b5184c6b36f Add slide copying function. Matti Hamalainen <ccr@tnsp.org> parents: 455 diff changeset	1271 " <div class=\"ctrlButtons\">\n".
429 2e4f20bd3b82 And moar. Matti Hamalainen <ccr@tnsp.org> parents: 427 diff changeset	1272 " ".stGetFormTextInput(3, 5, "", "ctrlTempSlideDuration", "", stGetDisplayVar("tempDuration"))." min\n".
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1273 " ".stGetFormButtonInput("setslide", "", "", "Set Temp", "activateTempSlide()")."\n".
472 1eabbd70cd25 Add skipping button. Matti Hamalainen <ccr@tnsp.org> parents: 470 diff changeset	1274 " ".stGetFormButtonInput("nextslide", "", "", "Skip to next", "skipToNextSlide()")."\n".
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1275 " </div>\n".
427 707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1276 "</div>\n".
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1277 "<div class=\"ctrlBox\" id=\"ctrlCompoControl\">\n".
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1278 " <div class=\"ctrlTitle\">Competition control:</div>\n".
443 2a4d5ded6c79 Add helpful information popups. Matti Hamalainen <ccr@tnsp.org> parents: 442 diff changeset	1279 " <div class=\"ctrlInfo\">Controls for competition showing mode. Select and activate desired compo, then ".
2a4d5ded6c79 Add helpful information popups. Matti Hamalainen <ccr@tnsp.org> parents: 442 diff changeset	1280 "hit 'Next entry' to activate the first entry to show. <b>Notice! You need to have generated 'show positions' ".
2a4d5ded6c79 Add helpful information popups. Matti Hamalainen <ccr@tnsp.org> parents: 442 diff changeset	1281 "before starting compos!</b></div>\n".
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1282 " <div class=\"ctrlDBox1\">\n".
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	1283 stGetFormOptionListStart("ctrlCompoList", " ", TRUE);
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1284
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1285 $sql =
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1286 "SELECT compos.*, ".
545 d5ac0521ca16 Possibly fix a query to work with Postgresql. Matti Hamalainen <ccr@tnsp.org> parents: 544 diff changeset	1287 "COUNT(DISTINCT entries.id) AS nentries ".
d5ac0521ca16 Possibly fix a query to work with Postgresql. Matti Hamalainen <ccr@tnsp.org> parents: 544 diff changeset	1288 "FROM compos LEFT JOIN entries ON compos.id=entries.compo_id ".
644 de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	1289 "GROUP BY compos.id ".
de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	1290 "HAVING COUNT(DISTINCT entries.id) > 0 AND compos.ctype=".COMPO_NORMAL." ".
de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	1291 "ORDER BY compos.id DESC";
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1292
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1293 $currCompoID = stGetDisplayVar("compoID");
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1294 if (($res = stExecSQL($sql)) !== false)
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1295 {
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1296 foreach ($res as $item)
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1297 {
747 330e6d79c5dc Change stGetFormOptionList* function APIs a bit. Matti Hamalainen <ccr@tnsp.org> parents: 740 diff changeset	1298 echo stGetFormOptionListItem(" ", $item["id"],
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1299 ($item["id"] == $currCompoID),
469 fccb15424ca3 Cosmetic improvements. Matti Hamalainen <ccr@tnsp.org> parents: 468 diff changeset	1300 sprintf("%-20s (%d entries)", substr($item["name"], 0, 20), $item["nentries"]));
398 e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1301 }
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1302 }
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1303
e6223ab525fc Moar. Matti Hamalainen <ccr@tnsp.org> parents: 397 diff changeset	1304 echo
675 13ad8e133c22 Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 673 diff changeset	1305 stGetFormOptionListEnd(" ", TRUE).
407 eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1306 " <div class=\"ctrlButtons\">\n".
eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1307 " ".stGetFormButtonInput("setcompo", "", "", "Change compo", "activateCompo()")."\n".
eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1308 " </div>\n".
427 707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1309 " </div>\n".
407 eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1310 " <div class=\"ctrlDBox1\">\n".
417 d2ece5d0aaa4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 416 diff changeset	1311 stGetInfoCurrEntryList(" ", TRUE).
407 eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1312 " <div class=\"ctrlButtons\">\n".
eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1313 " ".stGetFormButtonInput("setentry", "", "", "Set selected entry", "setSelectedEntry()")."\n".
eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1314 " ".stGetFormButtonInput("preventry", "", "", "Prev entry", "switchEntry(-1)")."\n".
eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1315 " ".stGetFormButtonInput("nextentry", "", "", "Next entry", "switchEntry(1)")."\n".
eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1316 " </div>\n".
393 14cdbeb331b6 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 392 diff changeset	1317 " </div>\n".
867 74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	1318 " <div class=\"ctrlDBox2\" id=\"ctrlCurrCompoData\">\n".
74ee30f5b34d Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 865 diff changeset	1319 stGetInfoCurrCompoData(" ").
407 eaea1ae2bc3d Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 405 diff changeset	1320 " </div>\n".
424 8258b5ddcd7f Temporarily comment out stuff. Matti Hamalainen <ccr@tnsp.org> parents: 423 diff changeset	1321 "</div>\n";
427 707213312891 Moar work. Matti Hamalainen <ccr@tnsp.org> parents: 424 diff changeset	1322 stGetInfoRotationListEditFull("", TRUE, 0);
378 5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1323 break;
5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1324
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1325 case "news":
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1326 echo
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1327 "<form method=\"post\" action=\"\" onsubmit=\"return addNews()\">\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1328 " ".stGetFormTextInput(40, SET_LEN_NEWS_TITLE, "", "nntitle", "", "")."<br />\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1329 " ".stGetFormTextArea(5, 60, "", "nntext", "", "")."<br />\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1330 " ".stGetFormTextInput(20, SET_LEN_NEWS_AUTHOR, "", "nnauthor", "", "orgaz")."\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1331 " ".stGetFormSubmitInput("nnadd", "Add post")."\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1332 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1333 "</form>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1334 "<hr />\n";
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1335
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1336 $sql = "SELECT * FROM news ORDER BY utime DESC";
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1337 foreach (stExecSQL($sql) as $item)
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1338 {
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1339 echo
715 0fa410eb9bf1 Add class for news items, rename class selector for compo items. Matti Hamalainen <ccr@tnsp.org> parents: 707 diff changeset	1340 "<div id=\"news".$item["id"]."\" class=\"newsItem\">\n".
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1341 stGetNewsItemData($item["id"], $item, "ne").
634 b18a961dcf3e Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 627 diff changeset	1342 "</div>\n";
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1343 }
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1344 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1345
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1346 case "newsitem":
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1347 $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	1348 if ($res !== FALSE)
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1349 echo stGetNewsItemData($res["id"], $res, "ne");
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1350 break;
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1351
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1352 case "attendees":
272 cd3283333ec1 Add link for printing out email addresses of participants. Matti Hamalainen <ccr@tnsp.org> parents: 270 diff changeset	1353 echo
273 39c247babc0c Make the print links look a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	1354 "<div class=\"tabHeadersSub\">\n".
275 11cd85bdfac7 Clarify some links. Matti Hamalainen <ccr@tnsp.org> parents: 274 diff changeset	1355 "<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	1356 "</div>\n";
cd3283333ec1 Add link for printing out email addresses of participants. Matti Hamalainen <ccr@tnsp.org> parents: 270 diff changeset	1357
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1358 // For adding a new one
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1359 $prefix = "ne";
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1360 echo
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1361 "<table>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1362 " <tr>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1363 " <th>Name</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1364 " <th>Groups</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1365 " <th>Oneliner</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1366 " <th>E-mail</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1367 " <th>Actions</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1368 " </tr>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1369 " <tr>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1370 " <td>".stGetFormTextInput(20, SET_LEN_USERNAME, "name", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1371 " <td>".stGetFormTextInput(20, SET_LEN_GROUPS, "groups", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1372 " <td>".stGetFormTextInput(30, SET_LEN_ONELINER, "oneliner", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1373 " <td>".stGetFormTextInput(20, SET_LEN_EMAIL, "email", "x", $prefix, "")."</td>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1374 " <td>".stGetFormButtonInput("add", "", $prefix, " Add new ", "addAttendee()")."</td>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1375 " </tr>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1376 "</table>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1377 "<hr />\n";
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1378
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1379 // List of attendees
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1380 echo
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1381 "<table class=\"attendees\">\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1382 " <tr>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1383 " <th class=\"name\">Name</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1384 " <th class=\"groups\">Groups</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1385 " <th class=\"regtime\">Registered</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1386 " <th class=\"oneliner\">Oneliner</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1387 " <th class=\"email\">E-mail</th>\n".
716 e7fbcf4190e6 Add registration host. Matti Hamalainen <ccr@tnsp.org> parents: 715 diff changeset	1388 " <th class=\"reghost\">RegHost</th>\n".
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1389 " <th>Actions</th>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1390 " </tr>\n";
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1391
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1392 $sql = "SELECT * FROM attendees ORDER BY regtime DESC";
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1393 $row = 0;
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1394 foreach (stExecSQL($sql) as $item)
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1395 stPrintAttendee($item, $row++, TRUE, TRUE, FALSE);
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1396
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1397 echo
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1398 "</table>\n";
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1399 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1400
205 77d33161f8be More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	1401 case "attendee":
77d33161f8be More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	1402 $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	1403 if ($res !== FALSE)
77d33161f8be More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	1404 stPrintAttendee($res, -1, FALSE, TRUE, stGetRequestItem("edit", FALSE));
681 bf8a5009b3f2 Add some error cases. Matti Hamalainen <ccr@tnsp.org> parents: 678 diff changeset	1405 else
bf8a5009b3f2 Add some error cases. Matti Hamalainen <ccr@tnsp.org> parents: 678 diff changeset	1406 stError("No such attendee ID!");
205 77d33161f8be More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	1407 break;
77d33161f8be More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 204 diff changeset	1408
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1409 case "userkeyinfo":
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1410 echo stGetUserKeyInfo();
1038 2e1a9b564674 Add votekey information blurb. Matti Hamalainen <ccr@tnsp.org> parents: 1036 diff changeset	1411 break;
2e1a9b564674 Add votekey information blurb. Matti Hamalainen <ccr@tnsp.org> parents: 1036 diff changeset	1412
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1413 case "userkey":
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1414 case "userkeyclass":
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1415 switch ($setUserKeyMode)
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1416 {
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1417 case VOTE_FREELY:
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1418 case VOTE_ACTIVATE:
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1419 $sql = stPrepareSQL("SELECT (SELECT COUNT(id) FROM votes WHERE key_id=%D) AS nvotes,userkeys.* FROM userkeys WHERE id=%D", "id", "id");
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1420 break;
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1421
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1422 case VOTE_ASSIGN:
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1423 $sql = stPrepareSQL("SELECT (SELECT COUNT(id) FROM votes WHERE key_id=%D) AS nvotes,userkeys.key,attendees.* FROM attendees ".
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1424 "LEFT JOIN userkeys ON userkeys.id=attendees.key_id ".
1091 c4b93729269d Add visual hint about user/votekeys that have been used for voting. Matti Hamalainen <ccr@tnsp.org> parents: 1082 diff changeset	1425 "WHERE attendees.id=%D", "id", "id");
c4b93729269d Add visual hint about user/votekeys that have been used for voting. Matti Hamalainen <ccr@tnsp.org> parents: 1082 diff changeset	1426 break;
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1427 }
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1428 if (($res = stFetchSQL($sql)) !== FALSE)
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	1429 {
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1430 if ($type == "userkeyclass")
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1431 echo stGetUserKeyClass($res);
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	1432 else
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1433 echo stGetUserKeyItemData($res["id"], $res, "vk");
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	1434 }
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1435 break;
9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1436
105 a85f258f6beb Move some things around and modularize the code. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1437 case "voters":
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1438 // Generate user keys, if needed
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1439 $numVKeys = stFetchSQLColumn("SELECT COUNT(*) FROM userkeys");
478 8dde27202989 And fix the previous commit .. Matti Hamalainen <ccr@tnsp.org> parents: 477 diff changeset	1440 $numUsers = stFetchSQLColumn("SELECT COUNT(*) FROM attendees");
8dde27202989 And fix the previous commit .. Matti Hamalainen <ccr@tnsp.org> parents: 477 diff changeset	1441 if (($tmp = stGetSetting("maxAttendeesHard")) > $numUsers)
8dde27202989 And fix the previous commit .. Matti Hamalainen <ccr@tnsp.org> parents: 477 diff changeset	1442 $numUsers = $tmp;
8dde27202989 And fix the previous commit .. Matti Hamalainen <ccr@tnsp.org> parents: 477 diff changeset	1443 else
8dde27202989 And fix the previous commit .. Matti Hamalainen <ccr@tnsp.org> parents: 477 diff changeset	1444 if (($tmp = stGetSetting("maxAttendeesSoft")) > $numUsers)
8dde27202989 And fix the previous commit .. Matti Hamalainen <ccr@tnsp.org> parents: 477 diff changeset	1445 $numUsers = $tmp;
8dde27202989 And fix the previous commit .. Matti Hamalainen <ccr@tnsp.org> parents: 477 diff changeset	1446
480 26033a4b754a Oops, fix a silly off-by-one in votekey generation (1 less than wanted keys Matti Hamalainen <ccr@tnsp.org> parents: 478 diff changeset	1447 while ($numVKeys <= $numUsers)
270 589b44acb74a More work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 269 diff changeset	1448 {
589b44acb74a More work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 269 diff changeset	1449 if (($key = stGenerateUserKey()) !== false)
589b44acb74a More work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 269 diff changeset	1450 {
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1451 if (stExecSQL(stPrepareSQL("INSERT INTO userkeys (key) VALUES (%s)", $key)) !== false)
270 589b44acb74a More work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 269 diff changeset	1452 $numVKeys++;
589b44acb74a More work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 269 diff changeset	1453 }
589b44acb74a More work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 269 diff changeset	1454 }
589b44acb74a More work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 269 diff changeset	1455
1058 5bb5586f50c6 Reorder. Matti Hamalainen <ccr@tnsp.org> parents: 1057 diff changeset	1456 // Some information
597 6de22c51c49b Add warning about unconfigured voting mode. Matti Hamalainen <ccr@tnsp.org> parents: 571 diff changeset	1457 echo
273 39c247babc0c Make the print links look a bit nicer. Matti Hamalainen <ccr@tnsp.org> parents: 272 diff changeset	1458 "<div class=\"tabHeadersSub\">\n".
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1459 " <a href=\"print.php?type=userkeys\" target=\"_blank\">Show printable key list</a>\n".
1057 c9676c9eb511 Move results stuff to voting page. Matti Hamalainen <ccr@tnsp.org> parents: 1056 diff changeset	1460 " <a href=\"print.php?type=results&flags=".(RFLAG_NORMAL)."\" target=\"_blank\">Printable results</a>\n".
c9676c9eb511 Move results stuff to voting page. Matti Hamalainen <ccr@tnsp.org> parents: 1056 diff changeset	1461 " <a href=\"print.php?type=results&flags=".(RFLAG_DISQUALIFIED)."\" target=\"_blank\">Printable full results</a> (shows also disqualified entries)\n".
c9676c9eb511 Move results stuff to voting page. Matti Hamalainen <ccr@tnsp.org> parents: 1056 diff changeset	1462 " <a href=\"print.php?type=results&flags=".(RFLAG_DISQUALIFIED \| RFLAG_HIDDEN_COMPOS)."\" target=\"_blank\">Printable FULL results</a> (shows also hidden and empty compos)\n".
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1463 " <div id=\"vkeyInfo\">".stGetUserKeyInfo()."</div>\n".
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1464 "</div>\n";
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1465
1058 5bb5586f50c6 Reorder. Matti Hamalainen <ccr@tnsp.org> parents: 1057 diff changeset	1466 echo
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1467 "<div class=\"info\">".
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1468 "User key length ".stGetSetting("userKeyLength")." ".
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1469 "<b>Voting mode: ";
1058 5bb5586f50c6 Reorder. Matti Hamalainen <ccr@tnsp.org> parents: 1057 diff changeset	1470
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1471 if (isset($voteModeData[$setUserKeyMode]))
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1472 echo $voteModeData[$setUserKeyMode][0]."</b>. ".$voteModeData[$setUserKeyMode][1];
1058 5bb5586f50c6 Reorder. Matti Hamalainen <ccr@tnsp.org> parents: 1057 diff changeset	1473 else
5bb5586f50c6 Reorder. Matti Hamalainen <ccr@tnsp.org> parents: 1057 diff changeset	1474 echo "VOTE MODE NOT SET! CHECK CONFIGURATION!</b>";
5bb5586f50c6 Reorder. Matti Hamalainen <ccr@tnsp.org> parents: 1057 diff changeset	1475
1059 6db0ab61dadf Oops. Matti Hamalainen <ccr@tnsp.org> parents: 1058 diff changeset	1476 echo "</div>\n";
6db0ab61dadf Oops. Matti Hamalainen <ccr@tnsp.org> parents: 1058 diff changeset	1477
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1478 // List of userkeys
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1479 switch ($setUserKeyMode)
116 a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1480 {
a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1481 case VOTE_FREELY:
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1482 case VOTE_ACTIVATE:
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1483 $sql = "SELECT userkeys.*,COUNT(votes.id) AS nvotes FROM userkeys ".
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1484 "LEFT JOIN votes ON votes.key_id=userkeys.id ".
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1485 "GROUP BY userkeys.id ".
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1486 "ORDER BY userkeys.id ASC";
116 a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1487
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1488 foreach (stExecSQL($sql) as $item)
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1489 {
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1490 echo
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1491 "<div class=\"".stGetUserKeyClass($item).
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	1492 "\" id=\"vkey".$item["id"]."\">".
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1493 stGetUserKeyItemData($item["id"], $item, "vk").
320 a0a6131c37b4 Vote key activation. Matti Hamalainen <ccr@tnsp.org> parents: 319 diff changeset	1494 "</div>\n";
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1495 }
116 a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1496 break;
a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1497
a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1498 case VOTE_ASSIGN:
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1499 $sql = "SELECT userkeys.,attendees.,COUNT(votes.id) AS nvotes FROM attendees ".
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1500 "LEFT JOIN userkeys ON userkeys.id=attendees.key_id ".
1091 c4b93729269d Add visual hint about user/votekeys that have been used for voting. Matti Hamalainen <ccr@tnsp.org> parents: 1082 diff changeset	1501 "LEFT JOIN votes ON votes.key_id=attendees.key_id ".
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1502 "GROUP BY userkeys.id ".
308 3cfd95758377 A bit of work on vote key management backend. Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	1503 "ORDER BY attendees.regtime DESC";
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1504
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1505 echo
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1506 "<table class=\"attendees\">\n".
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1507 " <tr>\n".
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1508 " <th class=\"name\">Name</th>\n".
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1509 " <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	1510 " <th class=\"vkeynum\">Key #</th>\n".
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1511 " <th class=\"vkey\">Userkey</th>\n".
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1512 " </tr>\n";
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1513
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1514 $index = 0;
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1515 foreach (stExecSQL($sql) as $item)
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1516 {
308 3cfd95758377 A bit of work on vote key management backend. Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	1517 echo
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1518 " <tr class=\"".stGetUserKeyClass($item).
321 9462a59d3ab3 Votekey activation usability improvements. Matti Hamalainen <ccr@tnsp.org> parents: 320 diff changeset	1519 "\" id=\"vkey".$item["id"]."\">\n".
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1520 stGetUserKeyItemData($item["id"], $item, "vk").
308 3cfd95758377 A bit of work on vote key management backend. Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	1521 " </tr>\n";
269 46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1522 }
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1523
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1524 echo
46138f8478e5 Work on votekey management. Matti Hamalainen <ccr@tnsp.org> parents: 266 diff changeset	1525 "</table>\n";
116 a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1526 break;
a95facb41c86 Some preliminary work on the votekey administration backend. Matti Hamalainen <ccr@tnsp.org> parents: 113 diff changeset	1527 }
105 a85f258f6beb Move some things around and modularize the code. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1528 break;
a85f258f6beb Move some things around and modularize the code. Matti Hamalainen <ccr@tnsp.org> parents: 90 diff changeset	1529
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1530 case "compos":
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1531 echo
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1532 "<form method=\"post\" action=\"\" onsubmit=\"return addCompo()\">\n".
1045 c7d166cc2344 Document it. Matti Hamalainen <ccr@tnsp.org> parents: 1044 diff changeset	1533 "<b>Name:<b>".
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1534 " ".stGetFormTextInput(64, SET_LEN_COMPO_NAME, "", "ncname", "", "")."<br />\n".
1045 c7d166cc2344 Document it. Matti Hamalainen <ccr@tnsp.org> parents: 1044 diff changeset	1535 "<b>Description:</b>".
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1536 " ".stGetFormTextArea(5, 60, "", "ncdescription", "", "")."<br />\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1537 " ".stGetFormSubmitInput("nccompo", "Add compo")."\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1538 " ".stGetFormButtonInput("", "", "", "Clear", "this.form.reset()")."\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1539 "</form>\n".
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1540 "<hr />\n";
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1541
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1542 $sql = "SELECT * FROM compos ORDER BY id DESC";
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1543 foreach (stExecSQL($sql) as $item)
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1544 {
d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1545 echo
715 0fa410eb9bf1 Add class for news items, rename class selector for compo items. Matti Hamalainen <ccr@tnsp.org> parents: 707 diff changeset	1546 "<div id=\"compo".$item["id"]."\" class=\"compoItem\">\n".
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1547 stGetCompoData($item["id"], $item, "co").
634 b18a961dcf3e Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 627 diff changeset	1548 "</div>\n";
265 d1f99f239046 Cleanup. Matti Hamalainen <ccr@tnsp.org> parents: 264 diff changeset	1549 }
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1550 break;
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	1551
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1552 case "compo":
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1553 $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	1554 if ($res !== FALSE)
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1555 echo stGetCompoData($res["id"], $res, "co");
681 bf8a5009b3f2 Add some error cases. Matti Hamalainen <ccr@tnsp.org> parents: 678 diff changeset	1556 else
bf8a5009b3f2 Add some error cases. Matti Hamalainen <ccr@tnsp.org> parents: 678 diff changeset	1557 stError("No such compo ID!");
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1558 break;
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1559
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1560 case "settingslist":
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1561 $index = 0;
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1562 foreach (stExecSQL("SELECT * FROM settings_groups") as $group)
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1563 {
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1564 if ($index++ > 0) echo ",";
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1565 echo "\"".$group["id"]."\":\"".chentities($group["name"])."\"";
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1566 }
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1567 break;
352 7944ad74b31c Remove dead code. Matti Hamalainen <ccr@tnsp.org> parents: 324 diff changeset	1568
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	1569 case "settings":
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1570 $group = stFetchSQL(stPrepareSQL("SELECT * FROM settings_groups WHERE id=%D", "id"));
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1571 if ($group !== FALSE)
14 e36c4d2b09c4 Fix settings to work, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1572 {
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1573 $prefix = "st";
626 abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1574 $first = TRUE;
14 e36c4d2b09c4 Fix settings to work, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1575 echo
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1576 "<h1>".chentities($group["description"])."</h1>\n".
626 abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1577 "<form method=\"post\" action=\"\" onsubmit=\"return jsUpdateSettings(".$group["id"].")\">\n";
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1578
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1579 foreach (stExecSQL("SELECT * FROM settings WHERE vtype<>".VT_TEXT." AND vgroup=".$group["id"]." ORDER BY vtype ASC") as $item)
14 e36c4d2b09c4 Fix settings to work, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1580 {
626 abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1581 if ($first)
abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1582 {
abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1583 echo "<table>\n";
abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1584 $first = FALSE;
abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1585 }
abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1586
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1587 echo
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1588 " <tr>\n".
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1589 " <td>";
626 abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1590
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1591 $id = $item["key"];
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1592 switch ($item["vtype"])
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1593 {
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1594 case VT_INT:
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1595 echo stGetFormTextInput(10, 10, "", $id, $prefix, $item["vint"]);
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1596 break;
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1597 case VT_STR:
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1598 echo stGetFormTextInput(40, 128, "", $id, $prefix, $item["vstr"]);
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1599 break;
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1600 case VT_BOOL:
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1601 echo stGetFormCheckBoxInput("", $id, $prefix, $item["vint"], "");
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1602 break;
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1603 }
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1604 echo
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1605 "</td>\n".
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1606 " <td><label for=\"".$prefix.$id."\">".chentities($item["sdesc"])."</label></td>\n".
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1607 " </tr>\n";
14 e36c4d2b09c4 Fix settings to work, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1608 }
626 abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1609 if (!$first)
abda11cd3259 Make the settings panels slightly nicer. Matti Hamalainen <ccr@tnsp.org> parents: 624 diff changeset	1610 echo "</table>\n".stGetSaveButton();
14 e36c4d2b09c4 Fix settings to work, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1611
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1612 foreach (stExecSQL("SELECT * FROM settings WHERE vtype=".VT_TEXT." AND vgroup=".$group["id"]." ORDER BY key DESC") as $item)
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1613 {
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1614 echo
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1615 "<h2>".chentities($item["sdesc"])."</h2>\n".
770 d891c0ce2a16 Make settings text area widgets larger. We can afford it better now as Matti Hamalainen <ccr@tnsp.org> parents: 769 diff changeset	1616 stGetFormTextArea(12, 80, "", $item["key"], $prefix, $item["vtext"]).
624 aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1617 "\n<br />\n".
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1618 stGetSaveButton();
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1619 }
aad32d21091f Some work on settings groups. Matti Hamalainen <ccr@tnsp.org> parents: 615 diff changeset	1620 echo "</form>\n";
14 e36c4d2b09c4 Fix settings to work, clean up the code, etc. Matti Hamalainen <ccr@tnsp.org> parents: 8 diff changeset	1621 }
8 4c5f651aa107 Migrate certain settings to SQL database, cleanups, etc. Matti Hamalainen <ccr@tnsp.org> parents: 5 diff changeset	1622 break;
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1623
250 34f540cea1ff Some work on compo entry listing. Matti Hamalainen <ccr@tnsp.org> parents: 249 diff changeset	1624 case "compolist":
249 6927edc7e266 Get compo name list as JSON. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	1625 $index = 0;
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1626 foreach (stExecSQL("SELECT * FROM compos") as $compo)
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1627 {
921 6234816c1e43 Add number of entries to compo header tabs. Matti Hamalainen <ccr@tnsp.org> parents: 919 diff changeset	1628 $ne = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$compo["id"]);
249 6927edc7e266 Get compo name list as JSON. Matti Hamalainen <ccr@tnsp.org> parents: 228 diff changeset	1629 if ($index++ > 0) echo ",";
921 6234816c1e43 Add number of entries to compo header tabs. Matti Hamalainen <ccr@tnsp.org> parents: 919 diff changeset	1630 echo
6234816c1e43 Add number of entries to compo header tabs. Matti Hamalainen <ccr@tnsp.org> parents: 919 diff changeset	1631 "\"".$compo["id"]."\":\"".chentities($compo["name"]).
6234816c1e43 Add number of entries to compo header tabs. Matti Hamalainen <ccr@tnsp.org> parents: 919 diff changeset	1632 (($ne !== false && $ne > 0) ? " <span class='cnotice'>(".$ne.")</span>" : "")."\"";
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1633 }
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1634 break;
532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1635
1052 fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1636 case "compovoting":
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1637 $id = intval(stGetRequestItem("id", 0));
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1638 if (($compo = stFetchSQL("SELECT * FROM compos WHERE id=".$id)) !== false)
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1639 echo stGetCompoVoting($compo, FALSE);
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1640 break;
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1641
250 34f540cea1ff Some work on compo entry listing. Matti Hamalainen <ccr@tnsp.org> parents: 249 diff changeset	1642 case "entries":
223 532704115290 Make it possible to update news entries. Matti Hamalainen <ccr@tnsp.org> parents: 216 diff changeset	1643 $id = intval(stGetRequestItem("id", 0));
250 34f540cea1ff Some work on compo entry listing. Matti Hamalainen <ccr@tnsp.org> parents: 249 diff changeset	1644 if (($compo = stFetchSQL("SELECT * FROM compos WHERE id=".$id)) !== false)
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1645 {
381 0ae6d3fb5688 Interface improvements. Matti Hamalainen <ccr@tnsp.org> parents: 378 diff changeset	1646 $nentries = stFetchSQLColumn("SELECT COUNT(*) FROM entries WHERE compo_id=".$id);
0ae6d3fb5688 Interface improvements. Matti Hamalainen <ccr@tnsp.org> parents: 378 diff changeset	1647 $prefix = "ne";
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1648 echo
677 64d80a7f7e26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 675 diff changeset	1649 "<h1>#".$id." - ".chentities($compo["name"])." (".$nentries." entries)</h1>\n";
385 8b8b0a83233b Add compo entry show position buttons to individual compos. Matti Hamalainen <ccr@tnsp.org> parents: 382 diff changeset	1650
751 025380b800a2 Show the show order generating buttons only for Normal type compos. Matti Hamalainen <ccr@tnsp.org> parents: 750 diff changeset	1651 if ($nentries > 0 && $compo["ctype"] == COMPO_NORMAL)
385 8b8b0a83233b Add compo entry show position buttons to individual compos. Matti Hamalainen <ccr@tnsp.org> parents: 382 diff changeset	1652 {
8b8b0a83233b Add compo entry show position buttons to individual compos. Matti Hamalainen <ccr@tnsp.org> parents: 382 diff changeset	1653 echo
8b8b0a83233b Add compo entry show position buttons to individual compos. Matti Hamalainen <ccr@tnsp.org> parents: 382 diff changeset	1654 stGetFormButtonInput("generate", "", "", " Add missing show positions ", "generateEntryPositions(".$id.", 1)")."\n".
1052 fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1655 stGetFormButtonInput("regenerate", "", "", " ReGenerate show positions ", "generateEntryPositions(".$id.", 0)")."\n".
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1656 stGetCompoVoting($compo, TRUE)."\n";
385 8b8b0a83233b Add compo entry show position buttons to individual compos. Matti Hamalainen <ccr@tnsp.org> parents: 382 diff changeset	1657 }
8b8b0a83233b Add compo entry show position buttons to individual compos. Matti Hamalainen <ccr@tnsp.org> parents: 382 diff changeset	1658
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1659 stPrintEntryItemData(array(
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1660 "id" => $id,
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1661 "show_id" => 0,
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1662 "name" => "",
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1663 "author" => "",
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1664 "compo_id" => $id,
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1665 "info" => "",
e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1666 "notes" => "",
1034 8fecb417e6a9 Reintroduce per-entry preview_type. Matti Hamalainen <ccr@tnsp.org> parents: 1032 diff changeset	1667 "preview_type" => 0,
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1668 "flags" => 0,
975 38936f77856e Set default value of evalue to empty string. Matti Hamalainen <ccr@tnsp.org> parents: 958 diff changeset	1669 "evalue" => "",
821 f27dccdde8ef Partially remove old filename stuff from entries. Still some vestiges Matti Hamalainen <ccr@tnsp.org> parents: 798 diff changeset	1670 "utime" => 0,
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1671 ),
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	1672 0, TRUE, "ne", $compo, EEMODE_ADD);
779 5ee9041c9c90 Add <hr> separator between entry addition box and existing/editable entries. Matti Hamalainen <ccr@tnsp.org> parents: 778 diff changeset	1673
5ee9041c9c90 Add <hr> separator between entry addition box and existing/editable entries. Matti Hamalainen <ccr@tnsp.org> parents: 778 diff changeset	1674 echo
5ee9041c9c90 Add <hr> separator between entry addition box and existing/editable entries. Matti Hamalainen <ccr@tnsp.org> parents: 778 diff changeset	1675 "<hr />\n".
5ee9041c9c90 Add <hr> separator between entry addition box and existing/editable entries. Matti Hamalainen <ccr@tnsp.org> parents: 778 diff changeset	1676 "<div class=\"entries\">\n";
778 06e3469fe480 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 773 diff changeset	1677
690 bad79296eb34 Cleanups, rename variables. Matti Hamalainen <ccr@tnsp.org> parents: 689 diff changeset	1678 $row = 0;
956 1992eb6d759f Reverse entry sorting order. Matti Hamalainen <ccr@tnsp.org> parents: 921 diff changeset	1679 foreach (stExecSQL("SELECT * FROM entries WHERE compo_id=".$id." ORDER BY id DESC") as $entry)
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	1680 stPrintEntryItemData($entry, $row++, TRUE, "en", $compo, EEMODE_NORMAL);
778 06e3469fe480 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 773 diff changeset	1681
750 e46f43a8b8dd Rework entry editing. Still needs cosmetic work, etc. Matti Hamalainen <ccr@tnsp.org> parents: 749 diff changeset	1682 echo "</div>\n";
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1683 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1684 break;
677 64d80a7f7e26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 675 diff changeset	1685
64d80a7f7e26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 675 diff changeset	1686 case "entry":
64d80a7f7e26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 675 diff changeset	1687 $res = stFetchSQL(stPrepareSQL("SELECT * FROM entries WHERE id=%D", "id"));
64d80a7f7e26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 675 diff changeset	1688 if ($res !== FALSE)
766 4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	1689 {
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	1690 stPrintEntryItemData($res, -1, FALSE, "en", FALSE,
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	1691 stGetRequestItem("edit", FALSE) ? EEMODE_EDIT : EEMODE_NORMAL);
4a8bcf738bd4 Clarify entry editing horror by using some defined constants instead of just Matti Hamalainen <ccr@tnsp.org> parents: 765 diff changeset	1692 }
681 bf8a5009b3f2 Add some error cases. Matti Hamalainen <ccr@tnsp.org> parents: 678 diff changeset	1693 else
bf8a5009b3f2 Add some error cases. Matti Hamalainen <ccr@tnsp.org> parents: 678 diff changeset	1694 stError("No such entry ID!");
677 64d80a7f7e26 Cosmetics. Matti Hamalainen <ccr@tnsp.org> parents: 675 diff changeset	1695 break;
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1696 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1697 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1698
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1699 case "delete":
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1700 //
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1701 // Delete entry
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1702 //
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1703 stDBBeginTransaction();
208 8985d2bdb29b More work on error handling etc. Matti Hamalainen <ccr@tnsp.org> parents: 207 diff changeset	1704 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data.")))
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1705 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1706 if ($type == "news")
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1707 {
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1708 $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	1709 stExecSQLCond($sql, "OK, news item ".$id." deleted.");
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1710 }
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1711 else
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1712 if ($type == "attendees")
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1713 {
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1714 // Attendees require some more work
302 828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1715 $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	1716 if (($attn = stFetchSQL($sql)) !== false)
828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1717 {
828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1718 $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	1719 stExecSQLCond($sql, "OK, attendee ".$id." deleted.");
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1720
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1721 // If assigned userkey mode, delete the key and votes as well
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1722 if ($setUserKeyMode == VOTE_ASSIGN && $attn["key_id"] != 0)
302 828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1723 {
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1724 $sql = stPrepareSQL("DELETE FROM userkeys WHERE id=%d", $attn["key_id"]);
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1725 stExecSQLCond($sql, "OK, attendee ".$id." userkey deleted.");
302 828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1726
828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1727 $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	1728 stExecSQLCond($sql, "OK, attendee ".$id." votes deleted.");
828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1729 }
828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1730 }
828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1731 else
828fc30e3c94 Some work on vote backend stuff. Matti Hamalainen <ccr@tnsp.org> parents: 296 diff changeset	1732 stError("No such attendee ID #".$id);
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1733 }
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1734 else
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1735 if ($type == "entries")
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1736 {
1032 9fffc9e7e1b6 Add stDeleteCompoEntry() and use it. Matti Hamalainen <ccr@tnsp.org> parents: 1030 diff changeset	1737 stDeleteCompoEntry($id);
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1738 }
608 7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1739 else
7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1740 if ($type == "compo")
7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1741 {
1032 9fffc9e7e1b6 Add stDeleteCompoEntry() and use it. Matti Hamalainen <ccr@tnsp.org> parents: 1030 diff changeset	1742 // Delete entries for the compo
608 7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1743 foreach (stExecSQL("SELECT * FROM entries WHERE compo_id=".$id) as $sentry)
1032 9fffc9e7e1b6 Add stDeleteCompoEntry() and use it. Matti Hamalainen <ccr@tnsp.org> parents: 1030 diff changeset	1744 stDeleteCompoEntry($sentry["id"]);
608 7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1745
7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1746 // Delete the compo itself
7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1747 stExecSQLCond(
7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1748 "DELETE FROM compos WHERE id=".$id,
7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1749 "OK, compo ".$id." deleted.");
7d676c77e3f8 Add functionality for deleting a compo. Matti Hamalainen <ccr@tnsp.org> parents: 601 diff changeset	1750 }
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1751 }
305 b96c41bd9dd6 More work on admin backend. Matti Hamalainen <ccr@tnsp.org> parents: 302 diff changeset	1752 else
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1753 if ($type == "userkeys")
305 b96c41bd9dd6 More work on admin backend. Matti Hamalainen <ccr@tnsp.org> parents: 302 diff changeset	1754 {
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1755 $sql = stPrepareSQL("DELETE FROM userkeys");
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1756 stExecSQLCond($sql, "OK, all userkeys purged");
305 b96c41bd9dd6 More work on admin backend. Matti Hamalainen <ccr@tnsp.org> parents: 302 diff changeset	1757 }
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1758
5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1759 stDBCommitTransaction();
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1760 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1761
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1762 case "add":
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1763 //
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1764 // Add new entry
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1765 //
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1766 stDBBeginTransaction();
228 e3dd18b58e6c Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 227 diff changeset	1767 if ($type == "news" && stValidateRequestNewsData())
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1768 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1769 $sql = stPrepareSQL(
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1770 "INSERT INTO news (utime,title,text,author) VALUES (%d,%S,%Q,%S)",
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1771 time(), "title", "text", "author");
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1772
66 230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1773 stExecSQLCond($sql, "OK, news item added.");
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1774 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1775 else
783 38d80cd9437c Oops, add missing function argument. Matti Hamalainen <ccr@tnsp.org> parents: 782 diff changeset	1776 if ($type == "compo" && stValidateRequestCompoData(FALSE, 0))
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1777 {
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1778 $sql = stPrepareSQL(
1048 178ed843b6c2 No need for notes field in compo addition. Matti Hamalainen <ccr@tnsp.org> parents: 1046 diff changeset	1779 "INSERT INTO compos (name,description,visible,voting,show_authors,preview_type) VALUES (%S,%Q,0,0,0,0)",
178ed843b6c2 No need for notes field in compo addition. Matti Hamalainen <ccr@tnsp.org> parents: 1046 diff changeset	1780 "name", "description");
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1781
66 230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1782 stExecSQLCond($sql, "OK, compo added.");
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1783 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1784 else
1014 87eda2e9023f Back out the stValidateRequestUserData() parameter change, use separate Matti Hamalainen <ccr@tnsp.org> parents: 1012 diff changeset	1785 if ($type == "attendees" && stValidateRequestUserData(TRUE, FALSE))
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1786 {
716 e7fbcf4190e6 Add registration host. Matti Hamalainen <ccr@tnsp.org> parents: 715 diff changeset	1787 $sql = stGetAttendeeRegistrationSQL();
66 230aacc22cb4 Move some functions to site lib. Matti Hamalainen <ccr@tnsp.org> parents: 61 diff changeset	1788 stExecSQLCond($sql, "OK, attendee added.");
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1789 }
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1790 else
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1791 if ($type == "entry")
59 e5e38ed4e837 Work on compo entry addition and editing. Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	1792 {
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1793 if (($compo = stFetchSQL(stPrepareSQL("SELECT * FROM compos WHERE id=%D", "compo_id"))) === FALSE)
296 bbdf1b9c5a07 Check compo_id in compo entry addition. Matti Hamalainen <ccr@tnsp.org> parents: 289 diff changeset	1794 stError("No such compo ID.");
bbdf1b9c5a07 Check compo_id in compo entry addition. Matti Hamalainen <ccr@tnsp.org> parents: 289 diff changeset	1795 else
758 3b973041f6bb Few fixes to entry data validation. Matti Hamalainen <ccr@tnsp.org> parents: 754 diff changeset	1796 if (stValidateRequestEntryData($cfake, FALSE, $compo["ctype"]))
296 bbdf1b9c5a07 Check compo_id in compo entry addition. Matti Hamalainen <ccr@tnsp.org> parents: 289 diff changeset	1797 {
1029 35a00a986f79 Factorize compo entry adding into stAddCompoEntry(). Matti Hamalainen <ccr@tnsp.org> parents: 1014 diff changeset	1798 // The function gets most of its data from request parameters
35a00a986f79 Factorize compo entry adding into stAddCompoEntry(). Matti Hamalainen <ccr@tnsp.org> parents: 1014 diff changeset	1799 stAddCompoEntry($compo, 0); // User ID = 0 for admin
296 bbdf1b9c5a07 Check compo_id in compo entry addition. Matti Hamalainen <ccr@tnsp.org> parents: 289 diff changeset	1800 }
59 e5e38ed4e837 Work on compo entry addition and editing. Matti Hamalainen <ccr@tnsp.org> parents: 57 diff changeset	1801 }
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1802 stDBCommitTransaction();
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1803 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1804
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1805 case "update":
53 71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1806 //
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1807 // Update existing entry
71256605546b More work on admin interface. Matti Hamalainen <ccr@tnsp.org> parents: 52 diff changeset	1808 //
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1809 stDBBeginTransaction();
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1810 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data.")))
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1811 {
627 18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1812 if ($type == "settings")
18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1813 {
18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1814 foreach (stExecSQL("SELECT * FROM settings WHERE vgroup=".$id) as $item)
18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1815 if (($val = stGetRequestItem($item["key"], FALSE)) !== FALSE)
18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1816 {
18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1817 $sql = "UPDATE settings SET ".stGetSettingSQL($item, $val)." WHERE key=".$db->quote($item["key"]);
666 61a1575306d3 Slight cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 657 diff changeset	1818 stExecSQL($sql);
627 18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1819 }
666 61a1575306d3 Slight cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 657 diff changeset	1820 stSetStatus(200, "Updated settings.");
627 18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1821 }
18f52c7daf77 Make group-specific settings updates possible. Matti Hamalainen <ccr@tnsp.org> parents: 626 diff changeset	1822 else
1014 87eda2e9023f Back out the stValidateRequestUserData() parameter change, use separate Matti Hamalainen <ccr@tnsp.org> parents: 1012 diff changeset	1823 if ($type == "attendees" && stValidateRequestUserData(TRUE, $id))
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1824 {
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1825 $sql = stPrepareSQLUpdate("attendees",
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1826 "WHERE id=".$id,
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1827 array(
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1828 "name" => "S",
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1829 "groups" => "S",
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1830 "email" => "S",
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1831 "oneliner" => "S",
716 e7fbcf4190e6 Add registration host. Matti Hamalainen <ccr@tnsp.org> parents: 715 diff changeset	1832 "reghost" => "S",
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1833 ));
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1834
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1835 stExecSQLCond($sql, "OK, attendee updated.");
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1836 }
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1837 else
228 e3dd18b58e6c Rename some functions. Matti Hamalainen <ccr@tnsp.org> parents: 227 diff changeset	1838 if ($type == "news" && stValidateRequestNewsData())
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1839 {
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1840 $sql = stPrepareSQLUpdate("news",
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1841 "WHERE id=".$id,
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1842 array(
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1843 "title" => "S",
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1844 "text" => "Q",
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1845 "author" => "S"
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1846 ));
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1847
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1848 stExecSQLCond($sql, "OK, news item updated.");
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1849 }
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1850 else
649 a9d10fa6c890 Fix compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 646 diff changeset	1851 if ($type == "compotype" &&
a9d10fa6c890 Fix compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 646 diff changeset	1852 stChkRequestItem("ctype", $compotype,
a9d10fa6c890 Fix compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 646 diff changeset	1853 array(CHK_RANGE, VT_INT, array(COMPO_NORMAL, COMPO_ASSIGN), "Invalid compo type.")
a9d10fa6c890 Fix compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 646 diff changeset	1854 ))
644 de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	1855 {
649 a9d10fa6c890 Fix compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 646 diff changeset	1856 $sql = stPrepareSQL("UPDATE compos SET ctype=%d WHERE id=%d", $compotype, $id);
644 de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	1857 stExecSQLCond($sql, "OK, compo updated.");
de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	1858 }
de35a9743557 Implement changing of compo type. Matti Hamalainen <ccr@tnsp.org> parents: 643 diff changeset	1859 else
1052 fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1860 if ($type == "compovoting" &&
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1861 stChkRequestItem("voting", $compovoting, $qres,
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1862 array(CHK_TYPE, VT_BOOL, "Invalid data.")
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1863 ))
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1864 {
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1865 $sql = stPrepareSQL("UPDATE compos SET voting=%b WHERE id=%d", $compovoting, $id);
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1866 stExecSQLCond($sql, "OK, compo updated.");
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1867 }
fb5a468e647d Implement compo voting enable/disable in entry pages. Matti Hamalainen <ccr@tnsp.org> parents: 1048 diff changeset	1868 else
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	1869 if ($type == "compo")
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1870 {
654 f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1871 // Check if compo ID exists
f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1872 if (($compo = stFetchSQL("SELECT * FROM compos WHERE id=".$id)) === false)
f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1873 stError("No such compo ID.");
f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1874 else
f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1875 if (stValidateRequestCompoData(TRUE, $compo["ctype"]))
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	1876 {
654 f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1877 switch ($compo["ctype"])
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	1878 {
654 f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1879 case COMPO_NORMAL:
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1880 $cdata = array(
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1881 "voting" => "B",
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1882 "show_authors" => "B",
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1883 "preview_type" => "D",
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1884 "cpath" => "S",
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1885 );
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1886 break;
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1887
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1888 default:
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1889 $cdata = array();
654 f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1890 break;
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	1891 }
654 f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1892
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1893 $sql = stPrepareSQLUpdate("compos",
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1894 "WHERE id=".$id,
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1895 array_merge(array(
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1896 "name" => "S",
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1897 "description" => "Q",
977 a1da651a2e45 Add compo notes field. Matti Hamalainen <ccr@tnsp.org> parents: 976 diff changeset	1898 "notes" => "Q",
748 e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1899 "visible" => "B",
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1900 ), $cdata));
e0431e12f3ea Change compo editing. Matti Hamalainen <ccr@tnsp.org> parents: 747 diff changeset	1901
654 f416330b8792 Reorder code for clarity. Matti Hamalainen <ccr@tnsp.org> parents: 652 diff changeset	1902 stExecSQLCond($sql, "OK, compo updated.");
651 ad266a57eb23 Improve compo data updates. Matti Hamalainen <ccr@tnsp.org> parents: 649 diff changeset	1903 }
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1904 }
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1905 else
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1906 if ($type == "entry")
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1907 {
749 56dc64256d31 Fix a silly bug in entry updates. Matti Hamalainen <ccr@tnsp.org> parents: 748 diff changeset	1908 if (($compo = stFetchSQL(stPrepareSQL("SELECT * FROM compos WHERE id=%D", "compo_id"))) === FALSE)
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1909 stError("No such compo ID.");
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1910 else
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1911 if (stValidateRequestEntryData($compo_id, TRUE, $compo["ctype"]))
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1912 {
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1913 switch ($compo["ctype"])
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1914 {
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1915 case COMPO_NORMAL:
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1916 $cdata = array(
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1917 "author" => "S",
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1918 "info" => "Q",
764 48c279f2bbc3 It makes no sense to be able to change compo ID for compo types that are not Matti Hamalainen <ccr@tnsp.org> parents: 761 diff changeset	1919 "compo_id" => "D",
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1920 );
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1921 break;
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1922
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1923 case COMPO_POINTS:
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1924 case COMPO_ASSIGN:
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1925 $cdata = array(
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1926 "evalue" => "D",
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1927 );
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1928 break;
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1929 }
884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1930
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1931 $sql = stPrepareSQLUpdate("entries",
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1932 "WHERE id=".$id,
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1933 array_merge(array(
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1934 "name" => "S",
707 2dc533ae3afd Fix compo data validation by adding boolean for checking full data when Matti Hamalainen <ccr@tnsp.org> parents: 706 diff changeset	1935 "notes" => "Q",
735 884c97eb3585 Work on handling of compo entry data per compo type. Matti Hamalainen <ccr@tnsp.org> parents: 723 diff changeset	1936 ), $cdata));
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1937
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1938 stExecSQLCond($sql, "OK, entry updated.");
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1939 }
3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1940 }
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1941 }
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1942 stDBCommitTransaction();
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1943 break;
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1944
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1945 case "userkey":
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1946 //
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1947 // Userkey activation/deactivation handling
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1948 //
5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1949 stDBBeginTransaction();
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1950 if (stChkRequestItem("id", $id, array(CHK_TYPE, VT_INT, "Invalid data.")))
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1951 {
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1952 switch ($type)
308 3cfd95758377 A bit of work on vote key management backend. Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	1953 {
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1954 case "assign":
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1955 // Check if already assigned to someone ..
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1956 $key_id = intval(stGetRequestItem("key_id", 0));
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1957 $sql = stPrepareSQL("SELECT * FROM userkeys WHERE id=%d", $key_id);
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1958 if (stFetchSQL($sql) === false)
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1959 stError("Invalid key ID #.");
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1960 else
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1961 {
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1962 $sql = stPrepareSQL("SELECT * FROM attendees WHERE key_id=%d", $key_id);
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1963 if (($attn = stFetchSQL($sql)) !== false && $attn["id"] != $id)
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1964 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	1965 else
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1966 {
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1967 // Assign ..
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1968 $sql = stPrepareSQL("UPDATE attendees SET key_id=%d WHERE id=%d", $key_id, $id);
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1969 stExecSQLCond($sql, "Assigned key updated.");
312 9340eb112ccc Work on votekey admin. Matti Hamalainen <ccr@tnsp.org> parents: 309 diff changeset	1970 }
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1971 }
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1972 break;
319 623acd958944 Simplify things, add clear button to vote key assignation. Matti Hamalainen <ccr@tnsp.org> parents: 318 diff changeset	1973
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1974 case "clear":
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1975 $sql = stPrepareSQL("UPDATE attendees SET key_id=NULL WHERE id=%d", $id);
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1976 stExecSQLCond($sql, "Assigned key cleared.");
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1977 break;
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1978
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1979 case "active":
7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1980 // Autobots activate!
1092 95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1981 $sql = stPrepareSQL("UPDATE userkeys SET active=%B WHERE id=%d", "active", $id);
95b74632cfe2 Rename votekeys table to userkeys, and all related variables and settings. Matti Hamalainen <ccr@tnsp.org> parents: 1091 diff changeset	1982 stExecSQLCond($sql, "Userkey status changed.");
435 7f950ab60be4 Cleanups. Matti Hamalainen <ccr@tnsp.org> parents: 434 diff changeset	1983 break;
308 3cfd95758377 A bit of work on vote key management backend. Matti Hamalainen <ccr@tnsp.org> parents: 305 diff changeset	1984 }
209 3870601c17c3 More work. Matti Hamalainen <ccr@tnsp.org> parents: 208 diff changeset	1985 }
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1986 stDBCommitTransaction();
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1987 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1988
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1989 default:
723 5ef230336e67 Clean up DB transactions in the admin ajax backend code. Matti Hamalainen <ccr@tnsp.org> parents: 716 diff changeset	1990 stSetStatus(903, "Not Found");
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1991 break;
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1992 }
8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	1993
378 5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1994 if (!$errorSet)
5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1995 stSaveDisplayVars();
5722c37aba2a It has begun. Matti Hamalainen <ccr@tnsp.org> parents: 377 diff changeset	1996
544 b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	1997
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	1998 if ($errorSet)
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	1999 {
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	2000 ob_clean();
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	2001 stDumpAJAXStatusErrors();
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	2002 }
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	2003
b4581dc165dc Add output buffering. Matti Hamalainen <ccr@tnsp.org> parents: 543 diff changeset	2004 ob_end_flush();
0 8019b357cc03 Initial import. Matti Hamalainen <ccr@tnsp.org> parents: diff changeset	2005 ?>

Mercurial > hg > fapweb

annotate admajax.php @ 1096:bbc0a3d0b51e