diff options
Diffstat (limited to 'httemplate')
-rw-r--r-- | httemplate/edit/svc_www.cgi | 15 | ||||
-rw-r--r-- | httemplate/view/svc_www.cgi | 22 |
2 files changed, 23 insertions, 14 deletions
diff --git a/httemplate/edit/svc_www.cgi b/httemplate/edit/svc_www.cgi index ad69d4db6..30d98f08b 100644 --- a/httemplate/edit/svc_www.cgi +++ b/httemplate/edit/svc_www.cgi @@ -188,13 +188,16 @@ %} %print "</SELECT></TD></TR>"; % -%print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>'; -%print '<OPTION VALUE="">(none)'; -%foreach $_ (keys %svc_acct) { -% print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "", -% qq! VALUE="$_">$svc_acct{$_}!; +%if ( $part_svc->part_svc_column('usersvc')->columnflag ne 'F' +% || $part_svc->part_svc_column('usersvc')->columnvalue !~ /^\s*$/) { +% print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>'; +% print '<OPTION VALUE="">(none)'; +% foreach $_ (keys %svc_acct) { +% print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "", +% qq! VALUE="$_">$svc_acct{$_}!; +% } +% print "</SELECT></TD></TR>"; %} -%print "</SELECT></TD></TR>"; % %foreach my $field ($svc_www->virtual_fields) { % if ( $part_svc->part_svc_column($field)->columnflag ne 'F' ) { diff --git a/httemplate/view/svc_www.cgi b/httemplate/view/svc_www.cgi index f2be5c717..f499a3fb5 100644 --- a/httemplate/view/svc_www.cgi +++ b/httemplate/view/svc_www.cgi @@ -20,6 +20,9 @@ %} %#eofalse % +%my $part_svc=qsearchs('part_svc',{'svcpart'=>$cust_svc->svcpart}) +% or die "svc_www: Unknown svcpart" . $cust_svc->svcpart; + %my $usersvc = $svc_www->usersvc; %my $svc_acct = ''; %my $email = ''; @@ -48,17 +51,20 @@ % qq!<TR><TD ALIGN="right">Service number</TD>!. % qq!<TD BGCOLOR="#ffffff">$svcnum</TD></TR>!. % qq!<TR><TD ALIGN="right">Website name</TD>!. -% qq!<TD BGCOLOR="#ffffff"><A HREF="http://$www">$www<A></TD></TR>!. -% qq!<TR><TD ALIGN="right">Account</TD>!. +% qq!<TD BGCOLOR="#ffffff"><A HREF="http://$www">$www<A></TD></TR>!; +%if ( $part_svc->part_svc_column('usersvc')->columnflag ne 'F' +% || $part_svc->part_svc_column('usersvc')->columnvalue !~ /^\s*$/) { +% print qq!<TR><TD ALIGN="right">Account</TD>!. % qq!<TD BGCOLOR="#ffffff">!; % -%if ( $usersvc ) { -% print qq!<A HREF="${p}view/svc_acct.cgi?$usersvc">$email</A>!; -%} else { -% print '</i>(none)</i>'; -%} +% if ( $usersvc ) { +% print qq!<A HREF="${p}view/svc_acct.cgi?$usersvc">$email</A>!; +% } else { +% print '</i>(none)</i>'; +% } % -%print '</TD></TR>'; +% print '</TD></TR>'; +%} % %foreach (sort { $a cmp $b } $svc_www->virtual_fields) { % print $svc_www->pvf($_)->widget('HTML', 'view', $svc_www->getfield($_)), |