From 97fa105d5a02636d49124e7bc4befc8fc3ee29ef Mon Sep 17 00:00:00 2001
From: acli <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