Lines 900-943
sub GetNormalizedOCLCNumber {
Link Here
|
900 |
return |
900 |
return |
901 |
} |
901 |
} |
902 |
|
902 |
|
903 |
sub GetAuthvalueDropbox { |
|
|
904 |
my ( $authcat, $default ) = @_; |
905 |
my $branch_limit = C4::Context->userenv ? C4::Context->userenv->{"branch"} : ""; |
906 |
my $dbh = C4::Context->dbh; |
907 |
|
908 |
my $query = qq{ |
909 |
SELECT * |
910 |
FROM authorised_values |
911 |
}; |
912 |
$query .= qq{ |
913 |
LEFT JOIN authorised_values_branches ON ( id = av_id ) |
914 |
} if $branch_limit; |
915 |
$query .= qq{ |
916 |
WHERE category = ? |
917 |
}; |
918 |
$query .= " AND ( branchcode = ? OR branchcode IS NULL )" if $branch_limit; |
919 |
$query .= " GROUP BY lib ORDER BY category, lib, lib_opac"; |
920 |
my $sth = $dbh->prepare($query); |
921 |
$sth->execute( $authcat, $branch_limit ? $branch_limit : () ); |
922 |
|
923 |
|
924 |
my $option_list = []; |
925 |
my @authorised_values = ( q{} ); |
926 |
while (my $av = $sth->fetchrow_hashref) { |
927 |
push @{$option_list}, { |
928 |
value => $av->{authorised_value}, |
929 |
label => $av->{lib}, |
930 |
default => ($default eq $av->{authorised_value}), |
931 |
}; |
932 |
} |
933 |
|
934 |
if ( @{$option_list} ) { |
935 |
return $option_list; |
936 |
} |
937 |
return; |
938 |
} |
939 |
|
940 |
|
941 |
=head2 GetDailyQuote($opts) |
903 |
=head2 GetDailyQuote($opts) |
942 |
|
904 |
|
943 |
Takes a hashref of options |
905 |
Takes a hashref of options |
944 |
- |
|
|