#!/usr/bin/perl
+# NOTE: standard 8-space tabs here
#script to set up screen for modification of borrower details
#written 20/12/99 by chris@katipo.co.nz
# Suite 330, Boston, MA 02111-1307 USA
use strict;
+use C4::Auth;
use C4::Output;
use CGI;
use C4::Search;
-
+use C4::Interface::CGI::Output;
+use C4::Koha;
+use HTML::Template;
+use C4::Members;
+use C4::Date;
my $input = new CGI;
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/imemberentry.tmpl",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {borrowers => 1},
+ debug => 1,
+ });
+
+
my $member=$input->param('bornum');
if ($member eq ''){
$member=NewBorrowerNumber();
}
my $type=$input->param('type');
-print $input->header;
-print startpage();
-print startmenu('member');
my $data=borrdata('',$member);
-print <<printend
-<BLOCKQUOTE>
-
-<FONT SIZE=6><em>Add New Institution</em></FONT><br>
-<form action=/cgi-bin/koha/newimember.pl 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>
-</td></TR>
-<tr><td> </TD></TR>
+my $cardnumber=C4::Members::fixup_cardnumber($data->{'cardnumber'});
-<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">
-
-</td></tr>
-<tr valign=top bgcolor=white>
-
-<td colspan=3><input type=text name=institution_name size=50 value=""></td>
-</tr>
-<tr valign=top bgcolor=white>
-
-<td><FONT SIZE=2>Institution Name</FONT></td>
-</tr>
-
-<tr><td> </TD></TR>
-
-
- <tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
- <B>INSTITUTION ADDRESS</b></td></tr>
- <tr valign=top bgcolor=white>
- <td><input type=text name=address size=40 value="">
- <td><input type=text name=city size=20 value=""></td>
- <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>
- <tr><td> </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>
-
- <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> </TD></TR>
-
-
- <tr valign=top bgcolor=white>
-
-
- <td COLSPAN=4><textarea name=altnotes wrap=physical cols=70 rows=3></textarea></td></tr>
- </tr>
- <tr valign=top bgcolor=white>
- <td><FONT SIZE=2>Notes</font></td></tr>
- <tr><td> </TD></TR>
-
-
- <tr valign=top bgcolor="99cc33" >
-
- <td COLSPAN=5 background="/images/background-mem.gif"><B>LIBRARY USE</B></td>
- </tr>
-
-
- <tr valign=top >
-
-
- <td COLSPAN=5><textarea name=borrowernotes wrap=physical cols=70 rows=3></textarea></td></tr>
- <tr><td> </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>
- </tr>
- </TABLE>
- </table>
- </form>
-
-
-
- <br clear=all>
-
- <p> </p>
-
-
-printend
-;
-print endmenu('member');
-print endpage();
+my @branches;
+my @select_branch;
+my %select_branches;
+my $branches=getbranches();
+foreach my $branch (keys %$branches) {
+ push @select_branch, $branch;
+ $select_branches{$branch} = $branches->{$branch}->{'branchname'};
+}
+my $CGIbranch=CGI::scrolling_list( -name => 'branchcode',
+ -values => \@select_branch,
+ -default => $data->{'branchcode'},
+ -labels => \%select_branches,
+ -size => 1,
+ -multiple => 0 );
+
+$template->param(member => $member,
+ member => $member,
+ address => $data->{'streetaddress'},
+ firstname => $data->{'firstname'},
+ surname => $data->{'surname'},
+ othernames => $data->{'othernames'},
+ streetaddress => $data->{'streetaddress'},
+ streetcity => $data->{'streetcity'},
+ zipcode => $data->{'zipcode'},
+ homezipcode => $data->{'homezipcode'},
+ city => $data->{'city'},
+ phone => $data->{'phone'},
+ phoneday => $data->{'phoneday'},
+ faxnumber => $data->{'faxnumber'},
+ emailaddress => $data->{'emailaddress'},
+ textmessaging => $data->{'textmessaging'},
+ contactname => $data->{'contactname'},
+ altphone => $data->{'altphone'},
+ altnotes => $data->{'altnotes'},
+ borrowernotes => $data->{'borrowernotes'},
+ "title_".$data->{'title'} => " SELECTED ",
+ dateenrolled => $data->{'dateenrolled'},
+ expiry => $data->{'expiry'},
+ cardnumber => $cardnumber,
+ dateofbirth => $data->{'dateofbirth'},
+ dateformat => display_date_format(),
+ cardnumber_institution => $cardnumber,
+ CGIbranch => $CGIbranch);
+
+output_html_with_http_headers $input, $cookie, $template->output;
+
+# Local Variables:
+# tab-width: 8
+# End: