/[dtapublic]/to_be_filed/webprojs/php_libraries/php_library/fboprime/rscsx.inc
ViewVC logotype

Contents of /to_be_filed/webprojs/php_libraries/php_library/fboprime/rscsx.inc

Parent Directory Parent Directory | Revision Log Revision Log


Revision 35 - (show annotations) (download)
Sat Oct 8 23:35:33 2016 UTC (7 years, 9 months ago) by dashley
File size: 59787 byte(s)
Initial commit.
1 <?php
2 //$Header: /hl/cvsroots/gpl01/gpl01/webprojs/fboprime/sw/phplib/rscsx.inc,v 1.16 2006/11/05 01:07:30 dashley Exp $
3 //--------------------------------------------------------------------------------------------------------------
4 //rscsx.inc--FboPrime Database rscs Table Manipulation Functions Not Required by Day View Scheduler
5 //Copyright (C) 2006 David T. Ashley
6 //
7 //This program is free software; you can redistribute it and/or
8 //modify it under the terms of the GNU General Public License
9 //as published by the Free Software Foundation; either version 2
10 //of the License, or (at your option) any later version.
11 //
12 //This program is distributed in the hope that it will be useful,
13 //but WITHOUT ANY WARRANTY; without even the implied warranty of
14 //MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 //GNU General Public License for more details.
16 //
17 //You should have received a copy of the GNU General Public License
18 //along with this program; if not, write to the Free Software
19 //Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
20 //********************************************************************************
21 //
22 require_once("cslx.inc");
23 require_once("datefunc.inc");
24 require_once("db.inc");
25 require_once("global.inc");
26 require_once("rscs.inc");
27 require_once("sguid.inc");
28 //
29 //--------------------------------------------------------------------------------------------------------------
30 //The set of characters allowed in the initials field.
31 //
32 define("RSCS_INITIALS_ALLOWEDCHARS", " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ:-_.,;'0123456789");
33 define("RSCS_SHORTDESC_ALLOWEDCHARS", " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ:-_.,;'0123456789");
34 define("RSCS_LONGDESC_ALLOWEDCHARS", " abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ:-_.,;'0123456789");
35 //
36 //--------------------------------------------------------------------------------------------------------------
37 //Modifies a RSCS record. The record is keyed by the index of the record in.
38 //All errors are tolerated except three:
39 // a)Record does not exist, so can't modify it. No changes made.
40 // b)Editing collision: SGUID shows concurrent editing. In this case, no changes are made.
41 // c)Unknown query failure. Presumably no changes made.
42 //
43 //All error flags are FALSE if no error, TRUE if error.
44 //
45 //If all are FALSE, operation probably succeeded.
46 //
47 function RSCS_modify_record(
48 $record_in,
49 &$record_noexist_error_out,
50 &$editing_collision_error_out,
51 &$query_failure_error_out
52 )
53 {
54 global $GLOBAL_dbhandle;
55 global $GLOBAL_dblocked;
56
57 //Assume by default no errors.
58 $record_noexist_error_out = FALSE;
59 $editing_collision_error_out = FALSE;
60 $query_failure_error_out = FALSE;
61
62 //Grab a new SGUID. This will be used for the mod stamp in the event we can commit
63 //the changes.
64 $new_sguid = SGUID_sguid();
65
66 //Lock the database using the recursive critical section method (discussed in the
67 //manual). This is necessary because the test for presence and the modification have to
68 //be combined atomically.
69 //
70 $db_was_locked = $GLOBAL_dblocked;
71 if (! $GLOBAL_dblocked)
72 {
73 DB_db_lock();
74 $GLOBAL_dblocked = TRUE;
75 }
76 //
77 //Try to yank the record with the specified idx.
78 $existing_record = RSCS_retrieve_by_idx($record_in["idx"]);
79
80 //If the record doesn't already exist, we can't go forward. Error out.
81 if ($existing_record === FALSE)
82 {
83 //Unlock the database (if it was locked) using the recursive critical section
84 //method.
85 if (! $db_was_locked)
86 {
87 DB_db_unlock();
88 $GLOBAL_dblocked = FALSE;
89 }
90
91 $record_noexist_error_out = TRUE;
92
93 return; //Back to caller.
94 }
95
96 //Test for an editing collision.
97 if ($existing_record["crmodsguid"] != $record_in["crmodsguid"])
98 {
99 //Unlock the database (if it was locked) using the recursive critical section
100 //method.
101 if (! $db_was_locked)
102 {
103 DB_db_unlock();
104 $GLOBAL_dblocked = FALSE;
105 }
106
107 $editing_collision_error_out = TRUE;
108
109 return; //Back to caller.
110 }
111
112 //Build the query string with each successive parameter.
113 //
114 //type
115 //------
116 if (! isset($record_in["type"]))
117 $pushval = RSCS_TYPE_AIRCRAFT;
118 else
119 $pushval = $record_in["type"];
120 $query_string = "UPDATE rscs SET type=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"";
121 //
122 //status
123 //------
124 if (! isset($record_in["status"]))
125 $pushval = RSCS_STATUS_ONLINE;
126 else
127 $pushval = $record_in["status"];
128 $query_string .= (", status=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
129 //
130 //disporder
131 //---------
132 if (! isset($record_in["disporder"]))
133 $pushval = 0;
134 else
135 $pushval = $record_in["disporder"];
136 $query_string .= (", disporder=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
137 //
138 //longdesc
139 //--------
140 if (! isset($record_in["longdesc"]))
141 $pushval = "";
142 else
143 $pushval = $record_in["longdesc"];
144 $query_string .= (", longdesc=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
145 //
146 //shortdesc
147 //---------
148 if (! isset($record_in["shortdesc"]))
149 $pushval = "";
150 else
151 $pushval = $record_in["shortdesc"];
152 $query_string .= (", shortdesc=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
153 //
154 //initials
155 //--------
156 if (! isset($record_in["initials"]))
157 $pushval = "";
158 else
159 $pushval = $record_in["initials"];
160 $query_string .= (", initials=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
161 //
162 //rstdtime
163 //--------
164 if (! isset($record_in["rstdtime"]))
165 $pushval = "UUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU";
166 else
167 $pushval = $record_in["rstdtime"];
168 $query_string .= (", rstdtime=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
169 //
170 //schedaheadhrs
171 //-------------
172 if (! isset($record_in["schedaheadhrs"]))
173 $pushval = (int) 0;
174 else
175 $pushval = $record_in["schedaheadhrs"];
176 $query_string .= (", schedaheadhrs=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
177 //
178 //usercorres
179 //----------
180 if (! isset($record_in["usercorres"]))
181 $pushval = (int) 0;
182 else
183 $pushval = $record_in["usercorres"];
184 $query_string .= (", usercorres=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
185 //
186 //crmodsguid
187 //----------
188 $pushval = $new_sguid;
189 $query_string .= (", crmodsguid=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
190 //
191 //echo " " . $query_string . " ";
192 //
193 //idx qualifier
194 //-------------
195 $pushval = $record_in["idx"];
196 $query_string .= (" WHERE idx=\"" . mysql_real_escape_string ($pushval, $GLOBAL_dbhandle) . "\"");
197
198 //echo "<br>";
199 //print_r($query_string);
200 //echo "<br>";
201
202 //Execute the query to insert the record.
203 $result = mysql_query($query_string, $GLOBAL_dbhandle);
204 //
205 //If the update failed, set the query failure flag.
206 if ($result == FALSE)
207 {
208 $query_failure_error_out = TRUE;
209 }
210
211 //Unlock the database (if it was locked) using the recursive critical section
212 //method.
213 if (! $db_was_locked)
214 {
215 DB_db_unlock();
216 $GLOBAL_dblocked = FALSE;
217 }
218 }
219 //
220 //--------------------------------------------------------------------------------------------------------------
221 //Retrieves an associative array containing full information about the resource whose index is
222 //passed, or FALSE if it can't be located.
223 //
224 function RSCS_retrieve_by_idx($idx)
225 {
226 global $GLOBAL_dbhandle;
227
228 //Form the query string.
229 $query_string = "SELECT * FROM rscs WHERE idx=\""
230 .
231 mysql_real_escape_string($idx, $GLOBAL_dbhandle)
232 .
233 "\"";
234
235 //Execute the query.
236 $result = mysql_query($query_string, $GLOBAL_dbhandle);
237
238 if ($result === FALSE)
239 {
240 //Unknown query failure. Return FALSE to the caller. No need to free,
241 //as this is not a result.
242 $rv = FALSE;
243 }
244 else
245 {
246 //Figure out how many rows in the result.
247 $nrows = mysql_num_rows($result);
248
249 if ($nrows == 0)
250 {
251 //No rows in the result. The query failed to give us a record, but still
252 //we need to free the result set.
253
254 //Free the result.
255 mysql_free_result($result);
256
257 //The caller gets FALSE. No record with that SID.
258 $rv = FALSE;
259 }
260 else
261 {
262 //We have at least one record. Assume just one, because the IDX is supposed
263 //to be unique.
264 $rv = mysql_fetch_assoc($result); //Get the associative record.
265
266 //Free the result.
267 mysql_free_result($result);
268 }
269
270 //Return the value to the caller.
271 return($rv);
272 }
273 }
274 //
275 //--------------------------------------------------------------------------------------------------------------
276 //Retrieves an array containing the indices of all flight instructors in the resources
277 //table that are online, or FALSE if none exist.
278 //
279 function RSCS_get_fi_online_idxs()
280 {
281 global $GLOBAL_dbhandle;
282
283 //Form the query string.
284 $query_string = "SELECT idx FROM rscs WHERE type=\""
285 .
286 mysql_real_escape_string((string)RSCS_TYPE_FLIGHTINSTRUCTOR, $GLOBAL_dbhandle)
287 .
288 "\" AND status=\""
289 .
290 mysql_real_escape_string((string)RSCS_STATUS_ONLINE, $GLOBAL_dbhandle)
291 .
292 "\"";
293
294 //Execute the query.
295 $result = mysql_query($query_string, $GLOBAL_dbhandle);
296
297 if ($result === FALSE)
298 {
299 //Unknown query failure. Return FALSE to the caller. No need to free,
300 //as this is not a result.
301 $rv = FALSE;
302 }
303 else
304 {
305 //Figure out how many rows in the result.
306 $nrows = mysql_num_rows($result);
307
308 if ($nrows == 0)
309 {
310 //No rows in the result. The query failed to give us a record, but still
311 //we need to free the result set.
312
313 //Free the result.
314 mysql_free_result($result);
315
316 //The caller gets FALSE. No records.
317 $rv = FALSE;
318 }
319 else
320 {
321 //We have at least one record. Grab the indices.
322 //
323 for ($i=0; $i<$nrows; $i++)
324 {
325 $temp = mysql_fetch_assoc($result);
326 $rv[$i] = $temp["idx"];
327 }
328
329 //Free the result.
330 mysql_free_result($result);
331 }
332
333 //Return the value to the caller.
334 return($rv);
335 }
336 }
337 //
338 //--------------------------------------------------------------------------------------------------------------
339 //Retrieves an array containing the indices of all aircraft/simulators in the resources
340 //table that are online, or FALSE if none exist.
341 //
342 function RSCS_get_acftsim_online_idxs()
343 {
344 global $GLOBAL_dbhandle;
345
346 //Form the query string.
347 $query_string = "SELECT idx FROM rscs WHERE ( type=\""
348 .
349 mysql_real_escape_string((string)RSCS_TYPE_AIRCRAFT, $GLOBAL_dbhandle)
350 .
351 "\" OR type=\""
352 .
353 mysql_real_escape_string((string)RSCS_TYPE_SIMULATOR, $GLOBAL_dbhandle)
354 .
355 "\" ) AND status=\""
356 .
357 mysql_real_escape_string((string)RSCS_STATUS_ONLINE, $GLOBAL_dbhandle)
358 .
359 "\"";
360
361 //Execute the query.
362 $result = mysql_query($query_string, $GLOBAL_dbhandle);
363
364 if ($result === FALSE)
365 {
366 //Unknown query failure. Return FALSE to the caller. No need to free,
367 //as this is not a result.
368 $rv = FALSE;
369 }
370 else
371 {
372 //Figure out how many rows in the result.
373 $nrows = mysql_num_rows($result);
374
375 if ($nrows == 0)
376 {
377 //No rows in the result. The query failed to give us a record, but still
378 //we need to free the result set.
379
380 //Free the result.
381 mysql_free_result($result);
382
383 //The caller gets FALSE. No records.
384 $rv = FALSE;
385 }
386 else
387 {
388 //We have at least one record. Grab the indices.
389 //
390 for ($i=0; $i<$nrows; $i++)
391 {
392 $temp = mysql_fetch_assoc($result);
393 $rv[$i] = $temp["idx"];
394 }
395
396 //Free the result.
397 mysql_free_result($result);
398 }
399
400 //Return the value to the caller.
401 return($rv);
402 }
403 }
404 //
405 //--------------------------------------------------------------------------------------------------------------
406 //Retrieves an array containing the indices of _all_ resources, ordered by status, sort index, then index
407 //for display on the resource list page.
408 //
409 function RSCS_get_idxs_all_rscslist_a()
410 {
411 global $GLOBAL_dbhandle;
412
413 //Form the query string.
414 $query_string = "SELECT idx FROM rscs ORDER BY status DESC, disporder ASC, idx ASC";
415
416 //Execute the query.
417 $result = mysql_query($query_string, $GLOBAL_dbhandle);
418
419 if ($result === FALSE)
420 {
421 //Unknown query failure. Return FALSE to the caller. No need to free,
422 //as this is not a result.
423 $rv = FALSE;
424 }
425 else
426 {
427 //Figure out how many rows in the result.
428 $nrows = mysql_num_rows($result);
429
430 if ($nrows == 0)
431 {
432 //No rows in the result. The query failed to give us a record, but still
433 //we need to free the result set.
434
435 //Free the result.
436 mysql_free_result($result);
437
438 //The caller gets FALSE. No records.
439 $rv = FALSE;
440 }
441 else
442 {
443 //We have at least one record. Grab the indices.
444 //
445 for ($i=0; $i<$nrows; $i++)
446 {
447 $temp = mysql_fetch_assoc($result);
448 $rv[$i] = $temp["idx"];
449 }
450
451 //Free the result.
452 mysql_free_result($result);
453 }
454
455 //Return the value to the caller.
456 return($rv);
457 }
458 }
459 //
460 //--------------------------------------------------------------------------------------------------------------
461 //Retrieves an array containing the short description, medium description, database index, status, and
462 //corresponding user for each entry in the resources table. The array returned is indexed by the database index
463 //(not sequentially), meaning that some gaps in the indexing may occur.
464 //
465 //Returns FALSE if no records.
466 //
467 function RSCS_get_key_info_rscslist_a()
468 {
469 global $GLOBAL_dbhandle;
470
471 //Form the query string.
472 $query_string = "SELECT idx,type,status,initials,shortdesc,usercorres FROM rscs";
473
474 //Execute the query.
475 $result = mysql_query($query_string, $GLOBAL_dbhandle);
476
477 if ($result === FALSE)
478 {
479 //Unknown query failure. Return FALSE to the caller. No need to free,
480 //as this is not a result.
481 $rv = FALSE;
482 }
483 else
484 {
485 //Figure out how many rows in the result.
486 $nrows = mysql_num_rows($result);
487
488 if ($nrows == 0)
489 {
490 //No rows in the result. The query failed to give us a record, but still
491 //we need to free the result set.
492
493 //Free the result.
494 mysql_free_result($result);
495
496 //The caller gets FALSE. No records.
497 $rv = FALSE;
498 }
499 else
500 {
501 //We have at least one record. Grab the data.
502 //
503 for ($i=0; $i<$nrows; $i++)
504 {
505 $temp = mysql_fetch_assoc($result);
506 $rv[$temp["idx"]] = $temp;
507 }
508
509 //Free the result.
510 mysql_free_result($result);
511 }
512
513 //Return the value to the caller.
514 return($rv);
515 }
516 }
517 //
518 //--------------------------------------------------------------------------------------------------------------
519 //Renumbers the disporder fields of the resource table at a fixed interval.
520 //
521 function RSCS_renumber_disporder_autointerval()
522 {
523 global $GLOBAL_dblocked;
524 global $GLOBAL_dbhandle;
525
526 $renumber_interval = 100; //Interval to use. 100 should be large enough for any practical
527 //number of resources.
528
529 //Lock the database using the recursive locking protocol to ensure that there won't be
530 //any changes while we are going through tampering with each resource.
531 //
532 $db_was_locked = $GLOBAL_dblocked;
533 if (! $GLOBAL_dblocked)
534 {
535 DB_db_lock();
536 $GLOBAL_dblocked = TRUE;
537 }
538 //-----------------------------------------------
539 //Get the complete set of indices from the resource table. We want to preserve the old
540 //order, so primary sort key is the display order, but then we have a couple (somewhat
541 //arbitrary) tiebreakers. We calculate the value FALSE (in place of an array)
542 //if something goes wrong.
543 //
544 //Form the query string.
545 $query_string = "SELECT idx FROM rscs ORDER BY disporder ASC, status DESC, idx ASC";
546
547 //Execute the query.
548 $result = mysql_query($query_string, $GLOBAL_dbhandle);
549
550 if ($result === FALSE)
551 {
552 //Unknown query failure. Return FALSE to the caller. No need to free,
553 //as this is not a result.
554 $indices = FALSE;
555 }
556 else
557 {
558 //Figure out how many rows in the result.
559 $nrows = mysql_num_rows($result);
560
561 if ($nrows == 0)
562 {
563 //No rows in the result. The query failed to give us a record, but still
564 //we need to free the result set.
565
566 //Free the result.
567 mysql_free_result($result);
568
569 //The caller gets FALSE. No records.
570 $indices = FALSE;
571 }
572 else
573 {
574 //We have at least one record. Grab the indices.
575 //
576 for ($i=0; $i<$nrows; $i++)
577 {
578 $temp = mysql_fetch_assoc($result);
579 $indices[$i] = $temp["idx"];
580 }
581
582 //Free the result.
583 mysql_free_result($result);
584 }
585 }
586
587 //-----------------------------------------------
588 //If we had success in getting the list of indices (in the order we want),
589 //loop through them all and give them the right values. We loop backwards to avoid
590 //changing resource order in the event that the httpd process dies in the middle of this.
591 //We also need to change the modification sguid to make sure any editing collisions
592 //will be detected.
593 //
594 if ($indices !== FALSE)
595 {
596 $n = count($indices);
597 $number_to_assign = $n * $renumber_interval;
598
599 for ($i=0; $i<$n; $i++)
600 {
601 $sguid = SGUID_sguid();
602
603 $target = $indices[$n-1-$i];
604
605 mysql_query("UPDATE rscs SET disporder=\""
606 .
607 (string)(($n - $i) * $renumber_interval)
608 .
609 "\", crmodsguid=\""
610 .
611 $sguid
612 .
613 "\" WHERE idx=\""
614 .
615 $target
616 .
617 "\"", $GLOBAL_dbhandle);
618 }
619 }
620
621 //-----------------------------------------------
622 //Unlock the database using the recursive locking protocol.
623 //
624 if (! $db_was_locked)
625 {
626 DB_db_unlock();
627 $GLOBAL_dblocked = FALSE;
628 }
629 }
630 //
631 //--------------------------------------------------------------------------------------------------------------
632 //Maps from the resource status to a short description for the resource views.
633 //
634 function RSCS_status_map_long($status_in)
635 {
636 switch($status_in)
637 {
638 default:
639 {
640 $rv = "Unknown";
641
642 break;
643 }
644 case RSCS_STATUS_OFFLINE :
645 {
646 $rv = "Offline";
647
648 break;
649 }
650 case RSCS_STATUS_ONLINE :
651 {
652 $rv = "Online";
653
654 break;
655 }
656 }
657
658 return($rv);
659 }
660 //--------------------------------------------------------------------------------------------------------------
661 //Maps from the resource status to a short description for the resource views.
662 //
663 function RSCS_type_map_long($status_in)
664 {
665 switch($status_in)
666 {
667 default:
668 {
669 $rv = "Unknown";
670
671 break;
672 }
673 case RSCS_TYPE_AIRCRAFT :
674 {
675 $rv = "Aircraft";
676
677 break;
678 }
679 case RSCS_TYPE_SIMULATOR :
680 {
681 $rv = "Simulator";
682
683 break;
684 }
685 case RSCS_TYPE_FLIGHTINSTRUCTOR :
686 {
687 $rv = "Flight Instructor";
688
689 break;
690 }
691 }
692
693 return($rv);
694 }
695 //--------------------------------------------------------------------------------------------------------------
696 //--------------------------------------------------------------------------------------------------------------
697 //Returns the HTML that should be used to identify the resource index on the EDIT and ADD pages. HTML may
698 //be marked up with <i> and <b> and includes the trailing colon.
699 //
700 function RSCS_idx_id_html_01()
701 {
702 return("<i>idx:</i>");
703 }
704 //--------------------------------------------------------------------------------------------------------------
705 //Returns the HTML that should be used to display the resource index on the EDIT and ADD pages.
706 //
707 function RSCS_idx_disp_html_01($idx_in)
708 {
709 $rv = number_format($idx_in);
710 return($rv);
711 }
712 //--------------------------------------------------------------------------------------------------------------
713 //Returns the HTML that should be used to identify the resource index description on the EDIT and ADD pages.
714 //HTML may be marked up with <i>, <b>, and <b>.
715 //
716 function RSCS_idx_desc_html_01()
717 {
718 $rv = "The <i>idx</i> field is assigned automatically by the database "
719 . "when a resource is created and may not be modified.";
720
721 return($rv);
722 }
723 //--------------------------------------------------------------------------------------------------------------
724 //--------------------------------------------------------------------------------------------------------------
725 //Returns the HTML that should be used to identify the resource type on the EDIT and ADD pages. HTML may
726 //be marked up with <i> and <b> and includes the trailing colon.
727 //
728 function RSCS_type_id_html_01()
729 {
730 return("<i>type:</i>");
731 }
732 //--------------------------------------------------------------------------------------------------------------
733 //Returns the HTML that should be used to display the resource type select control on the EDIT and ADD pages.
734 //
735 function RSCS_type_disp_html_01($type_in)
736 {
737 //Turn the input into a numeric value. If it can't be turned into a numeric value,
738 //make it an aircraft.
739 if (is_numeric($type_in))
740 {
741 $type_in = (int)$type_in;
742 if (
743 ($type_in != RSCS_TYPE_AIRCRAFT)
744 &&
745 ($type_in != RSCS_TYPE_SIMULATOR)
746 &&
747 ($type_in != RSCS_TYPE_FLIGHTINSTRUCTOR)
748 )
749 {
750 //This is nothing we recognize. Assume aircraft.
751 $type_in = (int)RSCS_TYPE_AIRCRAFT;
752 }
753 }
754 else
755 {
756 //This is nothing we recognize. Assume aircraft.
757 $type_in = (int)RSCS_TYPE_AIRCRAFT;
758 }
759
760 //Do the control.
761 $rv = "<select name=\"type\">";
762 //--------
763 $rv .= "<option value=\"" . (string)RSCS_TYPE_AIRCRAFT . "\"";
764 if ($type_in == RSCS_TYPE_AIRCRAFT)
765 $rv .= " SELECTED";
766 $rv .= ">Aircraft";
767 //--------
768 $rv .= "<option value=\"" . (string)RSCS_TYPE_SIMULATOR . "\"";
769 if ($type_in == RSCS_TYPE_SIMULATOR)
770 $rv .= " SELECTED";
771 $rv .= ">Simulator";
772 //--------
773 $rv .= "<option value=\"" . (string)RSCS_TYPE_FLIGHTINSTRUCTOR . "\"";
774 if ($type_in == RSCS_TYPE_FLIGHTINSTRUCTOR)
775 $rv .= " SELECTED";
776 $rv .= ">Flight Instructor";
777 //
778 $rv .= "</SELECT>";
779
780 return($rv);
781 }
782 //--------------------------------------------------------------------------------------------------------------
783 //Returns the HTML that should be used to identify the resource index description on the EDIT and ADD pages.
784 //HTML may be marked up with <i>, <b>, and <b>.
785 //
786 function RSCS_type_desc_html_01()
787 {
788 $rv = "The <i>type</i> identifies whether the resource is an aircraft, a simulator, "
789 . "or a flight instructor.";
790
791 return($rv);
792 }
793 //--------------------------------------------------------------------------------------------------------------
794 //--------------------------------------------------------------------------------------------------------------
795 //Returns the HTML that should be used to identify the resource status on the EDIT and ADD pages. HTML may
796 //be marked up with <i> and <b> and includes the trailing colon.
797 //
798 function RSCS_status_id_html_01()
799 {
800 return("<i>status:</i>");
801 }
802 //--------------------------------------------------------------------------------------------------------------
803 //Returns the HTML that should be used to display the resource status select control on the EDIT and ADD pages.
804 //
805 function RSCS_status_disp_html_01($status_in)
806 {
807 //Turn the input into a numeric value. If it can't be turned into a numeric value,
808 //make it online.
809 if (is_numeric($status_in))
810 {
811 $status_in = (int)$status_in;
812 if (
813 ($status_in != RSCS_STATUS_OFFLINE)
814 &&
815 ($status_in != RSCS_STATUS_ONLINE)
816 )
817 {
818 //This is nothing we recognize. Assume online.
819 $status_in = (int)RSCS_STATUS_ONLINE;
820 }
821 }
822 else
823 {
824 //This is nothing we recognize. Assume online.
825 $status_in = (int)RSCS_STATUS_ONLINE;
826 }
827
828 //Do the control.
829 $rv = "<select name=\"status\">";
830 //--------
831 $rv .= "<option value=\"" . (string)RSCS_STATUS_OFFLINE . "\"";
832 if ($status_in == RSCS_STATUS_OFFLINE)
833 $rv .= " SELECTED";
834 $rv .= ">Offline";
835 //--------
836 $rv .= "<option value=\"" . (string)RSCS_STATUS_ONLINE . "\"";
837 if ($status_in == RSCS_STATUS_ONLINE)
838 $rv .= " SELECTED";
839 $rv .= ">Online";
840 //--------
841 $rv .= "</SELECT>";
842
843 return($rv);
844 }
845 //--------------------------------------------------------------------------------------------------------------
846 //Returns the HTML that should be used to identify the resource index description on the EDIT and ADD pages.
847 //HTML may be marked up with <i>, <b>, and <b>.
848 //
849 function RSCS_status_desc_html_01()
850 {
851 $rv = "The <i>status</i> identifies whether a resource is in service.&nbsp; A resource that is <i>offline</i> "
852 . "is not displayed in scheduling views and cannot be scheduled.&nbsp; Placing a resource <i>offline</i> "
853 . "will make the resource invisible without deleting information about the resource.";
854
855 return($rv);
856 }
857 //--------------------------------------------------------------------------------------------------------------
858 //--------------------------------------------------------------------------------------------------------------
859 //Returns the HTML that should be used to identify the disporderstatus on the EDIT and ADD pages. HTML may
860 //be marked up with <i> and <b> and includes the trailing colon.
861 //
862 function RSCS_disporder_id_html_01()
863 {
864 return("<i>disporder:</i>");
865 }
866 //--------------------------------------------------------------------------------------------------------------
867 //Returns the HTML that should be used to display the disporder form field on the EDIT and ADD pages.
868 //
869 function RSCS_disporder_disp_html_01($disporder_in)
870 {
871 //Turn the input into a numeric value. If it can't be turned into a numeric value,
872 //make it online.
873 if (is_numeric($disporder_in))
874 {
875 $disporder_in = (int)$disporder_in;
876 if ($disporder_in <= 0)
877 {
878 //Can't be non-positive integer.
879 $disporder_in = 1;
880 }
881 }
882 else
883 {
884 //This is nothing we recognize. Assume number 1.
885 $disporder_in = 1;
886 }
887
888 //Do the text input field.
889 $rv = "<input type=\"text\" name=\"disporder\" size=\"15\" value=\""
890 .
891 (string)$disporder_in
892 .
893 "\">";
894
895 return($rv);
896 }
897 //--------------------------------------------------------------------------------------------------------------
898 //Returns the HTML that should be used to identify the resource index description on the EDIT and ADD pages.
899 //HTML may be marked up with <i>, <b>, and <b>.
900 //
901 function RSCS_disporder_desc_html_01()
902 {
903 $rv = "The <i>disporder</i> is a positive integer that defines which resource is displayed first "
904 . "in contexts where information about more than one resource may be displayed.&nbsp; Resources "
905 . "with the smaller <i>disporder</i> field are displayed first.&nbsp; An option to renumber the "
906 . "<i>disporder</i> fields exists on the resource list page.";
907
908 return($rv);
909 }
910 //--------------------------------------------------------------------------------------------------------------
911 //--------------------------------------------------------------------------------------------------------------
912 //Returns the HTML that should be used to identify the initials on the EDIT and ADD pages. HTML may
913 //be marked up with <i> and <b> and includes the trailing colon.
914 //
915 function RSCS_initials_id_html_01()
916 {
917 return("<i>initials:</i>");
918 }
919 //--------------------------------------------------------------------------------------------------------------
920 //Returns the HTML that should be used to display the initials form field on the EDIT and ADD pages.
921 //
922 function RSCS_initials_disp_html_01($initials_in)
923 {
924 //Do the text input field.
925 $rv = "<input type=\"text\" name=\"initials\" size=\"15\" value=\""
926 .
927 htmlentities((string)$initials_in)
928 .
929 "\">";
930
931 return($rv);
932 }
933 //--------------------------------------------------------------------------------------------------------------
934 //Returns the HTML that should be used to identify the resource index description on the EDIT and ADD pages.
935 //HTML may be marked up with <i>, <b>, and <b>.
936 //
937 function RSCS_initials_desc_html_01()
938 {
939 $rv = "The <i>initials</i> field is the shortest possible description to uniquely identify an "
940 . "aircraft, simulator, or flight instructor.&nbsp; For an aircraft, this field traditionally "
941 . "is the registration number of the aircraft (i.e. &quot;N1234N&quot;).&nbsp; For a flight instructor, "
942 . "this field traditionally holds just the instructor's initials (i.e. &quot;J.S.&quot;).";
943
944 return($rv);
945 }
946 //--------------------------------------------------------------------------------------------------------------
947 //--------------------------------------------------------------------------------------------------------------
948 //Returns the HTML that should be used to identify the shortdesc on the EDIT and ADD pages. HTML may
949 //be marked up with <i> and <b> and includes the trailing colon.
950 //
951 function RSCS_shortdesc_id_html_01()
952 {
953 return("<i>shortdesc:</i>");
954 }
955 //--------------------------------------------------------------------------------------------------------------
956 //Returns the HTML that should be used to display the shortdesc form field on the EDIT and ADD pages.
957 //
958 function RSCS_shortdesc_disp_html_01($shortdesc_in)
959 {
960 //Do the text input field.
961 $rv = "<input type=\"text\" name=\"shortdesc\" size=\"50\" value=\""
962 .
963 htmlentities((string)$shortdesc_in)
964 .
965 "\">";
966
967 return($rv);
968 }
969 //--------------------------------------------------------------------------------------------------------------
970 //Returns the HTML that should be used to identify the resource shortdesc description on the EDIT and ADD pages.
971 //HTML may be marked up with <i>, <b>, and <b>.
972 //
973 function RSCS_shortdesc_desc_html_01()
974 {
975 $rv = "The <i>shortdesc</i> field is the medium-length description to uniquely identify an "
976 . "aircraft, simulator, or flight instructor.&nbsp; For an aircraft, this field traditionally "
977 . "is the registration number of the aircraft (i.e. &quot;N1234N&quot;).&nbsp; For a flight instructor, "
978 . "this field traditionally holds the instructor's first initial and last name (i.e. &quot;J. Smith&quot;).";
979
980 return($rv);
981 }
982 //--------------------------------------------------------------------------------------------------------------
983 //--------------------------------------------------------------------------------------------------------------
984 //Returns the HTML that should be used to identify the longdesc on the EDIT and ADD pages. HTML may
985 //be marked up with <i> and <b> and includes the trailing colon.
986 //
987 function RSCS_longdesc_id_html_01()
988 {
989 return("<i>longdesc:</i>");
990 }
991 //--------------------------------------------------------------------------------------------------------------
992 //Returns the HTML that should be used to display the longdesc form field on the EDIT and ADD pages.
993 //
994 function RSCS_longdesc_disp_html_01($longdesc_in)
995 {
996 //Do the text input field.
997 $rv = "<input type=\"text\" name=\"longdesc\" size=\"100\" value=\""
998 .
999 htmlentities((string)$longdesc_in)
1000 .
1001 "\">";
1002
1003 return($rv);
1004 }
1005 //--------------------------------------------------------------------------------------------------------------
1006 //Returns the HTML that should be used to identify the resource longdesc description on the EDIT and ADD pages.
1007 //HTML may be marked up with <i>, <b>, and <b>.
1008 //
1009 function RSCS_longdesc_desc_html_01()
1010 {
1011 $rv = "The <i>longdesc</i> field is the longest description to uniquely identify an "
1012 . "aircraft, simulator, or flight instructor.&nbsp; For an aircraft, this field traditionally "
1013 . "is the registration number of the aircraft followed by the manufacturer and model "
1014 . "(i.e. &quot;N1234N Cessna 172P&quot;).&nbsp; For a flight instructor, "
1015 . "this field traditionally holds the instructor's last name, a comma, and then the first "
1016 . "name (i.e. &quot;Smith, John&quot;).";
1017
1018 return($rv);
1019 }
1020 //--------------------------------------------------------------------------------------------------------------
1021 //--------------------------------------------------------------------------------------------------------------
1022 //Returns the HTML that should be used to identify the schedaheadhrs on the EDIT and ADD pages. HTML may
1023 //be marked up with <i> and <b> and includes the trailing colon.
1024 //
1025 function RSCS_schedaheadhrs_id_html_01()
1026 {
1027 return("<i>schedaheadhrs:</i>");
1028 }
1029 //--------------------------------------------------------------------------------------------------------------
1030 //Returns the HTML that should be used to display the schedaheadhrs form field on the EDIT and ADD pages.
1031 //
1032 function RSCS_schedaheadhrs_disp_html_01($schedaheadhrs_in)
1033 {
1034 //Turn the input into a numeric value. If it can't be turned into a numeric value,
1035 //make it online.
1036 if (is_numeric($schedaheadhrs_in))
1037 {
1038 $schedaheadhrs_in = (int)$schedaheadhrs_in;
1039 if ($schedaheadhrs_in < 0)
1040 {
1041 //Can't be negative integer.
1042 $schedaheadhrs_in = 0;
1043 }
1044 }
1045 else
1046 {
1047 //This is nothing we recognize. Assume number 0.
1048 $schedaheadhrs_in = 0;
1049 }
1050
1051 //Do the text input field.
1052 $rv = "<input type=\"text\" name=\"schedaheadhrs\" size=\"15\" value=\""
1053 .
1054 (string)$schedaheadhrs_in
1055 .
1056 "\">";
1057
1058 return($rv);
1059 }
1060 //--------------------------------------------------------------------------------------------------------------
1061 //Returns the HTML that should be used to identify the schedaheadhrs description on the EDIT and ADD pages.
1062 //HTML may be marked up with <i>, <b>, and <b>.
1063 //
1064 function RSCS_schedaheadhrs_desc_html_01()
1065 {
1066 $rv = "The <i>schedaheadhrs</i> is a non-negative integer that specifies the minimum number of hours that a "
1067 . "reservation must be made ahead of its start time by those without permission to violate scheduling rules.&nbsp; A "
1068 . "typical value for this field is 8.&nbsp; The intent "
1069 . "of the scheduling rules facilitated by this field is to ensure that an FBO has enough time to prepare an aircraft "
1070 . "and/or that a flight instructor has enough time to plan ahead for a lesson.&nbsp; A reservation that must be made "
1071 . "too close to the start time is typically made by calling the FBO.";
1072
1073 return($rv);
1074 }
1075 //--------------------------------------------------------------------------------------------------------------
1076 //--------------------------------------------------------------------------------------------------------------
1077 //Returns the HTML that should be used to identify the usercorres on the EDIT and ADD pages. HTML may
1078 //be marked up with <i> and <b> and includes the trailing colon.
1079 //
1080 function RSCS_usercorres_id_html_01()
1081 {
1082 return("<i>usercorres:</i>");
1083 }
1084 //--------------------------------------------------------------------------------------------------------------
1085 //Returns the HTML that should be used to display the usercorres form field on the EDIT and ADD pages.
1086 //
1087 function RSCS_usercorres_disp_html_01($usercorres_in)
1088 {
1089 //Turn the input into a numeric value. If it can't be turned into a numeric value,
1090 //make it 0.
1091 if (is_numeric($usercorres_in))
1092 {
1093 $usercorres_in = (int)$usercorres_in;
1094 if ($usercorres_in < 0)
1095 {
1096 //Can't be negative integer.
1097 $usercorres_in = 0;
1098 }
1099 }
1100 else
1101 {
1102 //This is nothing we recognize. Assume number 0.
1103 $usercorres_in = 0;
1104 }
1105
1106 //If the integer is non-zero, try to look up the user with that index.
1107 if ($usercorres_in != 0)
1108 {
1109 $userdata = USRS_retrieve_by_idx($usercorres_in);
1110 if ($userdata !== FALSE)
1111 {
1112 $userid = $userdata["userid"];
1113 }
1114 else
1115 {
1116 $userid = $usercorres_in;
1117 }
1118 }
1119 else
1120 {
1121 $userid = 0;
1122 }
1123
1124 //Do the text input field.
1125 $rv = "<input type=\"text\" name=\"usercorres\" size=\"20\" value=\""
1126 .
1127 (string)$userid
1128 .
1129 "\">";
1130
1131 return($rv);
1132 }
1133 //--------------------------------------------------------------------------------------------------------------
1134 //Returns the HTML that should be used to identify the schedaheadhrs description on the EDIT and ADD pages.
1135 //HTML may be marked up with <i>, <b>, and <b>.
1136 //
1137 function RSCS_usercorres_desc_html_01()
1138 {
1139 $rv = "The <i>usercorres</i> field specifies the user account of the flight instructor corresponding to the "
1140 . "resource, if the resource is a flight instructor.&nbsp; (It is not required that a flight instructor "
1141 . "resource be linked to a user account, but such linkage is the usual case.)&nbsp; If provided, this link "
1142 . "allows the scheduling software to send the flight instructor notification e-mails when a relevant scheduling "
1143 . "change is made, and to make other intelligent decisions about scheduling, permissions, and notification.&nbsp; "
1144 . "The user account must be specified as the userid of the account (i.e. &quot;jsmith&quot;).&nbsp; If "
1145 . "no user account should be linked to the resource, the integer "
1146 . "&quot;0&quot; should be used.";
1147
1148 return($rv);
1149 }
1150 //--------------------------------------------------------------------------------------------------------------
1151 //--------------------------------------------------------------------------------------------------------------
1152 //Returns the HTML that should be used to identify the rstdtime on the EDIT and ADD pages. HTML may
1153 //be marked up with <i> and <b> and includes the trailing colon.
1154 //
1155 function RSCS_rstdtime_id_html_01()
1156 {
1157 return("<i>rstdtime:</i>");
1158 }
1159 //--------------------------------------------------------------------------------------------------------------
1160 //Returns the HTML that should be used to display the rstdtime form field on the EDIT and ADD pages.
1161 //
1162 function RSCS_rstdtime_disp_html_01($rstdtime_in)
1163 {
1164 $rv = "";
1165
1166 $rstdtime_in = (string)$rstdtime_in; //Be sure it is a string.
1167
1168 for ($i=0; $i<48; $i++) //For each half-hour time slot.
1169 {
1170 $hour_start = (int)($i >> 1);
1171 $minute_start = (int)(($i % 2) * 30);
1172
1173 $hour_end = (int)((($i+1) % 48) >> 1);
1174 $minute_end = (int)(((($i+1) % 48) % 2) * 30);
1175
1176 $time_string_start = DATEFUNC_stdtimenosec($hour_start, $minute_start);
1177 $time_string_end = DATEFUNC_stdtimenosec($hour_end, $minute_end);
1178
1179 $is_restricted = FALSE;
1180 if (strlen($rstdtime_in) >= ($i+1))
1181 {
1182 if (SubStr($rstdtime_in, $i, 1) == "R")
1183 $is_restricted = TRUE;
1184 }
1185
1186 $rv .= "<input type=\"checkbox\" name=\"";
1187 $rv .= sprintf("rstdtime%02d", $i);
1188 $rv .= "\"";
1189 if ($is_restricted)
1190 $rv .= " checked";
1191 $rv .= ">&nbsp;";
1192 $rv .= $time_string_start . " - " . $time_string_end;
1193 if ($i != 47)
1194 $rv .= "<br>";
1195 }
1196
1197 return($rv);
1198 }
1199 //--------------------------------------------------------------------------------------------------------------
1200 //Returns the HTML that should be used to identify the schedaheadhrs description on the EDIT and ADD pages.
1201 //HTML may be marked up with <i>, <b>, and <b>.
1202 //
1203 function RSCS_rstdtime_desc_html_01()
1204 {
1205 $rv = "The <i>rstdtime</i> field specifies those half-hour time slots of a 24-hour day during which "
1206 . "a user without permission to break scheduling rules may not reserve a resource.&nbsp; This field "
1207 . "is intended to prevent students and aircraft renters from reserving flight instructors at times "
1208 . "of the day during which they do not desire to teach or aircraft during times of the day when they "
1209 . "are not available for rental.";
1210
1211 return($rv);
1212 }
1213 //--------------------------------------------------------------------------------------------------------------
1214 //--------------------------------------------------------------------------------------------------------------
1215 //Returns the HTML that should be used to identify the password on the EDIT and ADD pages. HTML may
1216 //be marked up with <i> and <b> and includes the trailing colon.
1217 //
1218 function RSCS_password_id_html_01($curuserinfo_in)
1219 {
1220 return("<i>Password for user <b>" . $curuserinfo_in["userid"] . "</b>:</i>");
1221 }
1222 //--------------------------------------------------------------------------------------------------------------
1223 //Returns the HTML that should be used to display the rstdtime form field on the EDIT and ADD pages.
1224 //
1225 function RSCS_password_disp_html_01()
1226 {
1227 return("<input type=\"password\" name=\"password\" size=\"20\">");
1228 }
1229 //--------------------------------------------------------------------------------------------------------------
1230 //Returns the HTML that should be used to identify the schedaheadhrs description on the EDIT and ADD pages.
1231 //HTML may be marked up with <i>, <b>, and <b>.
1232 //
1233 function RSCS_password_desc_html_01()
1234 {
1235 $rv = "The <i>password</i> field is used to verify that the logged-in user is actually the individual "
1236 . "attempting to make this change.&nbsp; This is an attempt to guard against data modification or "
1237 . "destruction due to unattended computers.&nbsp; If the password entered is incorrect, the user "
1238 . "will be automatically logged out.";
1239
1240 return($rv);
1241 }
1242 //--------------------------------------------------------------------------------------------------------------
1243 //--------------------------------------------------------------------------------------------------------------
1244 function RSCS_idx_validate_a(
1245 $field_val_in, //Value to be considered.
1246 $action_in, //"A" for add or "M" for modify.
1247 &$field_val_out, //May be sanitized.
1248 &$errors_out, //Appended errors.
1249 &$warnings_out //Appended warnings
1250 )
1251 {
1252 //Restrict the field value in to just digits.
1253 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, "0123456789", 12);
1254
1255 //See if can pack it into an integer. Errors create "0", which will fail as a commit
1256 //attempt.
1257 if (is_numeric($field_val_in))
1258 {
1259 $field_val_in = (int)$field_val_in;
1260 if ($field_val_in < 0)
1261 $field_val_in = 0;
1262 }
1263 else
1264 {
1265 $field_val_in = 0;
1266 }
1267
1268 //If the value is 0, this is suspicious.
1269 if ($field_val_in == 0)
1270 {
1271 $errors_out[] = "The <i>idx</i> field is not a valid integer index.";
1272 }
1273
1274 //Return the sanitized output.
1275 $field_val_out = (string)$field_val_in;
1276 }
1277 //--------------------------------------------------------------------------------------------------------------
1278 function RSCS_type_validate_a(
1279 $field_val_in, //Value to be considered.
1280 $action_in, //"A" for add or "M" for modify.
1281 &$field_val_out, //May be sanitized.
1282 &$errors_out, //Appended errors.
1283 &$warnings_out //Appended warnings
1284 )
1285 {
1286 //Restrict the field value in to just one digit.
1287 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, "0123456789", 1);
1288
1289 //See if can pack it into an integer. Errors create "-1", which will fail as a commit
1290 //attempt.
1291 if (is_numeric($field_val_in))
1292 {
1293 $field_val_in = (int)$field_val_in;
1294 if ($field_val_in < 0)
1295 $field_val_in = -1;
1296 }
1297 else
1298 {
1299 $field_val_in = -1;
1300 }
1301
1302 //If the value is -1, this is suspicious.
1303 if ($field_val_in == -1)
1304 {
1305 $errors_out[] = "The <i>type</i> field is not a valid integer type.";
1306 }
1307 else if (
1308 ($field_val_in != RSCS_TYPE_AIRCRAFT)
1309 &&
1310 ($field_val_in != RSCS_TYPE_SIMULATOR)
1311 &&
1312 ($field_val_in != RSCS_TYPE_FLIGHTINSTRUCTOR)
1313 )
1314 {
1315 //This isn't an allowed value.
1316 $errors_out[] = "The <i>type</i> field is not a valid type (aircraft, simulator, or flight instructor).";
1317 }
1318
1319 //Return the sanitized output.
1320 $field_val_out = (string)$field_val_in;
1321 }
1322 //--------------------------------------------------------------------------------------------------------------
1323 function RSCS_status_validate_a(
1324 $field_val_in, //Value to be considered.
1325 $action_in, //"A" for add or "M" for modify.
1326 &$field_val_out, //May be sanitized.
1327 &$errors_out, //Appended errors.
1328 &$warnings_out //Appended warnings
1329 )
1330 {
1331 //Restrict the field value in to just one digit.
1332 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, "0123456789", 1);
1333
1334 //See if can pack it into an integer. Errors create "-1", which will fail as a commit
1335 //attempt.
1336 if (is_numeric($field_val_in))
1337 {
1338 $field_val_in = (int)$field_val_in;
1339 if ($field_val_in < 0)
1340 $field_val_in = -1;
1341 }
1342 else
1343 {
1344 $field_val_in = -1;
1345 }
1346
1347 //If the value is -1, this is suspicious.
1348 if ($field_val_in == -1)
1349 {
1350 $errors_out[] = "The <i>status</i> field is not a valid integer.";
1351 }
1352 else if (
1353 ($field_val_in != RSCS_STATUS_OFFLINE)
1354 &&
1355 ($field_val_in != RSCS_STATUS_ONLINE)
1356 )
1357 {
1358 //This isn't an allowed value.
1359 $errors_out[] = "The <i>status</i> field is not a valid integer (offline or online).";
1360 }
1361
1362 //Return the sanitized output.
1363 $field_val_out = (string)$field_val_in;
1364 }
1365 //--------------------------------------------------------------------------------------------------------------
1366 function RSCS_disporder_validate_a(
1367 $field_val_in, //Value to be considered.
1368 $action_in, //"A" for add or "M" for modify.
1369 &$field_val_out, //May be sanitized.
1370 &$errors_out, //Appended errors.
1371 &$warnings_out //Appended warnings
1372 )
1373 {
1374 //Restrict the field value in to 12 digits.
1375 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, "0123456789", 12);
1376
1377 //See if can pack it into an integer. Errors create "0", which is acceptable for disporder.
1378 if (is_numeric($field_val_in))
1379 {
1380 $field_val_in = (int)$field_val_in;
1381 if ($field_val_in <= 0)
1382 $field_val_in = -1;
1383 }
1384 else
1385 {
1386 $field_val_in = -1;
1387 }
1388
1389 //If the value is -1, this means an error was encountered.
1390 if ($field_val_in == -1)
1391 {
1392 $errors_out[] = "The <i>disporder</i> field is not a valid positive integer.";
1393 $field_val_in = 1;
1394 }
1395
1396 //Return the sanitized output.
1397 $field_val_out = (string)$field_val_in;
1398 }
1399 //--------------------------------------------------------------------------------------------------------------
1400 function RSCS_initials_validate_a(
1401 $field_val_in, //Value to be considered.
1402 $action_in, //"A" for add or "M" for modify.
1403 &$field_val_out, //May be sanitized.
1404 &$errors_out, //Appended errors.
1405 &$warnings_out //Appended warnings
1406 )
1407 {
1408 //Restrict the field value in a set of characters and to 25 characters.
1409 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, RSCS_INITIALS_ALLOWEDCHARS, 25);
1410
1411 //Trim both sides.
1412 $field_val_in = Trim($field_val_in);
1413
1414 //The only error is if this is zero length.
1415 if (strlen($field_val_in) == 0)
1416 {
1417 $errors_out[] = "The <i>initials</i> field may not be left blank.";
1418 }
1419
1420 //Return the sanitized output.
1421 $field_val_out = (string)$field_val_in;
1422 }
1423 //--------------------------------------------------------------------------------------------------------------
1424 function RSCS_shortdesc_validate_a(
1425 $field_val_in, //Value to be considered.
1426 $action_in, //"A" for add or "M" for modify.
1427 &$field_val_out, //May be sanitized.
1428 &$errors_out, //Appended errors.
1429 &$warnings_out //Appended warnings
1430 )
1431 {
1432 //Restrict the field value in a set of characters and to 50 characters.
1433 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, RSCS_SHORTDESC_ALLOWEDCHARS, 50);
1434
1435 //Trim both sides.
1436 $field_val_in = Trim($field_val_in);
1437
1438 //The only error is if this is zero length.
1439 if (strlen($field_val_in) == 0)
1440 {
1441 $errors_out[] = "The <i>shortdesc</i> field may not be left blank.";
1442 }
1443
1444 //Return the sanitized output.
1445 $field_val_out = (string)$field_val_in;
1446 }
1447 //--------------------------------------------------------------------------------------------------------------
1448 function RSCS_longdesc_validate_a(
1449 $field_val_in, //Value to be considered.
1450 $action_in, //"A" for add or "M" for modify.
1451 &$field_val_out, //May be sanitized.
1452 &$errors_out, //Appended errors.
1453 &$warnings_out //Appended warnings
1454 )
1455 {
1456 //Restrict the field value in a set of characters and to 100 characters.
1457 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, RSCS_LONGDESC_ALLOWEDCHARS, 100);
1458
1459 //Trim both sides.
1460 $field_val_in = Trim($field_val_in);
1461
1462 //The only error is if this is zero length.
1463 if (strlen($field_val_in) == 0)
1464 {
1465 $errors_out[] = "The <i>longdesc</i> field may not be left blank.";
1466 }
1467
1468 //Return the sanitized output.
1469 $field_val_out = (string)$field_val_in;
1470 }
1471 //--------------------------------------------------------------------------------------------------------------
1472 function RSCS_schedaheadhrs_validate_a(
1473 $field_val_in, //Value to be considered.
1474 $action_in, //"A" for add or "M" for modify.
1475 &$field_val_out, //May be sanitized.
1476 &$errors_out, //Appended errors.
1477 &$warnings_out //Appended warnings
1478 )
1479 {
1480 //Restrict the field value in to 12 digits.
1481 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, "0123456789", 12);
1482
1483 //See if can pack it into an integer. Errors create "0", which is acceptable for schedaheadhrs.
1484 if (is_numeric($field_val_in))
1485 {
1486 $field_val_in = (int)$field_val_in;
1487 if ($field_val_in < 0)
1488 $field_val_in = -1;
1489 }
1490 else
1491 {
1492 $field_val_in = -1;
1493 }
1494
1495 //If the value is -1, this means an error was encountered.
1496 if ($field_val_in == -1)
1497 {
1498 $errors_out[] = "The <i>schedaheadhrs</i> field is not a valid non-negative integer.";
1499 $field_val_in = 0;
1500 }
1501
1502 //Return the sanitized output.
1503 $field_val_out = (string)$field_val_in;
1504 }
1505 //--------------------------------------------------------------------------------------------------------------
1506 function RSCS_usercorres_validate_a(
1507 $field_val_in, //Value to be considered.
1508 $action_in, //"A" for add or "M" for modify.
1509 &$field_val_out, //May be sanitized.
1510 &$errors_out, //Appended errors.
1511 &$warnings_out //Appended warnings
1512 )
1513 {
1514 //Restrict the field value in a set of characters and to 20 characters.
1515 $field_val_in = STRFUNC_force_stringtype_subset_truncate($field_val_in, "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", 20);
1516
1517 //Force the upper-case elements of the string to lower-case.
1518 $field_val_in = StrToLower($field_val_in);
1519
1520 if (strlen($field_val_in) == 0)
1521 {
1522 //The string length seems to be zero. This may be a synonym for "no linked user". Just
1523 //say "0".
1524 $field_val_out = "0";
1525 return;
1526 }
1527 else if ($field_val_in == "0")
1528 {
1529 //"0".
1530 $field_val_out = "0";
1531 return;
1532 }
1533 else
1534 {
1535 if (! USRS_userid_membership_test($field_val_in))
1536 {
1537 $errors_out[] = "The <i>usercorres</i> cannot be parsed.";
1538 $field_val_out = "0";
1539 return;
1540 }
1541
1542 //See if this is a user.
1543 $result = USRS_userid_idx_map($field_val_in);
1544 if ($result === FALSE)
1545 {
1546 //No such user can be found. This is an error.
1547 $errors_out[] = "The <i>usercorres</i> user <i>" . $field_val_in . "</i> does not exist.";
1548 $field_val_out = "0";
1549 return;
1550 }
1551 else
1552 {
1553 //User found.
1554 $field_val_out = (string)$result;
1555 return;
1556 }
1557 }
1558 }
1559 //--------------------------------------------------------------------------------------------------------------
1560 //Given a comma-separated list of integers (direct from the schedalonerscs), and an associative array
1561 //of resources indexed by idx then field, creates a comma-separated list of short descriptors. Used to format resources
1562 //for display of what each user is allowed to rent without an instructor. Any indices that don't correspond
1563 //to resources are just ignored.
1564 //
1565 function RSCS_csl_to_short_rscs_list_a($csl_in, $rscs_in)
1566 {
1567 //If the resource list is non-existent, can't do much, anyway.
1568 if ($rscs_in === FALSE)
1569 return("");
1570
1571 $exploded_list = CSL_csl_to_string_array($csl_in);
1572
1573 if ($exploded_list === FALSE)
1574 {
1575 return("");
1576 }
1577
1578 $rv = "";
1579
1580 for ($i=0; $i<count($exploded_list); $i++)
1581 {
1582 $index = (int)$exploded_list[$i];
1583
1584 if (isset($rscs_in[$index]["initials"]))
1585 {
1586 $rv = $rv
1587 . $rscs_in[$index]["initials"]
1588 . ", ";
1589 }
1590 }
1591
1592 //If we're here, we just need to remove the final two characters.
1593 $rv = SubStr($rv, 0, strlen($rv) - 2);
1594
1595 return($rv);
1596 }
1597 //
1598 //--------------------------------------------------------------------------------------------------------------
1599 //End of $RCSfile: rscsx.inc,v $.
1600 //--------------------------------------------------------------------------------------------------------------
1601 ?>

dashley@gmail.com
ViewVC Help
Powered by ViewVC 1.1.25