Lines 57-62
BEGIN {
Link Here
|
57 |
&GetKohaAuthorisedValues |
57 |
&GetKohaAuthorisedValues |
58 |
&GetKohaAuthorisedValuesFromField |
58 |
&GetKohaAuthorisedValuesFromField |
59 |
&GetKohaAuthorisedValueLib |
59 |
&GetKohaAuthorisedValueLib |
|
|
60 |
&GetAuthorisedValueByCode |
61 |
&GetKohaImageurlFromAuthorisedValues |
60 |
&GetAuthValCode |
62 |
&GetAuthValCode |
61 |
&GetNormalizedUPC |
63 |
&GetNormalizedUPC |
62 |
&GetNormalizedISBN |
64 |
&GetNormalizedISBN |
Lines 941-946
sub displayServers {
Link Here
|
941 |
return \@primaryserverloop; |
943 |
return \@primaryserverloop; |
942 |
} |
944 |
} |
943 |
|
945 |
|
|
|
946 |
|
947 |
=head2 GetKohaImageurlFromAuthorisedValues |
948 |
|
949 |
$authhorised_value = GetKohaImageurlFromAuthorisedValues( $category, $authvalcode ); |
950 |
|
951 |
Return the first url of the authorised value image represented by $lib. |
952 |
|
953 |
=cut |
954 |
|
955 |
sub GetKohaImageurlFromAuthorisedValues { |
956 |
my ( $category, $lib ) = @_; |
957 |
my $dbh = C4::Context->dbh; |
958 |
my $sth = $dbh->prepare("SELECT imageurl FROM authorised_values WHERE category=? AND lib =?"); |
959 |
$sth->execute( $category, $lib ); |
960 |
while ( my $data = $sth->fetchrow_hashref ) { |
961 |
return $data->{'imageurl'}; |
962 |
} |
963 |
} |
964 |
|
944 |
=head2 GetAuthValCode |
965 |
=head2 GetAuthValCode |
945 |
|
966 |
|
946 |
$authvalcode = GetAuthValCode($kohafield,$frameworkcode); |
967 |
$authvalcode = GetAuthValCode($kohafield,$frameworkcode); |
Lines 1035-1040
sub GetAuthorisedValueCategories {
Link Here
|
1035 |
return \@results; |
1056 |
return \@results; |
1036 |
} |
1057 |
} |
1037 |
|
1058 |
|
|
|
1059 |
=head2 GetAuthorisedValueByCode |
1060 |
|
1061 |
$authhorised_value = GetAuthorisedValueByCode( $category, $authvalcode ); |
1062 |
|
1063 |
Return an hashref of the authorised value represented by $authvalcode. |
1064 |
|
1065 |
=cut |
1066 |
|
1067 |
sub GetAuthorisedValueByCode { |
1068 |
my ( $category, $authvalcode ) = @_; |
1069 |
|
1070 |
my $dbh = C4::Context->dbh; |
1071 |
my $sth = $dbh->prepare("SELECT lib FROM authorised_values WHERE category=? AND authorised_value =?"); |
1072 |
$sth->execute( $category, $authvalcode ); |
1073 |
while ( my $data = $sth->fetchrow_hashref ) { |
1074 |
return $data->{'lib'}; |
1075 |
} |
1076 |
} |
1077 |
|
1038 |
=head2 GetKohaAuthorisedValues |
1078 |
=head2 GetKohaAuthorisedValues |
1039 |
|
1079 |
|
1040 |
Takes $kohafield, $fwcode as parameters. |
1080 |
Takes $kohafield, $fwcode as parameters. |
1041 |
- |
|
|