X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUI%2FWeb.pm;h=5e987429ca3b8bbb6dab931f3c47ada821713a48;hb=19145f5b2abf31e5105920516c48ac685c15c513;hp=c9264a044b7b8505f0d8fff7a7b2e2b10ef02189;hpb=7c02bdc86a3b0ca0804f4b0a696ff7d2cdb1f141;p=freeside.git

diff --git a/FS/FS/UI/Web.pm b/FS/FS/UI/Web.pm
index c9264a044..5e987429c 100644
--- a/FS/FS/UI/Web.pm
+++ b/FS/FS/UI/Web.pm
@@ -362,7 +362,6 @@ setting is supplied, the <B>cust-fields</B> configuration value.
 
 =cut
 
-
 sub cust_fields {
   my $record = shift;
   warn "FS::UI::Web::cust_fields called for $record ".
@@ -371,9 +370,8 @@ sub cust_fields {
 
   #cust_header(@_) unless @cust_fields; #now need to cache to keep cust_fields
   #                                     #override incase we were passed as a sub
-  
-  my $seen_unlinked = 0;
 
+  my $seen_unlinked = 0;
   map { 
     if ( $record->custnum ) {
       warn "  $record -> $_" if $DEBUG > 1;
@@ -385,38 +383,6 @@ sub cust_fields {
   } @cust_fields;
 }
 
-=item cust_fields_subs
-
-Returns an array of subroutine references for returning customer field values.
-This is similar to cust_fields, but returns each field's sub as a distinct 
-element.
-
-=cut
-
-sub cust_fields_subs {
-  my $unlinked_warn = 0;
-  return map { 
-    my $f = $_;
-    if( $unlinked_warn++ ) {
-      sub {
-        my $record = shift;
-        if( $record->custnum ) {
-          $record->$f(@_);
-        }
-        else {
-          '(unlinked)'
-        };
-      }
-    } 
-    else {
-      sub {
-        my $record = shift;
-        $record->$f(@_) if $record->custnum;
-      }
-    }
-  } @cust_fields;
-}
-
 =item cust_colors
 
 Returns an array of subroutine references (or empty strings) for returning