X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_domain.cgi;h=cd9f79d3643731e7acf4f229cda62963e44203a5;hb=6a953c149c5f4423cafc510e34c60b41bd7d0ef9;hp=28214f04efd530c4bd59c94698982ae5de938253;hpb=23186f0338ec248d930c85db08cc997bca42525b;p=freeside.git diff --git a/httemplate/view/svc_domain.cgi b/httemplate/view/svc_domain.cgi index 28214f04e..cd9f79d36 100755 --- a/httemplate/view/svc_domain.cgi +++ b/httemplate/view/svc_domain.cgi @@ -30,52 +30,79 @@ if ($svc_domain->catchall) { my $domain = $svc_domain->domain; -print header('Domain View', menubar( +%> + +<%= header('Domain View', menubar( ( ( $pkgnum || $custnum ) - ? ( "View this package (#$pkgnum)" => "${p}view/cust_pkg.cgi?$pkgnum", - "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", + ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", ) : ( "Cancel this (unaudited) domain" => "${p}misc/cancel-unaudited.cgi?$svcnum" ) ), "Main menu" => $p, -)), - "Service #$svcnum", - "Service: ", $part_svc->svc, "", - "Domain name: $domain.", - qq!Catch all email (change):!, - $email ? "$email." : "(none)", - qq!View whois information.!, - '', - '', - ntable("",2), - 'ZoneTypeData', -; +)) %> +Service #<%= $svcnum %> +Service: <%= $part_svc->svc %> +Domain name: <%= $domain %> +Catch all email (change): +<%= $email ? "$email" : "(none)" %> +View whois information. + + -foreach my $domain_record ( $svc_domain->domain_record ) { - print ''. $domain_record->reczone. ''. - ''. $domain_record->recaf. ' '. $domain_record->rectype. ''. - ''. $domain_record->recdata; - print qq! (delete)! - unless $domain_record->rectype eq 'SOA'; - print ''; -} -print ''. - qq!!. - qq!!. - ' '. - 'IN '. - ''. - join('', map qq!$_!, qw(A NS CNAME MX) ). - ''. - ' '. - ''. joblisting({'svcnum'=>$svcnum}, 1). - '