Permalink
Browse files

Use get_template_and_user

  • Loading branch information...
acli
acli committed Feb 6, 2003
1 parent 6157f18 commit 97fa105d5a02636d49124e7bc4befc8fc3ee29ef
Showing with 15 additions and 1 deletion.
  1. +15 −1 pay.pl
View
16 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 @@
$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:

0 comments on commit 97fa105

Please sign in to comment.