From 93b67826d3f5a7d3fb351ddecae4c06a54df529e Mon Sep 17 00:00:00 2001 From: acli Date: Mon, 20 Jan 2003 07:03:19 +0000 Subject: [PATCH] Corrected the missing brace syntax error (Bug 162) Added meta tag handling for non-latin1 charsets Removed some dead code I have reindented the file; hopefully this will make it easier to read. The file had inconsistent indentation that probably was the cause of the missing brace. Please use cvs diff -bBtw to see the real diffs. --- newmember.pl | 233 +++++++++++++++++++++++++++++---------------------- 1 file changed, 131 insertions(+), 102 deletions(-) diff --git a/newmember.pl b/newmember.pl index 5644996c66..7ce82466db 100755 --- a/newmember.pl +++ b/newmember.pl @@ -6,6 +6,18 @@ # FIXME - Yes, but what does it _do_? # 2002/12/18 hdl@ifrance.com templating +# 2003/01/20 acli@ada.dhs.org XXX it seems to do the following: +# * "insert" seems to do nothing; in 1.2.2 the script just returns a blank +# page (with the headers etc.) if "insert" has anything in it +# * $ok has the opposite meaning of what one expects; $ok == 1 means "not ok" +# * if ($ok == 0) considers the "ok" case; it displays a confirmation page +# for the user to "click to confirm that everything is entered correctly" +# * The "else" case for ($ok == 0) handles the "not ok" case; $string is the +# error message to display + +# FIXME - What is the correct value of "flagsrequired"? +# FIXME - untranslatable strings here + # Copyright 2000-2002 Katipo Communications # # This file is part of Koha. @@ -24,8 +36,9 @@ # Suite 330, Boston, MA 02111-1307 USA use strict; -use C4::Output; +use C4::Auth; use C4::Input; +use C4::Charset; use CGI; use Date::Manip; use HTML::Template; @@ -43,120 +56,136 @@ foreach my $key (@names){ $data{$key}=$input->param($key); } -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 ''){ - my $ok=0; - #check that all compulsary fields are entered - my $string="The following compulsary fields have been left blank. Please push the back button - and try again

"; - if ($data{'cardnumber'} eq ''){ - - $string.=" Cardnumber
"; +my ($template, $borrowernumber, $cookie) + = get_template_and_user({template_name => "newmember.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => {parameters => 1}, + }); + +# Check that all compulsary fields are entered +# If everything is ok, set $ok = 0 +# Otherwise set $ok = 1 and $string to the error message to display. + +my $ok=0; +my $string = "The following compulsary fields have been left blank. " + . "Please push the back button and try again

"; + +if ($data{'cardnumber'} eq ''){ + $string.=" Cardnumber
"; $ok=1; - } else { - #check cardnumber is valid - my $valid=checkdigit(\%env,$data{'cardnumber'}); - if ($valid != 1){ - $ok=1; - $string.=" Invalid Cardnumber
"; - } - } - if ($data{'sex'} eq ''){ +} else { + #check cardnumber is valid + my $valid=checkdigit(\%env,$data{'cardnumber'}); + if ($valid != 1){ + $ok=1; + $string.=" Invalid Cardnumber
"; + } +} +if ($data{'sex'} eq ''){ $string.=" Gender
"; $ok=1; - } - if ($data{'firstname'} eq ''){ +} +if ($data{'firstname'} eq ''){ $string.=" Given Names
"; $ok=1; - } - if ($data{'surname'} eq ''){ +} +if ($data{'surname'} eq ''){ $string.=" Surname
"; $ok=1; - } - if ($data{'address'} eq ''){ +} +if ($data{'address'} eq ''){ $string.=" Postal Street Address
"; $ok=1; - } - if ($data{'city'} eq ''){ +} +if ($data{'city'} eq ''){ $string.=" Postal City
"; $ok=1; - } - if ($data{'contactname'} eq ''){ +} +if ($data{'contactname'} eq ''){ $string.=" Alternate Contact
"; $ok=1; - } - #we are printing confirmation page +} + +# Pass the ok/not ok status and the error message to the template $template->param( OK=> ($ok==0), - string=> $string); - if ($ok ==0){ - my $name=$data{'title'}." "; - if ($data{'othernames'} ne ''){ - $name.=$data{'othernames'}." "; - } else { - $name.=$data{'firstname'}." "; - } - $name.="$data{'surname'} ( $data{'firstname'}, $data{'initials'})"; - my $sex; - if ($data{'sex'} eq 'M'){ - $sex="Male"; - } else { - $sex="Female"; - } - 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'}."
".$data{'city'}; - my $home; - if ($data{'streetaddress'} ne ''){ - $home=$data{'streetaddress'}."
".$data{'streetcity'}; - } else { - $home=$postal; - } - my @inputsloop; - while (my ($key, $value) = each %data) { - $value=~ s/\"/%22/g; - my %line; - $line{'key'}=$key; - $line{'value'}=$value; - push(@inputsloop, \%line); - } - - $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; + string=> $string); + +# If things are ok, display the confirmation page +if ($ok == 0) { + my $name=$data{'title'}." "; + if ($data{'othernames'} ne ''){ + $name.=$data{'othernames'}." "; + } else { + $name.=$data{'firstname'}." "; + } + $name.="$data{'surname'} ( $data{'firstname'}, $data{'initials'})"; + my $sex; + if ($data{'sex'} eq 'M'){ + $sex="Male"; + } else { + $sex="Female"; + } + 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'}."
".$data{'city'}; + my $home; + if ($data{'streetaddress'} ne ''){ + $home=$data{'streetaddress'}."
".$data{'streetcity'}; + } else { + $home=$postal; + } + my @inputsloop; + while (my ($key, $value) = each %data) { + $value=~ s/\"/%22/g; + my %line; + $line{'key'}=$key; + $line{'value'}=$value; + push(@inputsloop, \%line); + } + + $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); + +# If things are not ok, display the error message +} else { + # Nothing to do; the "OK" and "string" variables have already been set + ; +} + +print $input->header( + -type => guesstype($template->output), + -cookie => $cookie +), $template->output; -- 2.39.5