X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fview%2Fsvc_acct.cgi;h=83cea05f71b629b2d210c65e31b1d5e0d6c9f669;hb=5b48183ad64fb7ea119c994ed1a921fcda4a0f9d;hp=599c1d8b9610d1e12b00bfe84341d3ed63dbe811;hpb=0b6bf02cff2b9cffaea70d81de9396a3a4f56b5d;p=freeside.git
diff --git a/httemplate/view/svc_acct.cgi b/httemplate/view/svc_acct.cgi
index 599c1d8b9..83cea05f7 100755
--- a/httemplate/view/svc_acct.cgi
+++ b/httemplate/view/svc_acct.cgi
@@ -172,7 +172,7 @@ if ($svc_acct->slipip) {
: $svc_acct->slipip
). "";
my($attribute);
- foreach $attribute ( grep /^radius_/, fields('svc_acct') ) {
+ foreach $attribute ( grep /^radius_/, $svc_acct->fields ) {
#warn $attribute;
$attribute =~ /^radius_(.*)$/;
my $pattribute = $FS::raddb::attrib{$1};
@@ -180,7 +180,7 @@ if ($svc_acct->slipip) {
"
". $svc_acct->getfield($attribute).
" | ";
}
- foreach $attribute ( grep /^rc_/, fields('svc_acct') ) {
+ foreach $attribute ( grep /^rc_/, $svc_acct->fields ) {
#warn $attribute;
$attribute =~ /^rc_(.*)$/;
my $pattribute = $FS::raddb::attrib{$1};
@@ -195,7 +195,24 @@ if ($svc_acct->slipip) {
print 'RADIUS groups | '.
join(' ', $svc_acct->radius_groups). ' |
';
-print '
';
+# Can this be abstracted further? Maybe a library function like
+# widget('HTML', 'view', $svc_acct) ? It would definitely make UI
+# style management easier.
+
+foreach (sort { $a cmp $b } $svc_acct->virtual_fields) {
+ print $svc_acct->pvf($_)->widget('HTML', 'view', $svc_acct->getfield($_)),
+ "\n";
+}
+%>
+
+<%
+foreach (sort { $a cmp $b } keys(%{$sb_field})) {
+ print q!! . $_ .
+ q! | ! . $sb_field->{$_} .
+ q! |
!;
+}
+
+print '
';
print join("\n", $conf->config('svc_acct-notes') ). '
'.
joblisting({'svcnum'=>$svcnum}, 1). '