From b6869885e52ea0e18009350bf59d4eca8aafb0eb Mon Sep 17 00:00:00 2001 From: ivan Date: Thu, 17 Dec 1998 06:17:12 +0000 Subject: fix double // in relative URLs, s/CGI::Base/CGI/; --- htdocs/edit/svc_domain.cgi | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) (limited to 'htdocs/edit/svc_domain.cgi') diff --git a/htdocs/edit/svc_domain.cgi b/htdocs/edit/svc_domain.cgi index dd436334c..3d0a2e723 100755 --- a/htdocs/edit/svc_domain.cgi +++ b/htdocs/edit/svc_domain.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# svc_domain.cgi: Add domain (output form) +# $Id: svc_domain.cgi,v 1.3 1998-12-17 06:17:12 ivan Exp $ # # Usage: svc_domain.cgi pkgnum{pkgnum}-svcpart{svcpart} # http://server.name/path/svc_domain.cgi?pkgnum{pkgnum}-svcpart{svcpart} @@ -17,7 +17,10 @@ # no GOV in instructions ivan@sisd.com 98-jul-17 # # $Log: svc_domain.cgi,v $ -# Revision 1.2 1998-11-13 09:56:48 ivan +# Revision 1.3 1998-12-17 06:17:12 ivan +# fix double // in relative URLs, s/CGI::Base/CGI/; +# +# Revision 1.2 1998/11/13 09:56:48 ivan # change configuration file layout to support multiple distinct databases (with # own set of config files, export, etc.) # @@ -26,6 +29,7 @@ use strict; use CGI; use CGI::Carp qw(fatalsToBrowser); use FS::UID qw(cgisuidsetup getotaker); +use FS::CGI qw(header popurl); use FS::Record qw(qsearch qsearchs); use FS::svc_domain qw(fields); @@ -84,16 +88,9 @@ my($domain)=( $svc_domain->domain, ); -print $cgi->header, < - - $action $svc - - - -