jmemberentry.pl

   1 #!/usr/bin/perl
   2
   3 #script to set up screen for modification of borrower details
   4 #written 20/12/99 by chris@katipo.co.nz
   5
   6
   7 # Copyright 2000-2002 Katipo Communications
   8 #
   9 # This file is part of Koha.
  10 #
  11 # Koha is free software; you can redistribute it and/or modify it under the
  12 # terms of the GNU General Public License as published by the Free Software
  13 # Foundation; either version 2 of the License, or (at your option) any later
  14 # version.
  15 #
  16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  18 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  19 #
  20 # You should have received a copy of the GNU General Public License along with
  21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  22 # Suite 330, Boston, MA  02111-1307 USA
  23
  24 use strict;
  25 use C4::Output;
  26 use CGI;
  27 use C4::Search;
  28
  29
  30 my $input = new CGI;
  31 my $member=$input->param('bornum');
  32 if ($member eq ''){
  33   $member=NewBorrowerNumber();
  34 }
  35 my $type=$input->param('type');
  36
  37 print $input->header;
  38 print startpage();
  39 print startmenu('member');
  40 my $data=borrdata('',$member);
  41 print <<printend
  42 <BLOCKQUOTE>
  43
  44 <FONT SIZE=6><em>Add New Junior Member </em></font><br>
  45 <form action=/cgi-bin/koha/newjmember.pl method=post>
  46 <!--<input type=hidden name=joining value="">
  47 <input type=hidden name=expiry value="">
  48 <input type=hidden name=type value="borrowers">-->
  49 <input type=hidden name=borrowernumber value=$member>
  50 <input type=hidden name=updtype value=I>
  51 <input type=hidden name=area value="$data->{'area'}">
  52 <input type=hidden name=city value="$data->{'city'}">
  53 <input type=hidden name=street value="$data->{'address'}">
  54 <input type=hidden name=streetaddress value="$data->{'streetaddress'}">
  55 <input type=hidden name=streetcity value="$data->{'streetcity'}">
  56 <input type=hidden name=phone value="$data->{'phone'}">
  57 <input type=hidden name=phoneday value="$data->{'phoneday'}">
  58
  59 <input type=hidden name=faxnumber value="$data->{'faxnumber'}">
  60 <input type=hidden name=emailaddress value="$data->{'emailaddress'}">
  61 <input type=hidden name=contactname value="$data->{'contactname'}">
  62 <input type=hidden name=altphone value"$data->{'altphone'}">
  63 <table border=0 cellspacing=0 cellpadding=5 >
  64
  65
  66 <tr valign=top><td  COLSPAN=1><input type=reset value="Clear all Fields"></td></tr>
  67 <tr valign=top bgcolor="99cc33" ><td  COLSPAN=5 background="/images/background-mem.gif">
  68 <tr valign=top bgcolor="99cc33" ><td  COLSPAN=5 background="/images/background-mem.gif">
  69 <B>PARENT OR GUARDIAN </b></td></tr>
  70 <tr valign=top bgcolor=white>
  71 <td><SELECT NAME="title" SIZE="1">
  72 <OPTION value=" ">No Title
  73 <OPTION value=Miss
  74 printend
  75 ;
  76 if ($data->{'title'} eq 'Miss'){
  77   print " Selected";
  78 }
  79 print ">Miss
  80 <OPTION value=Mrs";
  81 if ($data->{'title'} eq 'Mrs'){
  82   print " Selected";
  83 }
  84 print ">Mrs
  85 <OPTION value=Ms";
  86 if ($data->{'title'} eq 'Ms'){
  87   print " Selected";
  88 }
  89 print ">Ms
  90 <OPTION value=Mr";
  91 if ($data->{'title'} eq 'Mr'){
  92   print " Selected";
  93 }
  94 print ">Mr
  95 <OPTION value=Dr";
  96 if ($data->{'title'} eq 'Dr'){
  97   print " Selected";
  98 }
  99 print ">Dr
 100 <OPTION value=Sir";
 101 if ($data->{'title'} eq 'Sir'){
 102   print " Selected";
 103 }
 104 print <<printend
 105             >Sir
 106 </SELECT>
 107 </td>
 108
 109
 110 <td><input type=text name=firstname_guardian size=20 value="$data->{'firstname'}"></td>
 111 <td colspan=2><input type=text name=surname_guardian size=20 value="$data->{'surname'}"></td>
 112 <td><input type=text name=guardian_number size=20 value="$data->{'cardnumber'}"></td></tr>
 113 <tr valign=top bgcolor=white>
 114 <td><FONT SIZE=2>Title</FONT></td>
 115
 116 <td><FONT SIZE=2>Given Names*</FONT></td>
 117 <td colspan=2><FONT SIZE=2>Surname*</FONT></td>
 118 <td><FONT SIZE=2>Membership No.</FONT></td>
 119 </tr>
 120
 121 <tr><td>&nbsp; </TD></TR>
 122
 123 printend
 124 ;
 125 my $cmember1=NewBorrowerNumber();
 126 for (my $i=0;$i<3;$i++){
 127 my $cmember=$cmember1+$i;
 128 my $count=$i+1;
 129 print <<printend
 130 <tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
 131 <B>CHILD $count </b></td></TR>
 132 <tr valign=top></tr>
 133
 134 <TR><td  COLSPAN=4   ALIGN=RIGHT ><font size=3 face='arial,helvetica'>
 135 <STRONG>Member# $cmember,   Card Number*</STRONG> </TD><TD><input type=text name=cardnumber_child_$i size=20 value=""><br>
 136 <input type=hidden name=bornumber_child_$i value=$cmember>
 137 </td></TR>
 138 <tr  bgcolor=white>
 139
 140
 141 <td><input type=text name=firstname_child_$i size=20 value=""></td>
 142 <td><input type=text name=surname_child_$i size=20 value=""></td>
 143 <td>
 144 <input type=text name=dateofbirth_child_$i size=10 value="">
 145 </TD><TD>
 146  <input type="radio" name="sex_child_$i" value="F">F
 147  <input type="radio" name="sex_child_$i" value="M">M* </td>
 148  <TD align=right>
 149  <input type=text name=school_child_$i size=20 value="">
 150  </TD>
 151  </tr>
 152  <tr valign=top bgcolor=white>
 153  <td><FONT SIZE=2>Given Names*</FONT></td>
 154  <td><FONT SIZE=2>Surname*</FONT></td>
 155
 156  <td><FONT SIZE=2>Date of Birth<BR> (dd/mm/yy)*</FONT></td>
 157  <td><FONT SIZE=2>&nbsp;</FONT></td>
 158  <td><FONT SIZE=2>School</FONT></td></tr>
 159
 160
 161
 162
 163  <tr valign=top bgcolor=white>
 164
 165  <td  COLSPAN=5><textarea name=altnotes_child_$i wrap=physical cols=70 rows=3></textarea></td></tr><tr valign=top bgcolor=white>
 166
 167  <td><FONT SIZE=2>Notes</font></td>
 168  </tr>
 169  <tr><td>&nbsp; </TD></TR>
 170 printend
 171 ;
 172 }
 173 print <<printend
 174    <tr valign=top bgcolor=white><td  COLSPAN=5 align=right >
 175    <input type=image src="/images/save-changes.gif"  WIDTH=188  HEIGHT=44  ALT="Add New Member" border=0 ></td>
 176    </tr>
 177    </TABLE>
 178    </table>
 179
 180
 181 printend
 182 ;
 183 print endmenu('member');
 184 print endpage();