[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