diff options
| author | ivan <ivan> | 2004-05-06 22:18:24 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2004-05-06 22:18:24 +0000 |
| commit | 2a3703dad2a512c709152c1a8d99acbe6c27b668 (patch) | |
| tree | 0099d39855e12abfe3c359683c63c24fba8d851a /httemplate | |
| parent | 27bf0365cef058944b8d71379af45d514e0b0c36 (diff) | |
show service name and fully-qualified address on service add
Diffstat (limited to 'httemplate')
| -rw-r--r-- | httemplate/edit/svc_www.cgi | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/httemplate/edit/svc_www.cgi b/httemplate/edit/svc_www.cgi index ec5169e05..e13bb44c0 100644 --- a/httemplate/edit/svc_www.cgi +++ b/httemplate/edit/svc_www.cgi @@ -53,7 +53,7 @@ if ( $cgi->param('error') ) { } my $action = $svc_www->svcnum ? 'Edit' : 'Add'; -my( %username, %arec ); +my( %svc_acct, %arec ); if ($pkgnum) { my($u_part_svc,@u_acct_svcparts); @@ -73,7 +73,8 @@ if ($pkgnum) { my($i_cust_svc); foreach $i_cust_svc ( qsearch('cust_svc',{'pkgnum'=>$cust_pkgnum,'svcpart'=>$acct_svcpart}) ) { my($svc_acct)=qsearchs('svc_acct',{'svcnum'=>$i_cust_svc->getfield('svcnum')}); - $username{$svc_acct->getfield('svcnum')}=$svc_acct->getfield('username'); + $svc_acct{$svc_acct->getfield('svcnum')}= + $svc_acct->part-svc->svc. ': '. $svc_acct->email; } } } @@ -161,9 +162,9 @@ foreach $_ (keys %arec) { print "</SELECT></TD></TR>"; print '<TR><TD ALIGN="right">Username</TD><TD><SELECT NAME="usersvc" SIZE=1>'; -foreach $_ (keys %username) { +foreach $_ (keys %svc_acct) { print "<OPTION", ($_ eq $usersvc) ? " SELECTED" : "", - qq! VALUE="$_">$username{$_}!; + qq! VALUE="$_">$svc_acct{$_}!; } print "</SELECT></TD></TR>"; |