[Koha-cvs] CVS: koha pay.pl,1.7,1.8

[Ambrose Li]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv24850

Modified Files:
	pay.pl 
Log Message:
Use get_template_and_user


Index: pay.pl
===================================================================
RCS file: /cvsroot/koha/koha/pay.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** pay.pl	28 Oct 2002 20:17:27 -0000	1.7
--- pay.pl	6 Feb 2003 06:32:57 -0000	1.8
***************
*** 1,3 ****
--- 1,5 ----
  #!/usr/bin/perl
+ # WARNING: Not enough context to figure out the correct tabstop size
+ # WARNING: Assume that this file uses 4-character tabs
  
  # $Id$
***************
*** 26,29 ****
--- 28,32 ----
  use strict;
  use C4::Context;
+ use C4::Auth;
  use C4::Output;
  use CGI;
***************
*** 77,81 ****
  my $total=$input->param('total');
  if ($check ==0){
! 	my $template = gettemplate("members/pay.tmpl");
  	if ($total ne ''){
  		recordpayment(\%env,$bornum,$total);
--- 80,91 ----
  my $total=$input->param('total');
  if ($check ==0){
! 	my($template, $loggedinuser, $cookie)
! 		= get_template_and_user ({ template_name => "members/pay.tmpl",
! 					   query => $input,
! 					   type => "intranet",
! 					   authnotrequired => 0,
! 					   flagsrequired => {borrowers => 1},
! 					   debug => 1,
! 					 });
  	if ($total ne ''){
  		recordpayment(\%env,$bornum,$total);
***************
*** 172,173 ****
--- 182,187 ----
  	UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum);
  }
+ 
+ # Local Variables:
+ # tab-width: 4
+ # End: