[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: