diff options
| author | ivan <ivan> | 1998-12-30 23:03:34 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-12-30 23:03:34 +0000 |
| commit | d51c41b94bfa87d6c779ac666495151bf6fc3913 (patch) | |
| tree | 5ba6fb37692d9cece6d00682289490c072cdafd5 /htdocs/view | |
| parent | a3e720b5de05f45ab48d30d5fcfe07f1ef6c3a81 (diff) | |
bugfixes; fields isn't exported by derived classes
Diffstat (limited to 'htdocs/view')
| -rwxr-xr-x | htdocs/view/cust_bill.cgi | 9 | ||||
| -rwxr-xr-x | htdocs/view/cust_main.cgi | 11 |
2 files changed, 13 insertions, 7 deletions
diff --git a/htdocs/view/cust_bill.cgi b/htdocs/view/cust_bill.cgi index 06fd2d76d..80aab187f 100755 --- a/htdocs/view/cust_bill.cgi +++ b/htdocs/view/cust_bill.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_bill.cgi,v 1.3 1998-12-23 03:07:49 ivan Exp $ +# $Id: cust_bill.cgi,v 1.4 1998-12-30 23:03:33 ivan Exp $ # # Note: Should be run setuid freeside as user nobody. # @@ -25,7 +25,10 @@ # also print 'printed' field ivan@sisd.com 98-jul-10 # # $Log: cust_bill.cgi,v $ -# Revision 1.3 1998-12-23 03:07:49 ivan +# Revision 1.4 1998-12-30 23:03:33 ivan +# bugfixes; fields isn't exported by derived classes +# +# Revision 1.3 1998/12/23 03:07:49 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.2 1998/12/17 09:57:20 ivan @@ -37,7 +40,7 @@ use IO::File; use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); -use FS::CGI qw(header popurl); +use FS::CGI qw(header popurl menubar); use FS::Record qw(qsearchs); use FS::cust_bill; diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index cc6983d70..8e6145519 100755 --- a/htdocs/view/cust_main.cgi +++ b/htdocs/view/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.6 1998-12-23 02:42:33 ivan Exp $ +# $Id: cust_main.cgi,v 1.7 1998-12-30 23:03:34 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -33,7 +33,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main.cgi,v $ -# Revision 1.6 1998-12-23 02:42:33 ivan +# Revision 1.7 1998-12-30 23:03:34 ivan +# bugfixes; fields isn't exported by derived classes +# +# Revision 1.6 1998/12/23 02:42:33 ivan # remove double '/' in link urls # # Revision 1.5 1998/12/23 02:36:28 ivan @@ -247,7 +250,7 @@ print "</TABLE></CENTER>"; print qq!<CENTER><HR><A NAME="history"><FONT SIZE=+1>Payment History!, qq!</FONT></A><BR>!, qq!Click on invoice to view invoice/enter payment.<BR>!, - qq!<A HREF="!, popurl(2), qq!/edit/cust_credit.cgi?$custnum">!, + qq!<A HREF="!, popurl(2), qq!edit/cust_credit.cgi?$custnum">!, qq!Post Credit / Refund</A></CENTER><BR>!; #get payment history @@ -262,7 +265,7 @@ my($bill); foreach $bill (@bills) { my($bref)=$bill->hashref; push @history, - $bref->{_date} . qq!\t<A HREF="!. popurl(2). qq!/view/cust_bill.cgi?! . + $bref->{_date} . qq!\t<A HREF="!. popurl(2). qq!view/cust_bill.cgi?! . $bref->{invnum} . qq!">Invoice #! . $bref->{invnum} . qq! (Balance \$! . $bref->{owed} . qq!)</A>\t! . $bref->{charged} . qq!\t\t\t!; |