|
Lines 47-53
BEGIN {
Link Here
|
| 47 |
&getFacets |
47 |
&getFacets |
| 48 |
&getnbpages |
48 |
&getnbpages |
| 49 |
&get_infos_of |
49 |
&get_infos_of |
| 50 |
&get_notforloan_label_of |
|
|
| 51 |
&getitemtypeimagedir |
50 |
&getitemtypeimagedir |
| 52 |
&getitemtypeimagesrc |
51 |
&getitemtypeimagesrc |
| 53 |
&getitemtypeimagelocation |
52 |
&getitemtypeimagelocation |
|
Lines 704-761
sub get_infos_of {
Link Here
|
| 704 |
return \%infos_of; |
703 |
return \%infos_of; |
| 705 |
} |
704 |
} |
| 706 |
|
705 |
|
| 707 |
=head2 get_notforloan_label_of |
|
|
| 708 |
|
| 709 |
my $notforloan_label_of = get_notforloan_label_of(); |
| 710 |
|
| 711 |
Each authorised value of notforloan (information available in items and |
| 712 |
itemtypes) is link to a single label. |
| 713 |
|
| 714 |
Returns a href where keys are authorised values and values are corresponding |
| 715 |
labels. |
| 716 |
|
| 717 |
foreach my $authorised_value (keys %{$notforloan_label_of}) { |
| 718 |
printf( |
| 719 |
"authorised_value: %s => %s\n", |
| 720 |
$authorised_value, |
| 721 |
$notforloan_label_of->{$authorised_value} |
| 722 |
); |
| 723 |
} |
| 724 |
|
| 725 |
=cut |
| 726 |
|
| 727 |
# FIXME - why not use GetAuthorisedValues ?? |
| 728 |
# |
| 729 |
sub get_notforloan_label_of { |
| 730 |
my $dbh = C4::Context->dbh; |
| 731 |
|
| 732 |
my $query = ' |
| 733 |
SELECT authorised_value |
| 734 |
FROM marc_subfield_structure |
| 735 |
WHERE kohafield = \'items.notforloan\' |
| 736 |
LIMIT 0, 1 |
| 737 |
'; |
| 738 |
my $sth = $dbh->prepare($query); |
| 739 |
$sth->execute(); |
| 740 |
my ($statuscode) = $sth->fetchrow_array(); |
| 741 |
|
| 742 |
$query = ' |
| 743 |
SELECT lib, |
| 744 |
authorised_value |
| 745 |
FROM authorised_values |
| 746 |
WHERE category = ? |
| 747 |
'; |
| 748 |
$sth = $dbh->prepare($query); |
| 749 |
$sth->execute($statuscode); |
| 750 |
my %notforloan_label_of; |
| 751 |
while ( my $row = $sth->fetchrow_hashref ) { |
| 752 |
$notforloan_label_of{ $row->{authorised_value} } = $row->{lib}; |
| 753 |
} |
| 754 |
$sth->finish; |
| 755 |
|
| 756 |
return \%notforloan_label_of; |
| 757 |
} |
| 758 |
|
| 759 |
=head2 GetAuthorisedValues |
706 |
=head2 GetAuthorisedValues |
| 760 |
|
707 |
|
| 761 |
$authvalues = GetAuthorisedValues([$category]); |
708 |
$authvalues = GetAuthorisedValues([$category]); |
| 762 |
- |
|
|