remove

[freeside.git] / httemplate / edit / process / svc_domain.cgi

diff --git a/httemplate/edit/process/svc_domain.cgi b/httemplate/edit/process/svc_domain.cgi
index e52b68a..0b7ec49 100755 (executable)
--- a/httemplate/edit/process/svc_domain.cgi
+++ b/httemplate/edit/process/svc_domain.cgi
@@ -1,31 +1,20 @@
+<!-- $Id: svc_domain.cgi,v 1.3 2002-01-30 14:18:09 ivan Exp $ -->

 <%
 <%

-#<!-- $Id: svc_domain.cgi,v 1.2 2001-08-21 02:31:56 ivan Exp $ -->
-
-use strict;
-use vars qw( $cgi $svcnum $new $error );
-use CGI;
-use CGI::Carp qw(fatalsToBrowser);
-use FS::UID qw(cgisuidsetup);
-use FS::Record qw(qsearchs fields);
-use FS::svc_domain;
-use FS::CGI qw(popurl);

 
 #remove this to actually test the domains!
 $FS::svc_domain::whois_hack = 1;
 
 
 #remove this to actually test the domains!
 $FS::svc_domain::whois_hack = 1;
 

-$cgi = new CGI;
-&cgisuidsetup($cgi);
-

 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";
 $cgi->param('svcnum') =~ /^(\d*)$/ or die "Illegal svcnum!";

-$svcnum = $1;
+my $svcnum = $1;

 
 

-$new = new FS::svc_domain ( {
+my $new = new FS::svc_domain ( {

   map {
     $_, scalar($cgi->param($_));
   #} qw(svcnum pkgnum svcpart domain action purpose)
   } ( fields('svc_domain'), qw( pkgnum svcpart action purpose ) )
 } );
 
   map {
     $_, scalar($cgi->param($_));
   #} qw(svcnum pkgnum svcpart domain action purpose)
   } ( fields('svc_domain'), qw( pkgnum svcpart action purpose ) )
 } );
 

+my $error = '';

 if ($cgi->param('svcnum')) {
   $error="Can't modify a domain!";
 } else {
 if ($cgi->param('svcnum')) {
   $error="Can't modify a domain!";
 } else {