From b6d1aed30d51bdae49ca22e5aa5baab635969097 Mon Sep 17 00:00:00 2001 From: ivan Date: Fri, 9 Apr 1999 03:52:55 +0000 Subject: [PATCH] explicit & for table/itable/ntable --- htdocs/browse/agent.cgi | 9 ++++++--- htdocs/browse/agent_type.cgi | 9 ++++++--- htdocs/browse/cust_main_county.cgi | 9 ++++++--- htdocs/browse/part_pkg.cgi | 9 ++++++--- htdocs/browse/part_referral.cgi | 9 ++++++--- htdocs/browse/part_svc.cgi | 9 ++++++--- htdocs/browse/svc_acct_pop.cgi | 9 ++++++--- htdocs/edit/cust_main.cgi | 15 +++++++++------ htdocs/edit/cust_main_county.cgi | 9 ++++++--- htdocs/edit/part_svc.cgi | 9 ++++++--- htdocs/search/cust_main.cgi | 9 ++++++--- htdocs/search/svc_acct_sm.cgi | 9 ++++++--- htdocs/view/cust_main.cgi | 21 ++++++++++++--------- htdocs/view/cust_pkg.cgi | 11 +++++++---- 14 files changed, 94 insertions(+), 52 deletions(-) diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi index 4ec472c33..c6e7da5f1 100755 --- a/htdocs/browse/agent.cgi +++ b/htdocs/browse/agent.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: agent.cgi,v 1.11 1999-01-20 09:43:16 ivan Exp $ +# $Id: agent.cgi,v 1.12 1999-04-09 03:52:55 ivan Exp $ # # ivan@sisd.com 97-dec-12 # @@ -15,7 +15,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: agent.cgi,v $ -# Revision 1.11 1999-01-20 09:43:16 ivan +# Revision 1.12 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.11 1999/01/20 09:43:16 ivan # comment out future UI code (but look at it, it's neat!) # # Revision 1.10 1999/01/19 05:13:24 ivan @@ -83,7 +86,7 @@ print $cgi->header( '-expires' => 'now' ), header('Agent Listing', menubar( Agents are resellers of your service. Agents may be limited to a subset of your full offerings (via their type).

END -print table, < Agent Type diff --git a/htdocs/browse/agent_type.cgi b/htdocs/browse/agent_type.cgi index 5b090abff..76aafa80b 100755 --- a/htdocs/browse/agent_type.cgi +++ b/htdocs/browse/agent_type.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: agent_type.cgi,v 1.6 1999-04-07 11:10:46 ivan Exp $ +# $Id: agent_type.cgi,v 1.7 1999-04-09 03:52:55 ivan Exp $ # # ivan@sisd.com 97-dec-10 # @@ -11,7 +11,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: agent_type.cgi,v $ -# Revision 1.6 1999-04-07 11:10:46 ivan +# Revision 1.7 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.6 1999/04/07 11:10:46 ivan # harmless typo # # Revision 1.5 1999/01/19 05:13:25 ivan @@ -48,7 +51,7 @@ $p = popurl(2); print $cgi->header( '-expires' => 'now' ), header("Agent Type Listing", menubar( 'Main Menu' => $p, )), "Agent types define groups of packages that you can then assign to". - " particular agents.

", table, <
", &table, < Agent Type Packages diff --git a/htdocs/browse/cust_main_county.cgi b/htdocs/browse/cust_main_county.cgi index 0e899f246..5d7e77573 100755 --- a/htdocs/browse/cust_main_county.cgi +++ b/htdocs/browse/cust_main_county.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main_county.cgi,v 1.5 1999-01-19 05:13:26 ivan Exp $ +# $Id: cust_main_county.cgi,v 1.6 1999-04-09 03:52:55 ivan Exp $ # # ivan@sisd.com 97-dec-13 # @@ -10,7 +10,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main_county.cgi,v $ -# Revision 1.5 1999-01-19 05:13:26 ivan +# Revision 1.6 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.5 1999/01/19 05:13:26 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -48,7 +51,7 @@ print $cgi->header( '-expires' => 'now' ), header("Tax Rate Listing", menubar(
Click on expand state to specify a state's tax rates by county.

END -print table, < Country State diff --git a/htdocs/browse/part_pkg.cgi b/htdocs/browse/part_pkg.cgi index 413a108cf..ecf10e059 100755 --- a/htdocs/browse/part_pkg.cgi +++ b/htdocs/browse/part_pkg.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: part_pkg.cgi,v 1.6 1999-01-19 05:13:27 ivan Exp $ +# $Id: part_pkg.cgi,v 1.7 1999-04-09 03:52:55 ivan Exp $ # # ivan@sisd.com 97-dec-5,9 # @@ -10,7 +10,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_pkg.cgi,v $ -# Revision 1.6 1999-01-19 05:13:27 ivan +# Revision 1.7 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.6 1999/01/19 05:13:27 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -49,7 +52,7 @@ print $cgi->header( '-expires' => 'now' ), header("Package Part Listing",menubar 'Main Menu' => $p, )), "One or more services are grouped together into a package and given", " pricing information. Customers purchase packages, not services.

