gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Templating newmember.pl 

newjmember.tmpl bugfixes
This commit is contained in:
hdl 2002-12-18 16:58:28 +00:00
parent 7b7cafb055
commit 67b07bb7ae
4 changed files with 318 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
koha-tmpl/intranet-tmpl/default/en/newjmember.tmpl
View File

@ -9,7 +9,7 @@
<table border=0 cellspacing=0 cellpadding=5>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<BOLD> NEW MEMBER </BOLD>
<B> NEW MEMBER </B>
</td>
<td>
&nbpsq;
@ -17,7 +17,7 @@
</tr>
<tr valign=top bgcolor="white" >
<td>
<BOLD>Name</BOLD>
<B>Name</B>
</td>
<td>
<TMPL_VAR Name="name">
@ -25,7 +25,7 @@
</tr>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<BOLD> MEMBERSHIP DETAILS </BOLD>
<B> MEMBERSHIP DETAILS </B>
</td>
<td>
&nbpsq;
@ -33,7 +33,7 @@
</tr>
<tr valign=top bgcolor="white" >
<td>
<BOLD>Membership Number</BOLD>
<B>Membership Number</B>
</td>
<td>
<TMPL_VAR Name="bornum">
@ -41,7 +41,7 @@
</tr>
<tr valign=top bgcolor="white" >
<td>
<BOLD>Date Of Birth</BOLD>
<B>Date Of Birth</B>
</td>
<td>
<TMPL_VAR Name="dob">
@ -49,7 +49,7 @@
</tr>
<tr valign=top bgcolor="white" >
<td>
<BOLD>Sex</BOLD>
<B>Sex</B>
</td>
<td>
<TMPL_VAR Name="sex">
@ -57,7 +57,7 @@
</tr>
<tr valign=top bgcolor="white" >
<td>
<BOLD>School</BOLD>
<B>School</B>
</td>
<td>
<TMPL_VAR Name="school">
@ -65,7 +65,7 @@
</tr>
<tr valign=top bgcolor="white" >
<td>
<BOLD>General Notes</BOLD>
<B>General Notes</B>
</td>
<td>
<TMPL_VAR Name="notes">
@ -82,4 +82,4 @@
</form>
</TMPL_IF>
<TMPL_INCLUDE Name="members-bottom.inc">
<TMPL_INCLUDE Name="members-bottom.inc">

258
koha-tmpl/intranet-tmpl/default/en/newmember.tmpl Normal file
View File

@ -0,0 +1,258 @@
<TMPL_INCLUDE Name="members-top.inc">
<H1> Confirm Record </H1>
<TMPL_IF Name="OK">
<table border=0 cellspacing=0 cellpadding=5>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<B> NEW MEMBER </B>
</td>
<td>
&nbsp;
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Name</B>
</td>
<td>
<TMPL_VAR Name="name">
</td>
</tr>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<B> MEMBERSHIP DETAILS </B>
</td>
<td>
&nbsp;
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Membership Number</B>
</td>
<td>
<TMPL_VAR Name="bornum">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Card Number</B>
</td>
<td>
<TMPL_VAR Name="cardnum">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Membership Category</B>
</td>
<td>
<TMPL_VAR Name="membercat">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Area </B>
</td>
<td>
<TMPL_VAR Name="area">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Fee</B>
</td>
<td>
<TMPL_VAR Name="fee">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Joining Date</B>
</td>
<td>
<TMPL_VAR Name="joindate">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Expiry Date</B>
</td>
<td>
<TMPL_VAR Name="expdate">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Joining Branch</B>
</td>
<td>
<TMPL_VAR Name="joinbranch">
</td>
</tr>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<B>PERSONAL DETAILS</B>
</td>
<td>
&nbsp;
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Ethnicity</B>
</td>
<td>
<TMPL_VAR Name="ethnic">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Date Of Birth</B>
</td>
<td>
<TMPL_VAR Name="dob">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Sex</B>
</td>
<td>
<TMPL_VAR Name="sex">
</td>
</tr>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<B>MEMBER ADRESS</B>
</td>
<td>
&nbsp;
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Postal Adress</B>
</td>
<td>
<TMPL_VAR Name="postal">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Home Adress</B>
</td>
<td>
<TMPL_VAR Name="home">
</td>
</tr>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<B>MEMBER CONTACT DETAIL</B>
</td>
<td>
&nbsp;
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Phone (Home)</B>
</td>
<td>
<TMPL_VAR Name="phone">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Phone (Daytime)</B>
</td>
<td>
<TMPL_VAR Name="phoneday">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Fax</B>
</td>
<td>
<TMPL_VAR Name="faxnumber">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>E-mail</B>
</td>
<td>
<TMPL_VAR Name="emailaddress">
</td>
</tr>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<B>ALTERNATIVE CONTACT DETAIL</B>
</td>
<td>
&nbsp;
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Name</B>
</td>
<td>
<TMPL_VAR Name="contactname">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Phone</B>
</td>
<td>
<TMPL_VAR Name="altphone">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Relationship</B>
</td>
<td>
<TMPL_VAR Name="altrelationship">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Notes</B>
</td>
<td>
<TMPL_VAR Name="altnotes">
</td>
</tr>
<tr valign=top bgcolor="<TMPL_VAR Name="main">" >
<td background="<TMPL_VAR Name="image">">
<B>NOTES</B>
</td>
<td>
&nbsp;
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>General Notes</B>
</td>
<td>
<TMPL_VAR Name="bornotes">
</td>
</tr>
</TABLE><p>
<form action="/cgi-bin/koha/insertdata.pl" method=post>
<TMPL_LOOP NAME=inputsloop>
<input type=hidden name="<TMPL_VAR NAME="key">" value="<TMPL_VAR NAME="value">">
</TMPL_LOOP>
<input type=submit name=submit value=submit>
</form>
<TMPL_ELSE>
<TMPL_VAR Name="string">
</TMPL_IF>
<TMPL_INCLUDE Name="members-bottom.inc">

