1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
<%
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";
%><%= include( 'elements/search.html',
'title' => $title,
#less lame to use Lingua:: something to pluralize
'name' => $inventory_class->classname. 's',
'query' => {
'table' => 'inventory_item',
'hashref' => { 'classnum' => $classnum },
'extra_sql' => $extra_sql,
},
'count_query' => $count_query,
# XXX proper full service/customer link ala svc_acct
'header' => [ '#', $inventory_class->classname, 'svcnum' ],
'fields' => [
'itemnum',
'item',
'svcnum', #XXX proper full service customer link ala svc_acct
# "unallocated" ? "available" ?
],
)
%>
|