7 files changed, 49 insertions, 21 deletions
diff --git a/htdocs/browse/agent.cgi b/htdocs/browse/agent.cgi
index 442ea6ee0..446401eca 100755
--- a/htdocs/browse/agent.cgi
+++ b/htdocs/browse/agent.cgi
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -Tw
 #
-# $Id: agent.cgi,v 1.8 1999-01-18 09:22:26 ivan Exp $
+# $Id: agent.cgi,v 1.9 1999-01-18 09:41:14 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.8  1999-01-18 09:22:26  ivan
+# Revision 1.9  1999-01-18 09:41:14  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.8  1999/01/18 09:22:26  ivan
 # changes to track email addresses for email invoicing
 #
 # Revision 1.7  1998/12/17 05:25:16  ivan
@@ -65,7 +69,7 @@ my($cgi) = new CGI;
 
 my($p)=popurl(2);
 
-print $cgi->header, header('Agent Listing', menubar(
+print $cgi->header( '-expires' => 'now' ), header('Agent Listing', menubar(
   'Main Menu'   => $p,
   'Agent Types' => $p. 'browse/agent_type.cgi',
 #  'Add new agent' => '../edit/agent.cgi'
diff --git a/htdocs/browse/agent_type.cgi b/htdocs/browse/agent_type.cgi
index a1fa3b28e..8bbf1e291 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.3 1998-12-17 05:25:17 ivan Exp $
+# $Id: agent_type.cgi,v 1.4 1999-01-18 09:41:15 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.3  1998-12-17 05:25:17  ivan
+# Revision 1.4  1999-01-18 09:41:15  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3  1998/12/17 05:25:17  ivan
 # fix visual and other bugs
 #
 # Revision 1.2  1998/11/21 07:39:52  ivan
@@ -33,7 +37,7 @@ my($cgi) = new CGI;
 &cgisuidsetup($cgi);
 
 my($p)=popurl(2);
-print $cgi->header, header("Agent Type Listing", menubar(
+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.<BR><BR>", table, <<END;
diff --git a/htdocs/browse/cust_main_county.cgi b/htdocs/browse/cust_main_county.cgi
index fc0935515..728f1d937 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.3 1998-12-17 05:25:18 ivan Exp $
+# $Id: cust_main_county.cgi,v 1.4 1999-01-18 09:41:16 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.3  1998-12-17 05:25:18  ivan
+# Revision 1.4  1999-01-18 09:41:16  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3  1998/12/17 05:25:18  ivan
 # fix visual and other bugs
 #
 # Revision 1.2  1998/11/18 09:01:34  ivan
@@ -31,7 +35,7 @@ my($cgi) = new CGI;
 
 my($p) = popurl(2);
 
-print $cgi->header, header("Tax Rate Listing", menubar(
+print $cgi->header( '-expires' => 'now' ), header("Tax Rate Listing", menubar(
   'Main Menu' => $p,
   'Edit tax rates' => $p. "edit/cust_main_county.cgi",
 )),<<END;
diff --git a/htdocs/browse/part_pkg.cgi b/htdocs/browse/part_pkg.cgi
index 5d4aaa11f..22d8b9a15 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.4 1998-12-17 05:25:19 ivan Exp $
+# $Id: part_pkg.cgi,v 1.5 1999-01-18 09:41:17 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.4  1998-12-17 05:25:19  ivan
+# Revision 1.5  1999-01-18 09:41:17  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.4  1998/12/17 05:25:19  ivan
 # fix visual and other bugs
 #
 # Revision 1.3  1998/11/21 07:23:45  ivan
@@ -36,7 +40,7 @@ my($cgi) = new CGI;
 
 my $p = popurl(2);
 
-print $cgi->header, header("Package Part Listing",menubar(
+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.<BR><BR>", 
diff --git a/htdocs/browse/part_referral.cgi b/htdocs/browse/part_referral.cgi
index b08efdbbc..859995af0 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.5 1998-12-17 05:25:20 ivan Exp $
+# $Id: part_referral.cgi,v 1.6 1999-01-18 09:41:18 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.5  1998-12-17 05:25:20  ivan
+# Revision 1.6  1999-01-18 09:41:18  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.5  1998/12/17 05:25:20  ivan
 # fix visual and other bugs
 #
 # Revision 1.4  1998/12/17 04:32:55  ivan
@@ -37,7 +41,7 @@ my $cgi = new CGI;
 
 my $p = popurl(2);
 
-print $cgi->header, header("Referral Listing", menubar(
+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.<BR><BR>", table, <<END;
diff --git a/htdocs/browse/part_svc.cgi b/htdocs/browse/part_svc.cgi
index 17308ffd5..38c05cb7c 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.7 1998-12-30 23:06:22 ivan Exp $
+# $Id: part_svc.cgi,v 1.8 1999-01-18 09:41:19 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.7  1998-12-30 23:06:22  ivan
+# Revision 1.8  1999-01-18 09:41:19  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.7  1998/12/30 23:06:22  ivan
 # typo
 #
 # Revision 1.6  1998/12/30 23:03:20  ivan
@@ -43,7 +47,7 @@ my($cgi) = new CGI;
 
 my $p = popurl(2);
 
-print $cgi->header, header('Service Part Listing', menubar(
+print $cgi->header( '-expires' => 'now' ), header('Service Part Listing', menubar(
   'Main Menu' => $p,
 )),<<END;
     Services are items you offer to your customers.<BR><BR>
diff --git a/htdocs/browse/svc_acct_pop.cgi b/htdocs/browse/svc_acct_pop.cgi
index 2231aefe2..b172e78ea 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.3 1998-12-17 05:25:22 ivan Exp $
+# $Id: svc_acct_pop.cgi,v 1.4 1999-01-18 09:41:20 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.3  1998-12-17 05:25:22  ivan
+# Revision 1.4  1999-01-18 09:41:20  ivan
+# all $cgi->header calls now include ( '-expires' => 'now' ) for mod_perl
+# (good idea anyway)
+#
+# Revision 1.3  1998/12/17 05:25:22  ivan
 # fix visual and other bugs
 #
 # Revision 1.2  1998/12/17 04:36:59  ivan
@@ -31,7 +35,7 @@ my($cgi) = new CGI;
 
 my $p = popurl(2);
 
-print $cgi->header, header('POP Listing', menubar(
+print $cgi->header( '-expires' => 'now' ), header('POP Listing', menubar(
   'Main Menu' => $p,
 )), "Points of Presence<BR><BR>", table, <<END;
       <TR>