2
newjmember.pl
View File

@ -118,4 +118,4 @@ $template->param( NOK => (ok==1),
inputsloop => \@inputsloop,
string => $string);
print "Content-Type:Text/html\n\n",$template->output;
print "Content-Type: text/html\n\n", $template->output;

114
newmember.pl
View File

@ -4,6 +4,7 @@
#script to print confirmation screen, then if accepted calls itself to insert data
# FIXME - Yes, but what does it _do_?
# 2002/12/18 hdl@ifrance.com templating
# Copyright 2000-2002 Katipo Communications
#
@ -27,6 +28,7 @@ use C4::Output;
use C4::Input;
use CGI;
use Date::Manip;
use HTML::Template;
my %env;
my $input = new CGI;
@ -40,9 +42,11 @@ my @names=$input->param;
foreach my $key (@names){
$data{$key}=$input->param($key);
}
print $input->header;
print startpage();
print startmenu('member');
my $template = gettemplate("newmember.tmpl");
#print $input->header;
#print startpage();
#print startmenu('member');
my $main="#99cc33";
my $image="/images/background-mem.gif";
if ($insert eq ''){
@ -87,10 +91,9 @@ if ($insert eq ''){
$ok=1;
}
#we are printing confirmation page
print mkheadr(1,'Confirm Record');
$template->param( OK=> ($ok==0),
string=> $string);
if ($ok ==0){
print mktablehdr;
print mktablerow(2,$main,bold('NEW MEMBER'),"",$image);
my $name=$data{'title'}." ";
if ($data{'othernames'} ne ''){
$name.=$data{'othernames'}." ";
@ -98,38 +101,21 @@ if ($insert eq ''){
$name.=$data{'firstname'}." ";
}
$name.="$data{'surname'} ( $data{'firstname'}, $data{'initials'})";
print mktablerow(2,'white',bold('Name'),$name);
print mktablerow(2,$main,bold('MEMBERSHIP DETAILS'),"",$image);
print mktablerow(2,'white',bold('Membership Number'),$data{'borrowernumber'});
print mktablerow(2,'white',bold('Cardnumber'),$data{'cardnumber'});
print mktablerow(2,'white',bold('Membership Category'),$data{'categorycode'});
print mktablerow(2,'white',bold('Area'),$data{'area'});
print mktablerow(2,'white',bold('Fee'),$data{'fee'});
if ($data{'joining'} eq ''){
$data{'joining'}=ParseDate('today');
$data{'joining'}=&UnixDate($data{'joining'},'%Y-%m-%d');
}
print mktablerow(2,'white',bold('Joining Date'),$data{'joining'});
if ($data{'expiry'} eq ''){
$data{'expiry'}=ParseDate('in 1 year');
$data{'expiry'}=&UnixDate($data{'expiry'},'%Y-%m-%d');
}
print mktablerow(2,'white',bold('Expiry Date'),$data{'expiry'});
print mktablerow(2,'white',bold('Joining Branch'),$data{'joinbranch'});
print mktablerow(2,$main,bold('PERSONAL DETAILS'),"",$image);
my $ethnic=$data{'ethnicity'}." ".$data{'ethnicnotes'};
print mktablerow(2,'white',bold('Ethnicity'),$ethnic);
$data{'dateofbirth'}=ParseDate($data{'dateofbirth'});
$data{'dateofbirth'}=UnixDate($data{'dateofbirth'},'%Y-%m-%d');
print mktablerow(2,'white',bold('Date of Birth'),$data{'dateofbirth'});
my $sex;
if ($data{'sex'} eq 'M'){
$sex="Male";
} else {
$sex="Female";
}
print mktablerow(2,'white',bold('Sex'),$sex);
print mktablerow(2,$main,bold('MEMBER ADDRESS'),"",$image);
if ($data{'joining'} eq ''){
$data{'joining'}=ParseDate('today');
$data{'joining'}=&UnixDate($data{'joining'},'%Y-%m-%d');
}
if ($data{'expiry'} eq ''){
$data{'expiry'}=ParseDate('in 1 year');
$data{'expiry'}=&UnixDate($data{'expiry'},'%Y-%m-%d');
}
my $ethnic=$data{'ethnicity'}." ".$data{'ethnicnotes'};
my $postal=$data{'address'}."<br>".$data{'city'};
my $home;
if ($data{'streetaddress'} ne ''){
@ -137,40 +123,40 @@ if ($insert eq ''){
} else {
$home=$postal;
}
print mktablerow(2,'white',bold('Postal Address'),$postal);
print mktablerow(2,'white',bold('Home Address'),$home);
print mktablerow(2,$main,bold('MEMBER CONTACT DETAILS'),"",$image);
print mktablerow(2,'white',bold('Phone (Home)'),$data{'phone'});
print mktablerow(2,'white',bold('Phone (Daytime)'),$data{'phoneday'});
print mktablerow(2,'white',bold('Fax'),$data{'faxnumber'});
print mktablerow(2,'white',bold('Email'),$data{'emailaddress'});
print mktablerow(2,$main,bold('ALTERNATIVE CONTACT DETAILS'),"",$image);
print mktablerow(2,'white',bold('Name'),$data{'contactname'});
print mktablerow(2,'white',bold('Phone'),$data{'altphone'});
print mktablerow(2,'white',bold('Relationship'),$data{'altrelationship'});
print mktablerow(2,'white',bold('Notes'),$data{'altnotes'});
print mktablerow(2,$main,bold('Notes'),"",$image);
print mktablerow(2,'white',bold('General Notes'),$data{'borrowernotes'});
print mktableft;
#set up form to post data thru for modification or insertion
my $i=0;
my @inputs;
my @inputsloop;
while (my ($key, $value) = each %data) {
$value=~ s/\"/%22/g;
$inputs[$i]=["hidden","$key","$value"];
$i++;
}
$inputs[$i]=["submit","submit","submit"];
print mkformnotable("/cgi-bin/koha/insertdata.pl",@inputs);
} else {
print $string;
my %line;
$line{'key'}=$key;
$line{'value'}=$value;
push(@inputsloop, \%line);
}
}
#print $input->dump;
print mktablehdr;
$template->param(name => $name,
bornum => $data{'borrowernumber'},
cardnum => $data{'cardnumber'},
memcat => $data{'categorycode'},
area => $data{'area'},
fee => $data{'fee'},
joindate => $data{'joining'},
expdate => $data{'expiry'},
joinbranch => $data{'joinbranch'},
ethnic => $ethnic,
dob => $data{'dateofbirth'},
sex => $sex,
postal => $postal,
home => $home,
phone => $data{'phone'},
phoneday => $data{'phoneday'},
faxnumber => $data{'faxnumber'},
emailaddress => $data{'emailaddress'},
contactname => $data{'contactname'},
altphone => $data{'altphone'},
altrelationship => $data{'altrelationship'},
altnotes => $data{'altnotes'},
bornotes => $data{'borrowernotes'},
inputsloop => \@inputsloop);
}
print "Content-Type: text/html\n\n", $template->output;
print mktableft;
print endmenu('member');
print endpage();