X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fsvc_domain.cgi;h=d20e1f33641da85e6541af58e40f837b09541d23;hb=1858140b774bfe3a694a2ededf70de797da31c51;hp=8ffc9d789c7ea70cf9ea5fe687a3ef20b7bf542d;hpb=3d671921441ba8422650b54435a1959ad1d4c71d;p=freeside.git
diff --git a/httemplate/edit/svc_domain.cgi b/httemplate/edit/svc_domain.cgi
index 8ffc9d789..d20e1f336 100755
--- a/httemplate/edit/svc_domain.cgi
+++ b/httemplate/edit/svc_domain.cgi
@@ -1,19 +1,8 @@
+
<%
-#
-
-use strict;
-use vars qw( $cgi $action $svcnum $svc_domain $pkgnum $svcpart $part_svc
- $svc $otaker $domain $p1 $kludge_action $purpose );
-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 fields);
-use FS::svc_domain;
-
-$cgi = new CGI;
-&cgisuidsetup($cgi);
+my($svcnum, $pkgnum, $svcpart, $kludge_action, $purpose, $part_svc,
+ $svc_domain);
if ( $cgi->param('error') ) {
$svc_domain = new FS::svc_domain ( {
map { $_, scalar($cgi->param($_)) } fields('svc_domain')
@@ -57,25 +46,27 @@ if ( $cgi->param('error') ) {
$svcnum='';
#set fixed and default fields from part_svc
- my($field);
- foreach $field ( fields('svc_domain') ) {
- if ( $part_svc->getfield('svc_domain__'. $field. '_flag') ne '' ) {
- $svc_domain->setfield($field,$part_svc->getfield('svc_domain__'. $field) );
- }
+ foreach my $part_svc_column (
+ grep { $_->columnflag } $part_svc->all_part_svc_column
+ ) {
+ $svc_domain->setfield( $part_svc_column->columnname,
+ $part_svc_column->columnvalue,
+ );
}
}
+
}
-$action = $svcnum ? 'Edit' : 'Add';
+my $action = $svcnum ? 'Edit' : 'Add';
-$svc = $part_svc->getfield('svc');
+my $svc = $part_svc->getfield('svc');
-$otaker = getotaker;
+my $otaker = getotaker;
-$domain = $svc_domain->domain;
+my $domain = $svc_domain->domain;
-$p1 = popurl(1);
-print $cgi->header( '-expires' => 'now' ), header("$action $svc", '');
+my $p1 = popurl(1);
+print header("$action $svc", '');
print qq!Error: !, $cgi->param('error'),
" "
@@ -98,19 +89,7 @@ print qq!>Transfer!;
print <Domain
Purpose/Description:
-
-
- COM is for commercial, for-profit organziations
- ORG is for miscellaneous, usually, non-profit organizations
- NET is for network infrastructure machines and organizations
- EDU is for 4-year, degree granting institutions
-
-
-US state and local government agencies, schools, libraries, museums, and individuals should register under the US domain. See RFC 1480 for a complete description of the US domain
-and registration procedures.
-
+