[freeside-commits] freeside/httemplate/search cust_pkg.cgi, 1.59.2.5, 1.59.2.6

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail.420.am:/tmp/cvs-serv20997

Modified Files:
      Tag: FREESIDE_1_9_BRANCH
	cust_pkg.cgi 
Log Message:
RT#8465: add service label to downloadable package reports

Index: cust_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/search/cust_pkg.cgi,v
retrieving revision 1.59.2.5
retrieving revision 1.59.2.6
diff -u -w -d -r1.59.2.5 -r1.59.2.6
--- cust_pkg.cgi	2 Mar 2010 17:18:32 -0000	1.59.2.5
+++ cust_pkg.cgi	28 May 2010 07:51:13 -0000	1.59.2.6
@@ -80,6 +80,18 @@
                     #      '</table>';
                     #    },
                     sub {
+                      my $cust_pkg = shift;
+                      my $type = $cgi->param('_type') || '';
+                      if ($type =~ /xls|csv/) {
+                        my $cust_svc = $cust_pkg->primary_cust_svc;
+                        if($cust_svc) {
+                          return join ": ",($cust_svc->label)[0,1];
+                        }
+                        else {
+                          return '';
+                        }
+                      }
+                      else {
                           [ map {
                                   [ 
                                     { 'data' => $_->[0]. ':',
@@ -91,9 +103,10 @@
                                                 $_->[2]. '.cgi?'. $_->[3],
                                     },
                                   ];
-                                } shift->labels
+                                } $cust_pkg->labels
                           ];
-                        },
+                      }
+                    }
                   ],
                   'color' => [
                     '',
@@ -192,7 +205,7 @@
   ''                => {},
 );
 
-foreach my $field (qw( setup last_bill bill adjourn susp expire cancel )) {
+foreach my $field (qw( setup last_bill bill adjourn susp expire cancel active )) {
 
   my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi, $field);