diff options
| author | ivan <ivan> | 1998-11-13 09:56:57 +0000 |
|---|---|---|
| committer | ivan <ivan> | 1998-11-13 09:56:57 +0000 |
| commit | 0bf5ad9ff0a65195db88ed0bac3aa11c33ec1ad3 (patch) | |
| tree | e1f4e0dd775f4b4c82f23140f27609d26216f9fe /htdocs/view/cust_pkg.cgi | |
| parent | f6ef3dec7840be2e7ac7c39bed32a7ea68425b2d (diff) | |
change configuration file layout to support multiple distinct databases (with
own set of config files, export, etc.)
Diffstat (limited to 'htdocs/view/cust_pkg.cgi')
| -rwxr-xr-x | htdocs/view/cust_pkg.cgi | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/htdocs/view/cust_pkg.cgi b/htdocs/view/cust_pkg.cgi index 04e38326a..d7269281f 100755 --- a/htdocs/view/cust_pkg.cgi +++ b/htdocs/view/cust_pkg.cgi @@ -24,22 +24,29 @@ # ivan@voicenet.com 97-jul-29 # # no FS::Search ivan@sisd.com 98-mar-7 +# +# $Log: cust_pkg.cgi,v $ +# Revision 1.2 1998-11-13 09:56:49 ivan +# change configuration file layout to support multiple distinct databases (with +# own set of config files, export, etc.) +# use strict; use Date::Format; -use CGI::Base qw(:DEFAULT :CGI); # CGI module +use CGI; +use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup); +use FS::CGI qw(url); use FS::Record qw(qsearch qsearchs); -my($cgi) = new CGI::Base; -$cgi->get; -&cgisuidsetup($cgi); +my($cgi) = new CGI; +cgisuidsetup($cgi); my(%uiview,%uiadd); my($part_svc); foreach $part_svc ( qsearch('part_svc',{}) ) { - $uiview{$part_svc->svcpart}="../view/". $part_svc->svcdb . ".cgi"; - $uiadd{$part_svc->svcpart}="../edit/". $part_svc->svcdb . ".cgi"; + $uiview{$part_svc->svcpart} = url(1). "/view/". $part_svc->svcdb . ".cgi"; + $uiadd{$part_svc->svcpart}= url(1). "/edit/". $part_svc->svcdb . ".cgi"; } SendHeaders(); # one guess. |