<% # 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); if ( $cgi->param('error') ) { $svc_domain = new FS::svc_domain ( { map { $_, scalar($cgi->param($_)) } fields('svc_domain') } ); $svcnum = $svc_domain->svcnum; $pkgnum = $cgi->param('pkgnum'); $svcpart = $cgi->param('svcpart'); $kludge_action = $cgi->param('action'); $purpose = $cgi->param('purpose'); $part_svc = qsearchs('part_svc', { 'svcpart' => $svcpart } ); die "No part_svc entry!" unless $part_svc; } else { $kludge_action = ''; $purpose = ''; my($query) = $cgi->keywords; if ( $query =~ /^(\d+)$/ ) { #editing $svcnum=$1; $svc_domain=qsearchs('svc_domain',{'svcnum'=>$svcnum}) or die "Unknown (svc_domain) svcnum!"; my($cust_svc)=qsearchs('cust_svc',{'svcnum'=>$svcnum}) or die "Unknown (cust_svc) svcnum!"; $pkgnum=$cust_svc->pkgnum; $svcpart=$cust_svc->svcpart; $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); die "No part_svc entry!" unless $part_svc; } else { #adding $svc_domain = new FS::svc_domain({}); foreach $_ (split(/-/,$query)) { $pkgnum=$1 if /^pkgnum(\d+)$/; $svcpart=$1 if /^svcpart(\d+)$/; } $part_svc=qsearchs('part_svc',{'svcpart'=>$svcpart}); die "No part_svc entry!" unless $part_svc; $svcnum=''; #set fixed and default fields from part_svc 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'; $svc = $part_svc->getfield('svc'); $otaker = getotaker; $domain = $svc_domain->domain; $p1 = popurl(1); print $cgi->header( '-expires' => 'now' ), header("$action $svc", ''); print qq!Error: !, $cgi->param('error'), "" if $cgi->param('error'); print < END print qq!New!; print qq!
Transfer!; print <Domain
Purpose/Description:

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. END %>