X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_www.cgi;h=7a716b4b8b36f6d9d058806141911185ffae137e;hp=86f693201ec35445ed3f264203e508a44519961c;hb=6db0053308daae19135066c5bf4d20e82f0a5780;hpb=6e863af6c6c3ebda89f1da6ca9c3c52fb9b1a54a diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index 86f693201..7a716b4b8 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -20,14 +20,15 @@ if ($pkgnum) { } #eofalse +my $usersvc = $svc_www->usersvc; +my $svc_acct = qsearchs('svc_acct', { 'svcnum' => $usersvc } ) + or die "svc_www: Unknown usersvc $usersvc"; +my $email = $svc_acct->email; + my $domain_record = qsearchs('domain_record', { 'recnum' => $svc_www->recnum } ) - or die "svc_www: Unknown recnum". $svc_www->recnum; + or die "svc_www: Unknown recnum ". $svc_www->recnum; -my $www = $domain_record->reczone; -unless ( $www =~ /\.$/ ) { - my $svc_domain = qsearchs('svc_domain', { svcnum=>$domain_record->svcnum } ); - $www .= '.'. $svc_domain->domain; -} +my $www = $domain_record->zone; print header('Website View', menubar( ( ( $custnum ) @@ -45,7 +46,16 @@ print header('Website View', menubar( qq!$svcnum!. qq!Website name!. qq!$www!. - ''. + qq!Account!. + qq!$email!; + +foreach (sort { $a cmp $b } $svc_www->virtual_fields) { + print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), + "\n"; +} + + +print ''. '
'. joblisting({'svcnum'=>$svcnum}, 1). '' ;