JavaScript changes to make tmpl_process3 recognize translatable strings.

[koha.git] / imemberentry.pl

diff --git a/imemberentry.pl b/imemberentry.pl
index 507c342..0e99229 100755 (executable)
--- a/imemberentry.pl
+++ b/imemberentry.pl
@@ -1,4 +1,5 @@
 #!/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
@@ -22,14 +23,27 @@
 # 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 = gettemplate("members/imemberentry.tmpl");
+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 ''){
@@ -39,8 +53,55 @@ my $type=$input->param('type');
 
 my $data=borrdata('',$member);
 
-$template->param( startmenumember => startmenu('member'),
-                       endmenumember   => endmenu('member'),
-                       member          => $member );
+my $cardnumber=C4::Members::fixup_cardnumber($data->{'cardnumber'});
+
+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',
+                       -id => '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;
 
-print "Content-Type: text/html\n\n", $template->output;
+# Local Variables:
+# tab-width: 8
+# End: