projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
refactor giant cust_main.pm a little in preparation of adding API methods for maestro...
[freeside.git]
/
httemplate
/
search
/
cust_pkg.cgi
diff --git
a/httemplate/search/cust_pkg.cgi
b/httemplate/search/cust_pkg.cgi
index
adbec7a
..
da4371f
100755
(executable)
--- a/
httemplate/search/cust_pkg.cgi
+++ b/
httemplate/search/cust_pkg.cgi
@@
-80,6
+80,18
@@
# '</table>';
# },
sub {
# '</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]. ':',
[ map {
[
{ 'data' => $_->[0]. ':',
@@
-91,9
+103,10
@@
$_->[2]. '.cgi?'. $_->[3],
},
];
$_->[2]. '.cgi?'. $_->[3],
},
];
- }
shift
->labels
+ }
$cust_pkg
->labels
];
];
- },
+ }
+ }
],
'color' => [
'',
],
'color' => [
'',
@@
-162,8
+175,9
@@
my %search_hash = ();
#some false laziness w/misc/bulk_change_pkg.cgi
$search_hash{'query'} = $cgi->keywords;
#some false laziness w/misc/bulk_change_pkg.cgi
$search_hash{'query'} = $cgi->keywords;
-
-for (qw( agentnum custnum magic status classnum custom cust_fields )) {
+
+#scalars
+for (qw( agentnum custnum magic status classnum custom cust_fields pkgbatch )) {
$search_hash{$_} = $cgi->param($_) if $cgi->param($_);
}
$search_hash{$_} = $cgi->param($_) if $cgi->param($_);
}
@@
-276,6
+290,10
@@
my $html_init = sub {
'height' => 210,
). '<BR>';
}
'height' => 210,
). '<BR>';
}
+ $text .= include( '/elements/email-link.html',
+ 'search_hash' => \%search_hash,
+ 'table' => 'cust_pkg',
+ );
}
return $text;
};
}
return $text;
};