Lines 86-91
for my $fwk ( @$frameworks ){
Link Here
|
86 |
} |
86 |
} |
87 |
|
87 |
|
88 |
my $statuses = []; |
88 |
my $statuses = []; |
|
|
89 |
my @notforloans; |
89 |
for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ |
90 |
for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.damaged/){ |
90 |
my $hash = {}; |
91 |
my $hash = {}; |
91 |
$hash->{fieldname} = $statfield; |
92 |
$hash->{fieldname} = $statfield; |
Lines 95-100
for my $statfield (qw/items.notforloan items.itemlost items.withdrawn items.dama
Link Here
|
95 |
my $arr = GetAuthorisedValues($hash->{authcode}); |
96 |
my $arr = GetAuthorisedValues($hash->{authcode}); |
96 |
$hash->{values} = $arr; |
97 |
$hash->{values} = $arr; |
97 |
push @$statuses, $hash; |
98 |
push @$statuses, $hash; |
|
|
99 |
if ( $statfield eq 'items.notforloan') { |
100 |
@notforloans = map { $_->{'authorised_value'} } @$arr; |
101 |
} |
98 |
} |
102 |
} |
99 |
} |
103 |
} |
100 |
|
104 |
|
Lines 110-125
for my $authvfield (@$statuses) {
Link Here
|
110 |
} |
114 |
} |
111 |
} |
115 |
} |
112 |
|
116 |
|
113 |
my $notforloanlist; |
|
|
114 |
my $statussth = ''; |
115 |
for my $authvfield (@$statuses) { |
116 |
if ( scalar @{$staton->{$authvfield->{fieldname}}} > 0 ){ |
117 |
my $joinedvals = join ',', @{$staton->{$authvfield->{fieldname}}}; |
118 |
$statussth .= "$authvfield->{fieldname} in ($joinedvals) and "; |
119 |
$notforloanlist = $joinedvals if ($authvfield->{fieldname} eq "items.notforloan"); |
120 |
} |
121 |
} |
122 |
$statussth =~ s, and $,,g; |
123 |
$template->param( |
117 |
$template->param( |
124 |
authorised_values => \@authorised_value_list, |
118 |
authorised_values => \@authorised_value_list, |
125 |
today => dt_from_string, |
119 |
today => dt_from_string, |
Lines 131-144
$template->param(
Link Here
|
131 |
branch => $branch, |
125 |
branch => $branch, |
132 |
datelastseen => $datelastseen, |
126 |
datelastseen => $datelastseen, |
133 |
compareinv2barcd => $compareinv2barcd, |
127 |
compareinv2barcd => $compareinv2barcd, |
134 |
notforloanlist => $notforloanlist |
|
|
135 |
); |
128 |
); |
136 |
|
129 |
|
137 |
my @notforloans; |
|
|
138 |
if (defined $notforloanlist) { |
139 |
@notforloans = split(/,/, $notforloanlist); |
140 |
} |
141 |
|
142 |
my @scanned_items; |
130 |
my @scanned_items; |
143 |
my @errorloop; |
131 |
my @errorloop; |
144 |
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) { |
132 |
if ( $uploadbarcodes && length($uploadbarcodes) > 0 ) { |
145 |
- |
|
|