#script to set up screen for modification of borrower details
#written 20/12/99 by chris@katipo.co.nz
+
+# Copyright 2000-2002 Katipo Communications
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along with
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
+# Suite 330, Boston, MA 02111-1307 USA
+
use strict;
+use C4::Auth;
use C4::Output;
use CGI;
use C4::Search;
-
+use HTML::Template;
+use C4::Interface::CGI::Output;
+use C4::Date;
my $input = new CGI;
+
+my ($template, $loggedinuser, $cookie)
+ = get_template_and_user({template_name => "members/jmemberentry.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 Junior Member </em></font><br>
-<form action=/cgi-bin/koha/newjmember.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>
-<input type=hidden name=area value="$data->{'area'}">
-<input type=hidden name=city value="$data->{'city'}">
-<input type=hidden name=street value="$data->{'address'}">
-<input type=hidden name=streetaddress value="$data->{'streetaddress'}">
-<input type=hidden name=streetcity value="$data->{'streetcity'}">
-<input type=hidden name=phone value="$data->{'phone'}">
-<input type=hidden name=phoneday value="$data->{'phoneday'}">
-
-<input type=hidden name=faxnumber value="$data->{'faxnumber'}">
-<input type=hidden name=emailaddress value="$data->{'emailaddress'}">
-<input type=hidden name=contactname value="$data->{'contactname'}">
-<input type=hidden name=altphone value"$data->{'altphone'}">
-<table border=0 cellspacing=0 cellpadding=5 >
-
-
-<tr valign=top><td COLSPAN=1><input type=reset value="Clear all Fields"></td></tr>
-<tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
-<tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
-<B>PARENT OR GUARDIAN </b></td></tr>
-<tr valign=top bgcolor=white>
-<td><SELECT NAME="title" SIZE="1">
-<OPTION value=" ">No Title
-<OPTION value=Miss
-printend
-;
-if ($data->{'title'} eq 'Miss'){
- print " Selected";
-}
-print ">Miss
-<OPTION value=Mrs";
-if ($data->{'title'} eq 'Mrs'){
- print " Selected";
-}
-print ">Mrs
-<OPTION value=Ms";
-if ($data->{'title'} eq 'Ms'){
- print " Selected";
-}
-print ">Ms
-<OPTION value=Mr";
-if ($data->{'title'} eq 'Mr'){
- print " Selected";
-}
-print ">Mr
-<OPTION value=Dr";
-if ($data->{'title'} eq 'Dr'){
- print " Selected";
-}
-print ">Dr
-<OPTION value=Sir";
-if ($data->{'title'} eq 'Sir'){
- print " Selected";
-}
-print <<printend
- >Sir
-</SELECT>
-</td>
+my @titles = ('Miss', 'Mrs', 'Ms', 'Mr', 'Dr', 'Sir');
+ # FIXME - Assumes English. This ought to be made part of i18n.
+my @titledata;
+while (@titles) {
+ my $title = shift @titles;
+ my %row = ('title' => $title);
+ if ($data->{'title'} eq $title) {
+ $row{'selected'}=' selected';
+ } else {
+ $row{'selected'}='';
+ }
+ push(@titledata, \%row);
+}
-<td><input type=text name=firstname_guardian size=20 value="$data->{'firstname'}"></td>
-<td colspan=2><input type=text name=surname_guardian size=20 value="$data->{'surname'}"></td>
-<td><input type=text name=guardian_number size=20 value="$data->{'cardnumber'}"></td></tr>
-<tr valign=top bgcolor=white>
-<td><FONT SIZE=2>Title</FONT></td>
-
-<td><FONT SIZE=2>Given Names*</FONT></td>
-<td colspan=2><FONT SIZE=2>Surname*</FONT></td>
-<td><FONT SIZE=2>Membership No.</FONT></td>
-</tr>
-
-<tr><td> </TD></TR>
-
-printend
-;
+# get the data for children
my $cmember1=NewBorrowerNumber();
+my @cmemdata;
for (my $i=0;$i<3;$i++){
-my $cmember=$cmember1+$i;
-my $count=$i+1;
-print <<printend
-<tr valign=top bgcolor="99cc33" ><td COLSPAN=5 background="/images/background-mem.gif">
-<B>CHILD $count </b></td></TR>
-<tr valign=top></tr>
-
-<TR><td COLSPAN=4 ALIGN=RIGHT ><font size=3 face='arial,helvetica'>
-<STRONG>Member# $cmember, Card Number*</STRONG> </TD><TD><input type=text name=cardnumber_child_$i size=20 value=""><br>
-<input type=hidden name=bornumber_child_$i value=$cmember>
-</td></TR>
-<tr bgcolor=white>
-
-
-<td><input type=text name=firstname_child_$i size=20 value=""></td>
-<td><input type=text name=surname_child_$i size=20 value=""></td>
-<td>
-<input type=text name=dateofbirth_child_$i size=10 value="">
-</TD><TD>
- <input type="radio" name="sex_child_$i" value="F">F
- <input type="radio" name="sex_child_$i" value="M">M* </td>
- <TD align=right>
- <input type=text name=school_child_$i size=20 value="">
- </TD>
- </tr>
- <tr valign=top bgcolor=white>
- <td><FONT SIZE=2>Given Names*</FONT></td>
- <td><FONT SIZE=2>Surname*</FONT></td>
-
- <td><FONT SIZE=2>Date of Birth<BR> (dd/mm/yy)*</FONT></td>
- <td><FONT SIZE=2> </FONT></td>
- <td><FONT SIZE=2>School</FONT></td></tr>
-
-
-
-
- <tr valign=top bgcolor=white>
-
- <td COLSPAN=5><textarea name=altnotes_child_$i wrap=physical cols=70 rows=3></textarea></td></tr><tr valign=top bgcolor=white>
-
- <td><FONT SIZE=2>Notes</font></td>
- </tr>
- <tr><td> </TD></TR>
-printend
-;
+ my %row;
+ $row{'cmember'}=$cmember1+$i;
+ $row{'i'}=$i;
+ $row{'count'}=$i+1;
+ push(@cmemdata, \%row);
}
-print <<printend
- <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>
-
-printend
-;
-print endmenu('member');
-print endpage();
+
+$template->param( member => $member,
+ firstname => $data->{'firstname'},
+ surname => $data->{'surname'},
+ cardnumber => $data->{'cardnumber'},
+ area => $data->{'area'},
+ city => $data->{'city'},
+ address => $data->{'address'},
+ streetaddress => $data->{'streetaddress'},
+ streetcity => $data->{'streetcity'},
+ phone => $data->{'phone'},
+ phoneday => $data->{'phoneday'},
+ faxnumber => $data->{'faxnumber'},
+ emailaddress => $data->{'emailaddress'},
+ contactname => $data->{'contactname'},
+ altphone => $data->{'altphone'},
+ dateformat => display_date_format(),
+ titleloop => \@titledata,
+ cmemloop => \@cmemdata );
+
+
+output_html_with_http_headers $input, $cookie, $template->output;
projects / koha.git / blobdiff