From 0e4f902285e5d01c51e3b30d65b79ed51ba3e934 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sun, 16 Mar 2008 05:13:54 +0000
Subject: [PATCH] finish bringing sanity to svc_broadband service definition
 blocknum edit

---
 httemplate/edit/part_svc.cgi | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/httemplate/edit/part_svc.cgi b/httemplate/edit/part_svc.cgi
index 4b8a24080..e0fb615b1 100755
--- a/httemplate/edit/part_svc.cgi
+++ b/httemplate/edit/part_svc.cgi
@@ -261,9 +261,10 @@ that field.
 %          if ( $def->{select_table} ) {
 %            foreach my $record ( qsearch( $def->{select_table}, {} ) ) {
 %              my $rvalue = $record->getfield($def->{select_key});
+%              my $select_label = $def->{select_label};
 %              $html .= qq!<OPTION VALUE="$rvalue"!.
 %                  (grep(/^$rvalue$/, split(',',$value)) ? ' SELECTED>' : '>' ).
-%                  $record->getfield($def->{select_label}). '</OPTION>';
+%                  $record->$select_label(). '</OPTION>';
 %            } #next $record
 %          } else { # select_list
 %            foreach my $item ( @{$def->{select_list}} ) {
-- 
2.11.0