Lines 46-52
BEGIN {
Link Here
|
46 |
&getallthemes |
46 |
&getallthemes |
47 |
&getFacets |
47 |
&getFacets |
48 |
&getnbpages |
48 |
&getnbpages |
49 |
&get_notforloan_label_of |
|
|
50 |
&getitemtypeimagedir |
49 |
&getitemtypeimagedir |
51 |
&getitemtypeimagesrc |
50 |
&getitemtypeimagesrc |
52 |
&getitemtypeimagelocation |
51 |
&getitemtypeimagelocation |
Lines 637-694
sub getFacets {
Link Here
|
637 |
return $facets; |
636 |
return $facets; |
638 |
} |
637 |
} |
639 |
|
638 |
|
640 |
=head2 get_notforloan_label_of |
|
|
641 |
|
642 |
my $notforloan_label_of = get_notforloan_label_of(); |
643 |
|
644 |
Each authorised value of notforloan (information available in items and |
645 |
itemtypes) is link to a single label. |
646 |
|
647 |
Returns a href where keys are authorised values and values are corresponding |
648 |
labels. |
649 |
|
650 |
foreach my $authorised_value (keys %{$notforloan_label_of}) { |
651 |
printf( |
652 |
"authorised_value: %s => %s\n", |
653 |
$authorised_value, |
654 |
$notforloan_label_of->{$authorised_value} |
655 |
); |
656 |
} |
657 |
|
658 |
=cut |
659 |
|
660 |
# FIXME - why not use GetAuthorisedValues ?? |
661 |
# |
662 |
sub get_notforloan_label_of { |
663 |
my $dbh = C4::Context->dbh; |
664 |
|
665 |
my $query = ' |
666 |
SELECT authorised_value |
667 |
FROM marc_subfield_structure |
668 |
WHERE kohafield = \'items.notforloan\' |
669 |
LIMIT 0, 1 |
670 |
'; |
671 |
my $sth = $dbh->prepare($query); |
672 |
$sth->execute(); |
673 |
my ($statuscode) = $sth->fetchrow_array(); |
674 |
|
675 |
$query = ' |
676 |
SELECT lib, |
677 |
authorised_value |
678 |
FROM authorised_values |
679 |
WHERE category = ? |
680 |
'; |
681 |
$sth = $dbh->prepare($query); |
682 |
$sth->execute($statuscode); |
683 |
my %notforloan_label_of; |
684 |
while ( my $row = $sth->fetchrow_hashref ) { |
685 |
$notforloan_label_of{ $row->{authorised_value} } = $row->{lib}; |
686 |
} |
687 |
$sth->finish; |
688 |
|
689 |
return \%notforloan_label_of; |
690 |
} |
691 |
|
692 |
=head2 GetAuthorisedValues |
639 |
=head2 GetAuthorisedValues |
693 |
|
640 |
|
694 |
$authvalues = GetAuthorisedValues([$category]); |
641 |
$authvalues = GetAuthorisedValues([$category]); |
695 |
- |
|
|