Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 149 lines (108 sloc) 6.572 kb
#script to set up screen for modification of borrower details
#written 20/12/99 by
use strict;
use C4::Output;
use CGI;
use C4::Search;
my $input = new CGI;
my $member=$input->param('bornum');
if ($member eq ''){
my $type=$input->param('type');
print $input->header;
print startpage();
print startmenu('member');
my $data=borrdata('',$member);
print <<printend
<FONT SIZE=6><em>Add New Institution</em></FONT><br>
<form action=/cgi-bin/koha/ method=post>
<input type=hidden name=joining value="">
<input type=hidden name=expiry value="">
<input type=hidden name=type value="borrowers">
<input type=hidden name=borrowernumber value="$member">
<input type=hidden name=updtype value=I>
<table border=0 cellspacing=0 cellpadding=5 >
<tr valign=top><td ><input type=reset value="Clear all Fields"></td></tr><tr>
<TR align=right><td COLSPAN=2 ALIGN=RIGHT ><font size=3 face='arial,helvetica'>
<STRONG>Member# $member, Card Number*</STRONG> </TD><TD align=right><input type=text name=cardnumber_institution size=20 value=" "><br>
<tr><td>&nbsp; </TD></TR>
<tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
<B>INSTITUTION DETAILS</b></td> <td COLSPAN=2 ALIGN=RIGHT background="/images/background-mem.gif">
<tr valign=top bgcolor=white>
<td colspan=3><input type=text name=institution_name size=50 value=""></td>
<tr valign=top bgcolor=white>
<td><FONT SIZE=2>Institution Name</FONT></td>
<tr><td>&nbsp; </TD></TR>
<tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
<tr valign=top bgcolor=white>
<td><input type=text name=address size=40 value="">
<td><input type=text name=city size=20 value=""></td>
<SELECT NAME="area" SIZE="1">
<OPTION value=L
>L - Levin
<OPTION value=F>F - Foxton
<OPTION value=S>S - Shannon
<OPTION value=H>H - Horowhenua
<OPTION value=K>K - Kapiti
<OPTION value=O>O - Out of District
<OPTION value=X>X - Temporary Visitor
<OPTION value=Z>Z - Interloan Libraries
<OPTION value=V>V - Villlage</SELECT></td></tr>
<tr valign=top bgcolor=white>
<td ><FONT SIZE=2>Postal Address*</FONT></td>
<td><FONT SIZE=2>Town*</FONT></td>
<td><FONT SIZE=2>Area</FONT></td>
<tr><td>&nbsp; </TD></TR>
<tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
<B>CONTACT DETAILS</b></td></tr>
<tr valign=top bgcolor=white>
<td COLSPAN=3 ><input type=text name=contactname size=40 value=""></td>
<tr valign=top bgcolor=white>
<td COLSPAN=3 ><FONT SIZE=2>Contact Name*</td></tr>
<tr valign=top bgcolor=white>
<td ><input type=text name=phoneday size=20 value=""></td>
<td><input type=text name=faxnumber size=20 value=""></td>
<td ><input type=text name=emailaddress size=20 value=""></td></tr>
<tr valign=top bgcolor=white>
<td><FONT SIZE=2>Phone (day)</td>
<td><FONT SIZE=2>Fax</td>
<td><FONT SIZE=2>Email</td></tr>
<tr><td>&nbsp; </TD></TR>
<tr valign=top bgcolor=white>
<td COLSPAN=4><textarea name=altnotes wrap=physical cols=70 rows=3></textarea></td></tr>
<tr valign=top bgcolor=white>
<td><FONT SIZE=2>Notes</font></td></tr>
<tr><td>&nbsp; </TD></TR>
<tr valign=top bgcolor="99cc33" >
<td COLSPAN=5 background="/images/background-mem.gif"><B>LIBRARY USE</B></td>
<tr valign=top >
<td COLSPAN=5><textarea name=borrowernotes wrap=physical cols=70 rows=3></textarea></td></tr>
<tr><td>&nbsp; </TD></TR>
<tr valign=top bgcolor=white>
<td ><FONT SIZE=2>Notes</font></td>
</tr><tr valign=top bgcolor=white>
<td COLSPAN=5 align=right >
<input type=image src="/images/save-changes.gif" WIDTH=188 HEIGHT=44 ALT="Add New Member" border=0 ></td>
<br clear=all>
<p> &nbsp; </p>
print endmenu('member');
print endpage();
Jump to Line
Something went wrong with that request. Please try again.