X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fphone_avail.html;h=1335379ae107466337509c5aedf251f640d81b1b;hb=f0749e294656ac2615edaa59bbdb850eb3d20544;hp=2ef3dcd8c6e87dc804446d06f2c644641d081505;hpb=9ab5259d95fafee083cd377b03f4ffdc37bd137a;p=freeside.git diff --git a/httemplate/search/phone_avail.html b/httemplate/search/phone_avail.html index 2ef3dcd8c..1335379ae 100644 --- a/httemplate/search/phone_avail.html +++ b/httemplate/search/phone_avail.html @@ -3,7 +3,7 @@ 'name_singular' => 'phone number', 'query' => { 'table' => 'phone_avail', - 'hashref' => {}, + 'hashref' => $hashref, 'select' => join(', ', 'phone_avail.*', 'cust_main.custnum', @@ -29,25 +29,35 @@ '+'. $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' => [ '', @@ -58,6 +68,7 @@ '', '', FS::UI::Web::cust_colors(), + '', ], 'style' => [ '', @@ -68,13 +79,15 @@ '', '', 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 = (); @@ -116,10 +129,13 @@ my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '. 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' ]; @@ -128,4 +144,13 @@ my $link_cust = sub { ''; }; +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']; + } + ''; +}; +