Odyssey
cualtroutes.prg
1 <?php
2 $monLibrary= dirname(__FILE__) . "/../library";
3 require_once("$monLibrary/cu_top.i");
4 require_once("$monLibrary/ck_hticket.i");
5 
6 
7  if (!CheckPerm($link, $Hu, basename($_SERVER['SCRIPT_NAME']), $_SERVER['REMOTE_ADDR'])) {
8  // ** Permissions failed
9  // ** redirect to new page
10  header("Location: /hcuadm/hcu_noperm.prg");
11  exit;
12  }
13 
14 $dms_ok=array('act'=>'string','cu'=>'string','route'=>'digits');
15 
16 dms_import($dms_ok);
17 
18 $self = $_SERVER['PHP_SELF'];
19 
20  switch ($act){
21  case "delete":
22  case "show":
23  case "save":
24  break;
25  default:
26  $act = "show";
27  }
28 if (!isset($cu)) $act = "getcu";
29 $cu = strtoupper($cu);
30 
31  switch ($act){
32 #
33  case "getcu":
34  // Enter a cu code
35  cu_header("CU Alternate R&amp;T Numbers");
36  print <<< EOF
37  <form name="cucode" method="post" action="$self?act=show">
38  <input type="hidden" name="act" value="show">
39  <br>
40  <table width="350" border=0 cellpadding=0 cellspacing=0 align='center'>
41  <tr>
42  <td colspan="2" class="hdrc" align="center">
43  View CU Alternate R&amp;T Numbers
44  </td>
45  </tr>
46  <tr>
47  <td class="dtlr">
48  Credit Union:
49  </td>
50  <td class="dtll">
51  <input type="text" name="cu" value="" size="12" maxlength="12">
52  </td>
53  </tr>
54  <tr>
55  <td colspan="2" class="dtl"><hr></td>
56  </tr>
57  <tr>
58  <td class="dtl">&nbsp;</td>
59  <td class="dtll">
60  <input type="submit" value="Show &nbsp;&gt;&gt;" name="btnStmnt">
61  </td>
62  </tr>
63  </table></form>
64  <script language="javascript">
65  <!--
66  document.forms[0].cu.focus();
67  // -->
68  </script>
69 EOF;
70 
71  break;
72 #
73  case "delete": // Delete existing
74  if (trim($route) == '') { $form_err = "Can't Delete Blank R&amp;T Number"; }
75  if (trim($form_err) == "") {
76  $query = "delete from cualtroute where cu = '$cu'
77  and rt = '$route'";
78  $result = db_query($query, $link);
79  if ($result) {
80  $form_err = "R&amp;T $route Deleted";
81  } else {
82  $form_err = "Error encountered Deleting R&amp;T with sql $query";
83  }
84  }
85  break;
86  case "save":
87  if (trim($route) == '') { $form_err = "Can't Add Blank R&amp;T"; }
88  if (preg_match("/\D/",$route)) { $form_err = "R&amp;T must be numeric"; }
89  if (trim($form_err) == "") {
90  $query = "insert into cualtroute values ('$cu','$route')";
91  $result = db_query($query, $link);
92  if ($result) {
93  $form_err = "R&amp;T $route Added";
94  } else {
95  $form_err = "Error encountered Adding R&amp;T with sql $query";
96  }
97  }
98  break;
99  }
100 if ($act != 'getcu') {
101 # Fall through for 'show' or if nothing else picked
102 
103  $query = "select * from cualtroute where cu = '$cu'";
104  $result = db_query($query, $link);
105 
106  $num_rows = db_num_rows($result);
107 
108  $query = "select rt, count(*) from cuovermicr where cu = '$cu'
109  group by rt";
110  $cnt_res = db_query($query, $link);
111 
112  $used=array();
113  for ($row=0;list($usedrt, $count) =
114  db_fetch_array($cnt_res,$row); $row++) {
115  $usedrt = trim($usedrt);
116  $used["$usedrt"]++;
117  }
118 
119 
120  cu_header("CU Alternate R&amp;T");
121 
122  print <<<EOF
123  <div align='right'>
124  <form name='clwin'>
125  <script language='JavaScript'>
126 <!--
127  if (window.close)
128  document.write('<input type=\"button\" value=\"Close Window\" onClick=\"window.close()\">');
129  //-->
130 </script>
131  </form>&nbsp;</div>
132  <form name='rtform' action="$self?act=save" method="post">
133  <center>
134  <table cellpadding="1" cellspacing="0" border="0" width="350">
135  <tr>
136  <td colspan="3" class="hdrc">$cu Alternate R&amp;T
137  </td>
138  </tr>
139  <tr><td class='dtll' colspan='3'><font color='red'>$form_err</font></td></tr>
140  <tr>
141  <td class="dtlr">
142  Add R&amp;T Number:
143  </td>
144  <td class='dtll'>
145  <input type="hidden" name="cu" value="$cu">
146  <input type="text" name="route" size="15" maxlength="9" value="">
147  <td class='dtlc'>
148  <input type="submit" name="Save" Value="Save">
149  </td>
150  </tr>
151 EOF;
152 if ($result) {
153  print "<tr><td class='hdrc' colspan='3'><hr></td></tr>";
154  for ($row=0;list($cu, $route) = db_fetch_array($result,$row); $row++) {
155  $cu = trim($cu);
156  $route = trim($route);
157  print "<tr>
158  <td class='dtlr'>";
159  if ($used["$route"]) {
160  print "[In Use]&nbsp;";
161  } else {
162  print
163  "<a href='$self?act=delete&cu=$cu&route=$route'>Remove</a>&nbsp;";
164  }
165  print "</td>
166  <td nowrap class='dtll'> $route </td>
167  <td class='dtlr'>&nbsp;</td>
168  </tr>";
169  }
170 }
171  print <<<EOF
172  </table>
173  </form>
174  </body>
175 </html>
176 EOF;
177 
178 }