[freeside-commits] freeside/FS/FS/UI Web.pm,1.41.2.1,1.41.2.2

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS/UI
In directory wavetail.420.am:/tmp/cvs-serv20176/FS/FS/UI

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	Web.pm 
Log Message:
RT#866: links to process payments from aging report

Index: Web.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/UI/Web.pm,v
retrieving revision 1.41.2.1
retrieving revision 1.41.2.2
diff -u -w -d -r1.41.2.1 -r1.41.2.2
--- Web.pm	24 Jan 2010 20:37:32 -0000	1.41.2.1
+++ Web.pm	1 Apr 2010 04:44:19 -0000	1.41.2.2
@@ -362,6 +362,7 @@
 
 =cut
 
+
 sub cust_fields {
   my $record = shift;
   warn "FS::UI::Web::cust_fields called for $record ".
@@ -372,6 +373,7 @@
   #                                     #override incase we were passed as a sub
 
   my $seen_unlinked = 0;
+
   map { 
     if ( $record->custnum ) {
       warn "  $record -> $_" if $DEBUG > 1;
@@ -383,6 +385,38 @@
   } @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