'name_singular' => 'phone number',
'query' => {
'table' => 'phone_avail',
- 'hashref' => {},
+ 'hashref' => $hashref,
'select' => join(', ',
'phone_avail.*',
'cust_main.custnum',
'+'. $pn->countrycode. ' '.
$pn->npa. ' '. $pn->nxx. '-'. $pn->station;
},
- 'name',
+ sub { shift->get('name') },
'availbatch',
- 'exportnum', #XXX
- #sub { },
- 'svcnum', #XXX
+ sub {
+ my $pa = shift;
+ return '' unless $pa->part_export;
+ $pa->part_export->exportname;
+ },
+ sub {
+ my $pa = shift;
+ return '' unless $pa->cust_svc;
+ my($label,$value) = $pa->cust_svc->label;
+ $label . ": " . $value;
+ },
\&FS::UI::Web::cust_fields,
+ '',
],
- 'align' => 'rllllll'.FS::UI::Web::cust_aligns(),
+ 'align' => 'rllllllc'.FS::UI::Web::cust_aligns(),
'links' => [
'',
'',
'',
'',
'',
- '', #XXX #$export_link
- '', #XXX #$svc_link
+ '', #XXX #$export_link - to what exactly?
+ $svc_link,
( map { $_ ne 'Cust. Status' ? $link_cust : '' }
FS::UI::Web::cust_header()
),
+ '',
],
'color' => [
'',
'',
'',
FS::UI::Web::cust_colors(),
+ '',
],
'style' => [
'',
'',
'',
FS::UI::Web::cust_styles(),
+ '',
],
)
%>
<%init>
die "access denied"
- unless $FS::CurrentUser::CurrentUser->access_right('Import');
+ unless ( $FS::CurrentUser::CurrentUser->access_right('List inventory')
+ );
my @search = ();
my $count_query = "SELECT COUNT(*) FROM phone_avail $search"; #$addl_from?
+my $hashref = {};
+$hashref->{'ordernum'} = $1 if $cgi->param('ordernum') =~ /^(\d+)$/;
+
my $link_cust = sub {
my $phone_avail = shift;
if ( $phone_avail->svcnum ) {
- my $cust_svc = $phone_avail->svc_phone->cust_svc;
+ my $cust_svc = $phone_avail->cust_svc;
if ( $cust_svc->pkgnum ) {
#my $cust_main = $cust_svc->cust_pkg->cust_main;
return [ "${p}view/cust_main.cgi?", 'custnum' ];
'';
};
+my $svc_link = sub {
+ my $phone_avail = shift;
+ my $cust_svc = $phone_avail->cust_svc;
+ if ( $cust_svc ) {
+ return [ "${p}view/svc_phone.cgi?", 'svcnum'];
+ }
+ '';
+};
+
</%init>