diff options
| author | ivan <ivan> | 1999-01-18 09:22:42 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1999-01-18 09:22:42 +0000 |
| commit | c93520accf00e15095e7af5fcb59caed2bd9e556 (patch) | |
| tree | 0fb501a33e9b55ba467a0a516ad1d90363342a83 /htdocs/view | |
| parent | e74e6d0896eae348d54dbd6e436f37a2a0e69389 (diff) | |
changes to track email addresses for email invoicing
Diffstat (limited to 'htdocs/view')
| -rwxr-xr-x | htdocs/view/cust_main.cgi | 9 | ||||
| -rwxr-xr-x | htdocs/view/svc_acct.cgi | 21 |
2 files changed, 21 insertions, 9 deletions
diff --git a/htdocs/view/cust_main.cgi b/htdocs/view/cust_main.cgi index 8e6145519..0f7a3f4d3 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.7 1998-12-30 23:03:34 ivan Exp $ +# $Id: cust_main.cgi,v 1.8 1999-01-18 09:22:35 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.7 1998-12-30 23:03:34 ivan +# Revision 1.8 1999-01-18 09:22:35 ivan +# changes to track email addresses for email invoicing +# +# 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 @@ -100,7 +103,7 @@ print qq!<HR><CENTER><A HREF="!, popurl(2), qq!/misc/bill.cgi?$custnum">!, #formatting print qq!<HR><A NAME="cust_main"><CENTER><FONT SIZE=+1>Customer Information!, qq!</FONT>!, - qq!<BR><A HREF="!, popurl(2), qq!/edit/cust_main.cgi?$custnum!, + qq!<BR><A HREF="!, popurl(2), qq!edit/cust_main.cgi?$custnum!, qq!">Edit this information</A></CENTER><FONT SIZE=-1>!; #agentnum diff --git a/htdocs/view/svc_acct.cgi b/htdocs/view/svc_acct.cgi index e658d2bb8..66ae2d1e9 100755 --- a/htdocs/view/svc_acct.cgi +++ b/htdocs/view/svc_acct.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct.cgi,v 1.4 1998-12-23 03:09:19 ivan Exp $ +# $Id: svc_acct.cgi,v 1.5 1999-01-18 09:22:36 ivan Exp $ # # Usage: svc_acct.cgi svcnum # http://server.name/path/svc_acct.cgi?svcnum @@ -35,7 +35,10 @@ # displays arbitrary radius attributes ivan@sisd.com 98-aug-16 # # $Log: svc_acct.cgi,v $ -# Revision 1.4 1998-12-23 03:09:19 ivan +# Revision 1.5 1999-01-18 09:22:36 ivan +# changes to track email addresses for email invoicing +# +# Revision 1.4 1998/12/23 03:09:19 ivan # $cgi->keywords instead of $cgi->query_string # # Revision 1.3 1998/12/17 09:57:23 ivan @@ -46,12 +49,18 @@ # use strict; -use vars qw($conf); +use vars qw( $conf ); use CGI; -use CGI::Carp qw(fatalsToBrowser); -use FS::UID qw(cgisuidsetup); -use FS::Record qw(qsearchs fields); +use CGI::Carp qw( fatalsToBrowser ); +use FS::UID qw( cgisuidsetup ); +use FS::CGI qw( header popurl ); +use FS::Record qw( qsearchs fields ); use FS::Conf; +use FS::svc_acct; +use FS::cust_svc; +use FS::cust_pkg; +use FS::part_svc; +use FS::svc_acct_pop; my($cgi) = new CGI; &cgisuidsetup($cgi); |