imemberentry.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 use strict;
   7 use C4::Output;
   8 use CGI;
   9 use C4::Search;
  10
  11
  12 my $input = new CGI;
  13 my $member=$input->param('bornum');
  14 if ($member eq ''){
  15   $member=NewBorrowerNumber();
  16 }
  17 my $type=$input->param('type');
  18
  19 print $input->header;
  20 print startpage();
  21 print startmenu('member');
  22 my $data=borrdata('',$member);
  23 print <<printend
  24 <BLOCKQUOTE>
  25
  26 <FONT SIZE=6><em>Add New Institution</em></FONT><br>
  27 <form action=/cgi-bin/koha/newimember.pl method=post>
  28 <input type=hidden name=joining value="">
  29 <input type=hidden name=expiry value="">
  30 <input type=hidden name=type value="borrowers">
  31 <input type=hidden name=borrowernumber value="$member">
  32 <input type=hidden name=updtype value=I>
  33 <table border=0 cellspacing=0 cellpadding=5 >
  34
  35
  36 <tr valign=top><td ><input type=reset value="Clear all Fields"></td></tr><tr>
  37 <TR align=right><td  COLSPAN=2   ALIGN=RIGHT ><font size=3 face='arial,helvetica'>
  38 <STRONG>Member# $member,   Card Number*</STRONG> </TD><TD align=right><input type=text name=cardnumber_institution size=20 value=" "><br>
  39 </td></TR>
  40 <tr><td>&nbsp; </TD></TR>
  41
  42 <tr valign=top bgcolor="99cc33" ><td  COLSPAN=5 background="/images/background-mem.gif">
  43 <B>INSTITUTION DETAILS</b></td> <td  COLSPAN=2  ALIGN=RIGHT background="/images/background-mem.gif">
  44
  45 </td></tr>
  46 <tr valign=top bgcolor=white>
  47
  48 <td colspan=3><input type=text name=institution_name size=50 value=""></td>
  49 </tr>
  50 <tr valign=top bgcolor=white>
  51
  52 <td><FONT SIZE=2>Institution Name</FONT></td>
  53 </tr>
  54
  55 <tr><td>&nbsp; </TD></TR>
  56
  57
  58         <tr valign=top bgcolor="99cc33" ><td  COLSPAN=5 background="/images/background-mem.gif">
  59         <B>INSTITUTION ADDRESS</b></td></tr>
  60         <tr valign=top bgcolor=white>
  61         <td><input type=text name=address size=40 value="">
  62         <td><input type=text name=city size=20 value=""></td>
  63         <td>
  64         <SELECT NAME="area" SIZE="1">
  65         <OPTION value=L
  66
  67         >L - Levin
  68         <OPTION value=F>F - Foxton
  69         <OPTION value=S>S - Shannon
  70         <OPTION value=H>H - Horowhenua
  71         <OPTION value=K>K - Kapiti
  72         <OPTION value=O>O - Out of District
  73         <OPTION value=X>X - Temporary Visitor
  74         <OPTION value=Z>Z - Interloan Libraries
  75         <OPTION value=V>V - Villlage</SELECT></td></tr>
  76         <tr valign=top bgcolor=white>
  77         <td ><FONT SIZE=2>Postal Address*</FONT></td>
  78         <td><FONT SIZE=2>Town*</FONT></td>
  79         <td><FONT SIZE=2>Area</FONT></td>
  80         </tr>
  81         <tr><td>&nbsp; </TD></TR>
  82         <tr valign=top bgcolor="99cc33"  ><td  COLSPAN=5  background="/images/background-mem.gif">
  83         <B>CONTACT DETAILS</b></td></tr>
  84         <tr valign=top bgcolor=white>
  85         <td   COLSPAN=3 ><input type=text name=contactname size=40 value=""></td>
  86         </tr>
  87
  88         <tr valign=top bgcolor=white>
  89         <td   COLSPAN=3 ><FONT SIZE=2>Contact Name*</td></tr>
  90
  91         <tr valign=top bgcolor=white>
  92
  93         <td ><input type=text name=phoneday size=20 value=""></td>
  94         <td><input type=text name=faxnumber size=20 value=""></td>
  95         <td ><input type=text name=emailaddress size=20 value=""></td></tr>
  96
  97         <tr valign=top bgcolor=white>
  98
  99         <td><FONT SIZE=2>Phone (day)</td>
 100         <td><FONT SIZE=2>Fax</td>
 101         <td><FONT SIZE=2>Email</td></tr>
 102         <tr><td>&nbsp; </TD></TR>
 103
 104
 105         <tr valign=top bgcolor=white>
 106
 107
 108         <td  COLSPAN=4><textarea name=altnotes wrap=physical cols=70 rows=3></textarea></td></tr>
 109         </tr>
 110         <tr valign=top bgcolor=white>
 111         <td><FONT SIZE=2>Notes</font></td></tr>
 112         <tr><td>&nbsp; </TD></TR>
 113
 114
 115         <tr valign=top bgcolor="99cc33"  >
 116
 117         <td  COLSPAN=5  background="/images/background-mem.gif"><B>LIBRARY USE</B></td>
 118         </tr>
 119
 120
 121         <tr valign=top >
 122
 123
 124         <td  COLSPAN=5><textarea name=borrowernotes wrap=physical cols=70 rows=3></textarea></td></tr>
 125         <tr><td>&nbsp; </TD></TR>
 126         <tr valign=top bgcolor=white>
 127         <td ><FONT SIZE=2>Notes</font></td>
 128         </tr><tr valign=top bgcolor=white>
 129
 130
 131         <td  COLSPAN=5 align=right >
 132         <input type=image src="/images/save-changes.gif"  WIDTH=188  HEIGHT=44  ALT="Add New Member" border=0 ></td>
 133         </tr>
 134         </TABLE>
 135         </table>
 136                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 </form>
 137
 138
 139
 140                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 <br clear=all>
 141
 142                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 <p> &nbsp; </p>
 143
 144
 145 printend
 146 ;
 147 print endmenu('member');
 148 print endpage();