[Koha-cvs] CVS: koha imemberentry.pl,1.4,1.5
Ambrose Li
acli at users.sourceforge.net
Sat Feb 8 22:47:18 CET 2003
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv24904
Modified Files:
imemberentry.pl
Log Message:
Updated script to use get_template_and_user
Noted tab size
Index: imemberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/imemberentry.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** imemberentry.pl 28 Oct 2002 18:00:57 -0000 1.4
--- imemberentry.pl 8 Feb 2003 21:47:15 -0000 1.5
***************
*** 1,3 ****
--- 1,4 ----
#!/usr/bin/perl
+ # NOTE: standard 8-space tabs here
#script to set up screen for modification of borrower details
***************
*** 23,34 ****
use strict;
use C4::Output;
use CGI;
use C4::Search;
use HTML::Template;
my $input = new CGI;
! my $template = gettemplate("members/imemberentry.tmpl");
my $member=$input->param('bornum');
--- 24,45 ----
use strict;
+ use C4::Auth;
use C4::Output;
use CGI;
use C4::Search;
+ use C4::Interface::CGI::Output;
use HTML::Template;
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');
***************
*** 40,46 ****
my $data=borrdata('',$member);
! $template->param( startmenumember => startmenu('member'),
endmenumember => endmenu('member'),
! member => $member );
! print "Content-Type: text/html\n\n", $template->output;
--- 51,61 ----
my $data=borrdata('',$member);
! $template->param({ startmenumember => startmenu('member'),
endmenumember => endmenu('member'),
! member => $member });
!
! output_html_with_http_headers $input, $cookie, $template->output;
! # Local Variables:
! # tab-width: 8
! # End:
More information about the Koha-cvs
mailing list