-%
-%
-%my $classnum = $cgi->param('classnum');
-%$classnum =~ /^(\d+)$/ or eidiot "illegal classnum $classnum";
-%$classnum = $1;
-%
-%my $inventory_class = qsearchs( {
-% 'table' => 'inventory_class',
-% 'hashref' => { 'classnum' => $classnum },
-%} );
-%
-%my $title = $inventory_class->classname. ' Inventory';
-%
-%#little false laziness with SQL fragments in inventory_class.pm
-%my $extra_sql = '';
-%if ( $cgi->param('avail') ) {
-% $extra_sql = 'AND ( svcnum IS NULL OR svcnum = 0 )';
-% $title .= ' - Available';
-%} elsif ( $cgi->param('used') ) {
-% $extra_sql = 'AND svcnum IS NOT NULL AND svcnum > 0';
-% $title .= ' - In use';
-%}
-%
-%my $count_query =
-% "SELECT COUNT(*) FROM inventory_item WHERE classnum = $classnum $extra_sql";
-%
-%my $link = sub {
-% my $inventory_item = shift;
-% if ( $inventory_item->svcnum ) {
-% [ "${p}view/svc_acct.cgi?", 'svcnum' ];
-% } else {
-% '';
-% }
-%};
-%my $link_cust = sub {
-% my $inventory_item = shift;
-% if ( $inventory_item->custnum ) {
-% [ "${p}view/cust_main.cgi?", 'custnum' ];
-% } else {
-% '';
-% }
-%};
-%
-%my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '.
-% ' LEFT JOIN part_svc USING ( svcpart ) '.
-% ' LEFT JOIN cust_pkg USING ( pkgnum ) '.
-% ' LEFT JOIN cust_main USING ( custnum ) ';
-%
-%
-<% include( 'elements/search.html',
-
+<& elements/search.html,
'title' => $title,
- #less lame to use Lingua:: something to pluralize
- 'name' => $inventory_class->classname. 's',
+ 'menubar' => [ 'View inventory classes' =>
+ $p.'browse/inventory_class.html',
+ 'Upload '. PL($inventory_class->classname)=>
+ $p.'misc/inventory_item-import.html?'.
+ "classnum=$classnum"
+ ],
+
+ 'name' => PL($inventory_class->classname),
'query' => {
'table' => 'inventory_item',
- 'hashref' => { 'classnum' => $classnum },
+ 'hashref' => {},
'select' => join(', ',
'inventory_item.*',
+ 'part_svc.svcdb',
'cust_main.custnum',
FS::UI::Web::cust_sql_fields(),
),
'count_query' => $count_query,
+ 'agent_virt' => 1,
+ 'agent_null' => 1,
+ 'agent_pos' => 2,
+
'header' => [
'#',
$inventory_class->classname,
'Service',
FS::UI::Web::cust_header(),
+ '', # checkbox column
],
'fields' => [
},
\&FS::UI::Web::cust_fields,
+ $sub_checkbox,
],
-
+ 'align' => 'rll'.FS::UI::Web::cust_aligns(),
'links' => [
'',
'',
$link,
- ( map { $link_cust } FS::UI::Web::cust_header() ),
+ ( map { $_ ne 'Cust. Status' ? $link_cust : '' }
+ FS::UI::Web::cust_header()
+ ),
],
+ 'color' => [
+ '',
+ '',
+ '',
+ FS::UI::Web::cust_colors(),
+ ],
+ 'style' => [
+ '',
+ '',
+ '',
+ FS::UI::Web::cust_styles(),
+ ],
+ 'html_init' => $html_form,
+ 'html_foot' => $html_foot,
+
+&>
+<%init>
+
+my $curuser = $FS::CurrentUser::CurrentUser;
+
+die "access denied"
+ unless $curuser->access_right('Edit inventory')
+ || $curuser->access_right('Edit global inventory')
+ || $curuser->access_right('Configuration');
+
+my $classnum = $cgi->param('classnum');
+$classnum =~ /^(\d+)$/ or errorpage("illegal classnum $classnum");
+$classnum = $1;
+my $extra_sql = "WHERE inventory_item.classnum = $classnum ";
+
+my $inventory_class = qsearchs( {
+ 'table' => 'inventory_class',
+ 'hashref' => { 'classnum' => $classnum },
+} );
+
+my $title = $inventory_class->classname. ' Inventory';
+
+if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
+ $extra_sql .= " AND inventory_item.agentnum = $1 ";
+ my $agent = qsearchs('agent', { 'agentnum' => $1 }) or die "unknown agentnum";
+ $title = $agent->agent. " $title";
+}
+
+#little false laziness with SQL fragments in inventory_class.pm
+if ( $cgi->param('avail') ) {
+ $extra_sql .= ' AND ( svcnum IS NULL OR svcnum = 0 )';
+ $title .= ' - Available';
+} elsif ( $cgi->param('used') ) {
+ $extra_sql .= ' AND svcnum IS NOT NULL AND svcnum > 0';
+ $title .= ' - In use';
+}
+
+my $count_query =
+ "SELECT COUNT(*) FROM inventory_item $extra_sql";
+
+my $link = sub {
+ my $inventory_item = shift;
+ if ( $inventory_item->svcnum ) {
+
+ #[ "${p}view/svc_acct.cgi?", 'svcnum' ];
+ my $url = svc_url(
+ 'm' => $m,
+ 'action' => 'view',
+ #'svcdb' => $inventory_item->cust_svc->part_svc->svcdb,
+ 'svcdb' => $inventory_item->svcdb, #we have it from the joined search
+ 'query' => '',
+ );
+ [ $url, 'svcnum' ];
+ } else {
+ '';
+ }
+};
+my $link_cust = sub {
+ my $inventory_item = shift;
+ if ( $inventory_item->custnum ) {
+ [ "${p}view/cust_main.cgi?", 'custnum' ];
+ } else {
+ '';
+ }
+};
+
+my $addl_from = ' LEFT JOIN cust_svc USING ( svcnum ) '.
+ ' LEFT JOIN part_svc USING ( svcpart ) '.
+ ' LEFT JOIN cust_pkg USING ( pkgnum ) '.
+ FS::UI::Web::join_cust_main('cust_pkg', 'cust_pkg');
+
+my $sub_checkbox = sub {
+ my $item = $_[0];
+ my $itemnum = $item->itemnum;
+ return '' if $item->svcnum;
+
+ return qq!<INPUT NAME="itemnum" TYPE="checkbox" VALUE="$itemnum">!;
+};
+
+my $html_form = qq!
+<FORM NAME="itemForm" ACTION="$p/misc/inventory_item-move.cgi" METHOD="POST">
+<INPUT TYPE="hidden" NAME="classnum" VALUE="$classnum">
+<INPUT TYPE="hidden" NAME="avail" VALUE="! .$cgi->param('avail') . '">';
+#'
+
+my $html_foot = include('elements/checkbox-foot.html',
+ actions => [
+ { submit => 'Delete',
+ confirm => 'Delete the selected items?',
+ name => 'delete',
+ },
+ { submit => 'Move to',
+ name => 'move',
+ },
+ ],
+);
+
+$html_foot =~ s[</DIV>][];
+$html_foot .=
+ include('/elements/select-agent.html',
+ 'field' => 'move_agentnum',
+ 'disable_empty' => 1,
+ ) .
+ '</DIV></FORM>';
- )
-%>
+</%init>
projects / freeside.git / blobdiff