3 tie my %labels, 'Tie::IxHash',
4 'num_avail' => 'Available', # <FONT SIZE="-1"><A HREF="eventually">(upload batch)</A></FONT>',
5 'num_used' => 'In use', #'Used', #'Allocated',
6 'num_total' => 'Total',
10 'num_avail' => ';avail=1',
11 'num_used' => ';avail=1',
15 my %inv_action_link = (
16 'num_avail' => [ 'upload batch',
17 $p.'misc/inventory_item-import.html?classnum=',
22 my $link = [ "${p}edit/inventory_class.html?", 'classnum' ];
24 %><%= include( 'elements/search.html',
25 'title' => 'Inventory Classes',
26 'name' => 'inventory classes',
27 'menubar' => [ 'Add a new inventory class' =>
28 $p.'edit/inventory_class.html',
30 'query' => { 'table' => 'inventory_class', },
31 'count_query' => 'SELECT COUNT(*) FROM inventory_class',
32 'header' => [ '#', 'Inventory class', 'Inventory' ],
33 'fields' => [ 'classnum',
36 #my $inventory_class = shift;
40 $p. 'search/inventory_item.html?'.
41 'classnum='. $i_c->classnum;
44 foreach ( keys %inv_action_link ) {
45 my($label, $baseurl, $method) =
46 @{ $inv_action_link{$_} };
47 my $url = $baseurl. $i_c->$method();
51 '<A HREF="'.$url.'">'.
65 'data' => '<B>'. $num{$_}. '</B>',
69 'data' => $labels{$_},
76 { 'data' => $actioncol{$_},