diff options
author | ivan <ivan> | 2002-01-30 14:18:09 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-01-30 14:18:09 +0000 |
commit | 1fd6d8cf5d7854860ef4fd10ed89828e0c04ec39 (patch) | |
tree | caee70f2707d97a43e21ea4253afe728ea6f421a /httemplate/edit/cust_credit.cgi | |
parent | ea0d3938b57a079ce4aa6db0cae316e3ac6da654 (diff) |
remove
use Module;
and
$cgi = new CGI;
&cgisuidsetup();
from all templates. should work better under Mason.
Diffstat (limited to 'httemplate/edit/cust_credit.cgi')
-rwxr-xr-x | httemplate/edit/cust_credit.cgi | 25 |
1 files changed, 6 insertions, 19 deletions
diff --git a/httemplate/edit/cust_credit.cgi b/httemplate/edit/cust_credit.cgi index e61463e07..7c8a80c22 100755 --- a/httemplate/edit/cust_credit.cgi +++ b/httemplate/edit/cust_credit.cgi @@ -1,21 +1,8 @@ +<!-- $Id: cust_credit.cgi,v 1.8 2002-01-30 14:18:08 ivan Exp $ --> <% -#<!-- $Id: cust_credit.cgi,v 1.7 2001-12-26 15:07:06 ivan Exp $ --> - -use strict; -use vars qw( $cgi $query $custnum $otaker $p1 $_date $amount $reason ); -use Date::Format; -use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup getotaker); -use FS::CGI qw(header popurl small_custview); -use FS::Record qw(fields); -#use FS::cust_credit; my $conf = new FS::Conf; - -$cgi = new CGI; -cgisuidsetup($cgi); - +my($custnum, $amount, $reason); if ( $cgi->param('error') ) { #$cust_credit = new FS::cust_credit ( { # map { $_, scalar($cgi->param($_)) } fields('cust_credit') @@ -25,18 +12,18 @@ if ( $cgi->param('error') ) { #$refund = $cgi->param('refund'); $reason = $cgi->param('reason'); } else { - ($query) = $cgi->keywords; + my($query) = $cgi->keywords; $query =~ /^(\d+)$/; $custnum = $1; $amount = ''; #$refund = 'yes'; $reason = ''; } -$_date = time; +my $_date = time; -$otaker = getotaker; +my $otaker = getotaker; -$p1 = popurl(1); +my $p1 = popurl(1); print header("Post Credit", ''); print qq!<FONT SIZE="+1" COLOR="#ff0000">Error: !, $cgi->param('error'), |