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
   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 Institution</em></FONT><br>
  45 <form action=/cgi-bin/koha/newimember.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 <table border=0 cellspacing=0 cellpadding=5 >
  52
  53
  54 <tr valign=top><td ><input type=reset value="Clear all Fields"></td></tr><tr>
  55 <TR align=right><td  COLSPAN=2   ALIGN=RIGHT ><font size=3 face='arial,helvetica'>
  56 <STRONG>Member# $member,   Card Number*</STRONG> </TD><TD align=right><input type=text name=cardnumber_institution size=20 value=" "><br>
  57 </td></TR>
  58 <tr><td>&nbsp; </TD></TR>
  59
  60 <tr valign=top bgcolor="99cc33" ><td  COLSPAN=5 background="/images/background-mem.gif">
  61 <B>INSTITUTION DETAILS</b></td> <td  COLSPAN=2  ALIGN=RIGHT background="/images/background-mem.gif">
  62
  63 </td></tr>
  64 <tr valign=top bgcolor=white>
  65
  66 <td colspan=3><input type=text name=institution_name size=50 value=""></td>
  67 </tr>
  68 <tr valign=top bgcolor=white>
  69
  70 <td><FONT SIZE=2>Institution Name</FONT></td>
  71 </tr>
  72
  73 <tr><td>&nbsp; </TD></TR>
  74
  75
  76         <tr valign=top bgcolor="99cc33" ><td  COLSPAN=5 background="/images/background-mem.gif">
  77         <B>INSTITUTION ADDRESS</b></td></tr>
  78         <tr valign=top bgcolor=white>
  79         <td><input type=text name=address size=40 value="">
  80         <td><input type=text name=city size=20 value=""></td>
  81         <td>
  82         <SELECT NAME="area" SIZE="1">
  83         <OPTION value=L
  84
  85         >L - Levin
  86         <OPTION value=F>F - Foxton
  87         <OPTION value=S>S - Shannon
  88         <OPTION value=H>H - Horowhenua
  89         <OPTION value=K>K - Kapiti
  90         <OPTION value=O>O - Out of District
  91         <OPTION value=X>X - Temporary Visitor
  92         <OPTION value=Z>Z - Interloan Libraries
  93         <OPTION value=V>V - Villlage</SELECT></td></tr>
  94         <tr valign=top bgcolor=white>
  95         <td ><FONT SIZE=2>Postal Address*</FONT></td>
  96         <td><FONT SIZE=2>Town*</FONT></td>
  97         <td><FONT SIZE=2>Area</FONT></td>
  98         </tr>
  99         <tr><td>&nbsp; </TD></TR>
 100         <tr valign=top bgcolor="99cc33"  ><td  COLSPAN=5  background="/images/background-mem.gif">
 101         <B>CONTACT DETAILS</b></td></tr>
 102         <tr valign=top bgcolor=white>
 103         <td   COLSPAN=3 ><input type=text name=contactname size=40 value=""></td>
 104         </tr>
 105
 106         <tr valign=top bgcolor=white>
 107         <td   COLSPAN=3 ><FONT SIZE=2>Contact Name*</td></tr>
 108
 109         <tr valign=top bgcolor=white>
 110
 111         <td ><input type=text name=phoneday size=20 value=""></td>
 112         <td><input type=text name=faxnumber size=20 value=""></td>
 113         <td ><input type=text name=emailaddress size=20 value=""></td></tr>
 114
 115         <tr valign=top bgcolor=white>
 116
 117         <td><FONT SIZE=2>Phone (day)</td>
 118         <td><FONT SIZE=2>Fax</td>
 119         <td><FONT SIZE=2>Email</td></tr>
 120         <tr><td>&nbsp; </TD></TR>
 121
 122
 123         <tr valign=top bgcolor=white>
 124
 125
 126         <td  COLSPAN=4><textarea name=altnotes wrap=physical cols=70 rows=3></textarea></td></tr>
 127         </tr>
 128         <tr valign=top bgcolor=white>
 129         <td><FONT SIZE=2>Notes</font></td></tr>
 130         <tr><td>&nbsp; </TD></TR>
 131
 132
 133         <tr valign=top bgcolor="99cc33"  >
 134
 135         <td  COLSPAN=5  background="/images/background-mem.gif"><B>LIBRARY USE</B></td>
 136         </tr>
 137
 138
 139         <tr valign=top >
 140
 141
 142         <td  COLSPAN=5><textarea name=borrowernotes wrap=physical cols=70 rows=3></textarea></td></tr>
 143         <tr><td>&nbsp; </TD></TR>
 144         <tr valign=top bgcolor=white>
 145         <td ><FONT SIZE=2>Notes</font></td>
 146         </tr><tr valign=top bgcolor=white>
 147
 148
 149         <td  COLSPAN=5 align=right >
 150         <input type=image src="/images/save-changes.gif"  WIDTH=188  HEIGHT=44  ALT="Add New Member" border=0 ></td>
 151         </tr>
 152         </TABLE>
 153         </table>
 154                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 </form>
 155
 156
 157
 158                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 <br clear=all>
 159
 160                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 <p> &nbsp; </p>
 161
 162
 163 printend
 164 ;
 165 print endmenu('member');
 166 print endpage();