Lines 247-252
my @fields = $record->fields();
Link Here
|
247 |
my %witness |
247 |
my %witness |
248 |
; #---- stores the list of subfields used at least once, with the "meaning" of the code |
248 |
; #---- stores the list of subfields used at least once, with the "meaning" of the code |
249 |
my @big_array; |
249 |
my @big_array; |
|
|
250 |
my $norequests = 1; |
250 |
foreach my $field (@fields) { |
251 |
foreach my $field (@fields) { |
251 |
next if ( $field->tag() < 10 ); |
252 |
next if ( $field->tag() < 10 ); |
252 |
my @subf = $field->subfields; |
253 |
my @subf = $field->subfields; |
Lines 260-270
foreach my $field (@fields) {
Link Here
|
260 |
$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{lib}; |
261 |
$tagslib->{ $field->tag() }->{ $subf[$i][0] }->{lib}; |
261 |
$this_row{ $subf[$i][0] } = GetAuthorisedValueDesc( $field->tag(), |
262 |
$this_row{ $subf[$i][0] } = GetAuthorisedValueDesc( $field->tag(), |
262 |
$subf[$i][0], $subf[$i][1], '', $tagslib) || $subf[$i][1]; |
263 |
$subf[$i][0], $subf[$i][1], '', $tagslib) || $subf[$i][1]; |
|
|
264 |
$norequests = 0 if $subf[$i][1] ==0 and $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{kohafield} eq 'items.notforloan'; |
263 |
} |
265 |
} |
264 |
if (%this_row) { |
266 |
if (%this_row) { |
265 |
push( @big_array, \%this_row ); |
267 |
push( @big_array, \%this_row ); |
266 |
} |
268 |
} |
267 |
} |
269 |
} |
|
|
270 |
|
268 |
my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField("items.holdingbranch",$frameworkcode); |
271 |
my ($holdingbrtagf,$holdingbrtagsubf) = &GetMarcFromKohaField("items.holdingbranch",$frameworkcode); |
269 |
@big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array; |
272 |
@big_array = sort {$a->{$holdingbrtagsubf} cmp $b->{$holdingbrtagsubf}} @big_array; |
270 |
|
273 |
|
Lines 306-311
if ($subscriptionscount) {
Link Here
|
306 |
} |
309 |
} |
307 |
|
310 |
|
308 |
$template->param ( |
311 |
$template->param ( |
|
|
312 |
norequests => $norequests, |
309 |
item_loop => \@item_value_loop, |
313 |
item_loop => \@item_value_loop, |
310 |
item_header_loop => \@header_value_loop, |
314 |
item_header_loop => \@header_value_loop, |
311 |
biblionumber => $biblionumber, |
315 |
biblionumber => $biblionumber, |
312 |
- |
|
|