", - table, < Package diff --git a/htdocs/browse/part_referral.cgi b/htdocs/browse/part_referral.cgi index e3360567c..1b6ebf6cd 100755 --- a/htdocs/browse/part_referral.cgi +++ b/htdocs/browse/part_referral.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: part_referral.cgi,v 1.7 1999-01-19 05:13:28 ivan Exp $ +# $Id: part_referral.cgi,v 1.8 1999-04-09 03:52:55 ivan Exp $ # # ivan@sisd.com 98-feb-23 # @@ -10,7 +10,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_referral.cgi,v $ -# Revision 1.7 1999-01-19 05:13:28 ivan +# Revision 1.8 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.7 1999/01/19 05:13:28 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -49,7 +52,7 @@ $p = popurl(2); print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar( 'Main Menu' => $p, # 'Add new referral' => "../edit/part_referral.cgi", -)), "Where a customer heard about your service. Tracked for informational purposes.

", table, <
", &table, < Referral diff --git a/htdocs/browse/part_svc.cgi b/htdocs/browse/part_svc.cgi index 5112f5120..b47cfd143 100755 --- a/htdocs/browse/part_svc.cgi +++ b/htdocs/browse/part_svc.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: part_svc.cgi,v 1.9 1999-01-19 05:13:29 ivan Exp $ +# $Id: part_svc.cgi,v 1.10 1999-04-09 03:52:55 ivan Exp $ # # ivan@sisd.com 97-nov-14, 97-dec-9 # @@ -10,7 +10,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_svc.cgi,v $ -# Revision 1.9 1999-01-19 05:13:29 ivan +# Revision 1.10 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.9 1999/01/19 05:13:29 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -57,7 +60,7 @@ print $cgi->header( '-expires' => 'now' ), header('Service Part Listing', menuba )),<
END -print table, < Service Table diff --git a/htdocs/browse/svc_acct_pop.cgi b/htdocs/browse/svc_acct_pop.cgi index 5f4126137..d0a51b323 100755 --- a/htdocs/browse/svc_acct_pop.cgi +++ b/htdocs/browse/svc_acct_pop.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct_pop.cgi,v 1.5 1999-01-19 05:13:30 ivan Exp $ +# $Id: svc_acct_pop.cgi,v 1.6 1999-04-09 03:52:55 ivan Exp $ # # ivan@sisd.com 98-mar-8 # @@ -10,7 +10,10 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: svc_acct_pop.cgi,v $ -# Revision 1.5 1999-01-19 05:13:30 ivan +# Revision 1.6 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.5 1999/01/19 05:13:30 ivan # for mod_perl: no more top-level my() variables; use vars instead # also the last s/create/new/; # @@ -42,7 +45,7 @@ $p = popurl(2); print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar( 'Main Menu' => $p, -)), "Points of Presence

", table, <
", &table, < City diff --git a/htdocs/edit/cust_main.cgi b/htdocs/edit/cust_main.cgi index 233fff2a2..d144beba6 100755 --- a/htdocs/edit/cust_main.cgi +++ b/htdocs/edit/cust_main.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main.cgi,v 1.12 1999-04-06 11:16:16 ivan Exp $ +# $Id: cust_main.cgi,v 1.13 1999-04-09 03:52:55 ivan Exp $ # # Usage: cust_main.cgi custnum # http://server.name/path/cust_main.cgi?custnum @@ -38,7 +38,10 @@ # fixed one missed day->daytime ivan@sisd.com 98-jul-13 # # $Log: cust_main.cgi,v $ -# Revision 1.12 1999-04-06 11:16:16 ivan +# Revision 1.13 1999-04-09 03:52:55 ivan +# explicit & for table/itable/ntable +# +# Revision 1.12 1999/04/06 11:16:16 ivan # give a meaningful error message if you try to create a customer before you've # created an agent # @@ -211,7 +214,7 @@ if ( $custnum ) { $cust_main->zip, ); -print "

Contact information", itable("#c0c0c0"), <
Contact information", &itable("#c0c0c0"), <${r}Contact name
(last, first), SS# Company ${r}Address @@ -274,7 +277,7 @@ sub expselect { $return; } -print "
Billing information", itable("#c0c0c0"), +print "
Billing information", &itable("#c0c0c0"), qq!tax eq "Y"; print qq!>Tax Exempt!; @@ -288,7 +291,7 @@ print qq!Email invoice Billing type", "", - table("#c0c0c0"), ""; + &table("#c0c0c0"), ""; ($payinfo, $payname)=( $cust_main->payinfo, @@ -375,7 +378,7 @@ unless ( $custnum ) { if ( @part_pkg ) { - print "

First package", itable("#c0c0c0"), + print "

First package", &itable("#c0c0c0"), qq!', +print &table, 'Table