diff options
Diffstat (limited to 'htdocs/view')
-rwxr-xr-x | htdocs/view/cust_main.cgi | 9 | ||||
-rwxr-xr-x | htdocs/view/cust_pkg.cgi | 10 |
2 files changed, 12 insertions, 7 deletions
diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index 4bde0be28..6f6c33540 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.15 1999-04-09 03:52:55 ivan Exp $ +# $Id: cust_main.cgi,v 1.16 1999-04-09 04:22:34 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -31,7 +31,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main.cgi,v $ -# Revision 1.15 1999-04-09 03:52:55 ivan +# Revision 1.16 1999-04-09 04:22:34 ivan +# also table() +# +# Revision 1.15 1999/04/09 03:52:55 ivan # explicit & for table/itable/ntable # # Revision 1.14 1999/04/08 04:04:37 ivan @@ -235,7 +238,7 @@ print qq!<BR><BR><A NAME="cust_pkg">Packages</A> !, #display packages #formatting -print qq!!, &table, "\n", +print qq!!, &table(), "\n", qq!<TR><TH COLSPAN=2 ROWSPAN=2>Package</TH><TH COLSPAN=5>!, qq!Dates</TH><TH COLSPAN=2 ROWSPAN=2>Services</TH></TR>\n!, qq!<TR><TH><FONT SIZE=-1>Setup</FONT></TH><TH>!, diff --git a/htdocs/view/cust_pkg.cgi b/htdocs/view/cust_pkg.cgi index 6bb294836..0054ee0fa 100755 --- a/htdocs/view/cust_pkg.cgi +++ b/htdocs/view/cust_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_pkg.cgi,v 1.10 1999-04-09 03:52:55 ivan Exp $ +# $Id: cust_pkg.cgi,v 1.11 1999-04-09 04:22:34 ivan Exp $ # # Usage: cust_pkg.cgi pkgnum # http://server.name/path/cust_pkg.cgi?pkgnum @@ -24,7 +24,10 @@ # no FS::Search ivan@sisd.com 98-mar-7 # # $Log: cust_pkg.cgi,v $ -# Revision 1.10 1999-04-09 03:52:55 ivan +# Revision 1.11 1999-04-09 04:22:34 ivan +# also table() +# +# Revision 1.10 1999/04/09 03:52:55 ivan # explicit & for table/itable/ntable # # Revision 1.9 1999/04/08 12:00:19 ivan @@ -142,8 +145,7 @@ print '<TR><TD ALIGN="right">Order taker</TD><TD BGCOLOR="#ffffff">', unless ($cancel) { #services - print '<BR>Service Information', &table, - ; + print '<BR>Service Information', &table(); #list of services this pkgpart includes my $pkg_svc; |