diff options
Diffstat (limited to 'htdocs/browse')
-rwxr-xr-x | htdocs/browse/agent.cgi | 16 | ||||
-rwxr-xr-x | htdocs/browse/agent_type.cgi | 14 | ||||
-rwxr-xr-x | htdocs/browse/cust_main_county.cgi | 14 | ||||
-rwxr-xr-x | htdocs/browse/part_pkg.cgi | 14 | ||||
-rwxr-xr-x | htdocs/browse/part_referral.cgi | 14 | ||||
-rwxr-xr-x | htdocs/browse/part_svc.cgi | 14 | ||||
-rwxr-xr-x | htdocs/browse/svc_acct_pop.cgi | 14 |
7 files changed, 64 insertions, 36 deletions
diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi index 446401eca..1b459df95 100755 --- a/htdocs/browse/agent.cgi +++ b/htdocs/browse/agent.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: agent.cgi,v 1.9 1999-01-18 09:41:14 ivan Exp $ +# $Id: agent.cgi,v 1.10 1999-01-19 05:13:24 ivan Exp $ # # ivan@sisd.com 97-dec-12 # @@ -15,7 +15,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: agent.cgi,v $ -# Revision 1.9 1999-01-18 09:41:14 ivan +# Revision 1.10 1999-01-19 05:13:24 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.9 1999/01/18 09:41:14 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -42,6 +46,7 @@ # use strict; +use vars qw( $ui $cgi $p $agent ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup swapuid); @@ -55,7 +60,7 @@ use FS::agent_type; use FS::UI::CGI; use FS::UI::agent; -my $ui = new FS::UI::agent; +$ui = new FS::UI::agent; $ui->browse; exit; @@ -63,11 +68,11 @@ exit; __END__ -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); -my($p)=popurl(2); +$p = popurl(2); print $cgi->header( '-expires' => 'now' ), header('Agent Listing', menubar( 'Main Menu' => $p, @@ -88,7 +93,6 @@ END # <TH><FONT SIZE=-1>Agent #</FONT></TH> # <TH>Agent</TH> -my($agent); foreach $agent ( sort { $a->getfield('agentnum') <=> $b->getfield('agentnum') } qsearch('agent',{}) ) { diff --git a/htdocs/browse/agent_type.cgi b/htdocs/browse/agent_type.cgi index 8bbf1e291..ff3a68cf6 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.4 1999-01-18 09:41:15 ivan Exp $ +# $Id: agent_type.cgi,v 1.5 1999-01-19 05:13:25 ivan Exp $ # # ivan@sisd.com 97-dec-10 # @@ -11,7 +11,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: agent_type.cgi,v $ -# Revision 1.4 1999-01-18 09:41:15 ivan +# Revision 1.5 1999-01-19 05:13:25 ivan +# for mod_perl: no more top-level my() variables; use vars instead +# also the last s/create/new/; +# +# Revision 1.4 1999/01/18 09:41:15 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -23,6 +27,7 @@ # use strict; +use vars qw( $cgi $p $agent_type ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup swapuid); @@ -32,11 +37,11 @@ use FS::agent_type; use FS::type_pkgs; use FS::part_pkg; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); -my($p)=popurl(2); +$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". @@ -47,7 +52,6 @@ print $cgi->header( '-expires' => 'now' ), header("Agent Type Listing", menubar( </TR> END -my($agent_type); foreach $agent_type ( sort { $a->getfield('typenum') <=> $b->getfield('typenum') } qsearch('agent_type',{}) ) { diff --git a/htdocs/browse/cust_main_county.cgi b/htdocs/browse/cust_main_county.cgi index 728f1d937..0e899f246 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.4 1999-01-18 09:41:16 ivan Exp $ +# $Id: cust_main_county.cgi,v 1.5 1999-01-19 05:13:26 ivan Exp $ # # ivan@sisd.com 97-dec-13 # @@ -10,7 +10,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: cust_main_county.cgi,v $ -# Revision 1.4 1999-01-18 09:41:16 ivan +# 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/; +# +# Revision 1.4 1999/01/18 09:41:16 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -22,6 +26,7 @@ # use strict; +use vars qw( $cgi $p $cust_main_county ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup swapuid); @@ -29,11 +34,11 @@ use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header menubar popurl table); use FS::cust_main_county; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); -my($p) = popurl(2); +$p = popurl(2); print $cgi->header( '-expires' => 'now' ), header("Tax Rate Listing", menubar( 'Main Menu' => $p, @@ -52,7 +57,6 @@ print table, <<END; </TR> END -my($cust_main_county); foreach $cust_main_county ( qsearch('cust_main_county',{}) ) { my($hashref)=$cust_main_county->hashref; print <<END; diff --git a/htdocs/browse/part_pkg.cgi b/htdocs/browse/part_pkg.cgi index 22d8b9a15..413a108cf 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.5 1999-01-18 09:41:17 ivan Exp $ +# $Id: part_pkg.cgi,v 1.6 1999-01-19 05:13:27 ivan Exp $ # # ivan@sisd.com 97-dec-5,9 # @@ -10,7 +10,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_pkg.cgi,v $ -# Revision 1.5 1999-01-18 09:41:17 ivan +# 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/; +# +# Revision 1.5 1999/01/18 09:41:17 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -25,6 +29,7 @@ # use strict; +use vars qw( $cgi $p $part_pkg ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup swapuid); @@ -34,11 +39,11 @@ use FS::part_pkg; use FS::pkg_svc; use FS::part_svc; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); -my $p = popurl(2); +$p = popurl(2); print $cgi->header( '-expires' => 'now' ), header("Package Part Listing",menubar( 'Main Menu' => $p, @@ -57,7 +62,6 @@ print $cgi->header( '-expires' => 'now' ), header("Package Part Listing",menubar </TR> END -my($part_pkg); foreach $part_pkg ( sort { $a->getfield('pkgpart') <=> $b->getfield('pkgpart') } qsearch('part_pkg',{}) ) { diff --git a/htdocs/browse/part_referral.cgi b/htdocs/browse/part_referral.cgi index 859995af0..e3360567c 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.6 1999-01-18 09:41:18 ivan Exp $ +# $Id: part_referral.cgi,v 1.7 1999-01-19 05:13:28 ivan Exp $ # # ivan@sisd.com 98-feb-23 # @@ -10,7 +10,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_referral.cgi,v $ -# Revision 1.6 1999-01-18 09:41:18 ivan +# 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/; +# +# Revision 1.6 1999/01/18 09:41:18 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -28,6 +32,7 @@ # use strict; +use vars qw( $cgi $p $part_referral ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup swapuid); @@ -35,11 +40,11 @@ use FS::Record qw(qsearch); use FS::CGI qw(header menubar popurl table); use FS::part_referral; -my $cgi = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); -my $p = popurl(2); +$p = popurl(2); print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar( 'Main Menu' => $p, @@ -50,7 +55,6 @@ print $cgi->header( '-expires' => 'now' ), header("Referral Listing", menubar( </TR> END -my($part_referral); foreach $part_referral ( sort { $a->getfield('refnum') <=> $b->getfield('refnum') } qsearch('part_referral',{}) ) { diff --git a/htdocs/browse/part_svc.cgi b/htdocs/browse/part_svc.cgi index 38c05cb7c..5112f5120 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.8 1999-01-18 09:41:19 ivan Exp $ +# $Id: part_svc.cgi,v 1.9 1999-01-19 05:13:29 ivan Exp $ # # ivan@sisd.com 97-nov-14, 97-dec-9 # @@ -10,7 +10,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: part_svc.cgi,v $ -# Revision 1.8 1999-01-18 09:41:19 ivan +# 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/; +# +# Revision 1.8 1999/01/18 09:41:19 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -34,6 +38,7 @@ # use strict; +use vars qw( $cgi $p $part_svc ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); @@ -41,11 +46,11 @@ use FS::Record qw(qsearch fields); use FS::part_svc; use FS::CGI qw(header menubar popurl table); -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); -my $p = popurl(2); +$p = popurl(2); print $cgi->header( '-expires' => 'now' ), header('Service Part Listing', menubar( 'Main Menu' => $p, @@ -61,7 +66,6 @@ print table, <<END; </TR> END -my($part_svc); foreach $part_svc ( sort { $a->getfield('svcpart') <=> $b->getfield('svcpart') } qsearch('part_svc',{}) ) { diff --git a/htdocs/browse/svc_acct_pop.cgi b/htdocs/browse/svc_acct_pop.cgi index b172e78ea..5f4126137 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.4 1999-01-18 09:41:20 ivan Exp $ +# $Id: svc_acct_pop.cgi,v 1.5 1999-01-19 05:13:30 ivan Exp $ # # ivan@sisd.com 98-mar-8 # @@ -10,7 +10,11 @@ # lose background, FS::CGI ivan@sisd.com 98-sep-2 # # $Log: svc_acct_pop.cgi,v $ -# Revision 1.4 1999-01-18 09:41:20 ivan +# 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/; +# +# Revision 1.4 1999/01/18 09:41:20 ivan # all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl # (good idea anyway) # @@ -22,6 +26,7 @@ # use strict; +use vars qw( $cgi $p $svc_acct_pop ); use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup swapuid); @@ -29,11 +34,11 @@ use FS::Record qw(qsearch qsearchs); use FS::CGI qw(header menubar table popurl); use FS::svc_acct_pop; -my($cgi) = new CGI; +$cgi = new CGI; &cgisuidsetup($cgi); -my $p = popurl(2); +$p = popurl(2); print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar( 'Main Menu' => $p, @@ -47,7 +52,6 @@ print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar( </TR> END -my($svc_acct_pop); foreach $svc_acct_pop ( sort { $a->getfield('popnum') <=> $b->getfield('popnum') } qsearch('svc_acct_pop',{}) ) { |