From 97fa105d5a02636d49124e7bc4befc8fc3ee29ef Mon Sep 17 00:00:00 2001 From: acli Date: Thu, 6 Feb 2003 06:32:57 +0000 Subject: [PATCH] Use get_template_and_user --- pay.pl | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/pay.pl b/pay.pl index cd069ece0e..54c2a8358a 100755 --- a/pay.pl +++ b/pay.pl @@ -1,4 +1,6 @@ #!/usr/bin/perl +# WARNING: Not enough context to figure out the correct tabstop size +# WARNING: Assume that this file uses 4-character tabs # $Id$ @@ -25,6 +27,7 @@ use strict; use C4::Context; +use C4::Auth; use C4::Output; use CGI; use C4::Search; @@ -76,7 +79,14 @@ my %env; $env{'branchcode'}=$user; my $total=$input->param('total'); if ($check ==0){ - my $template = gettemplate("members/pay.tmpl"); + 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); } @@ -171,3 +181,7 @@ sub writeoff{ # print $query; UpdateStats($env,$user,'writeoff',$amount,'','','',$bornum); } + +# Local Variables: +# tab-width: 4 +# End: -- 2.39.5