|
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 |
- |
|
|