|
Lines 44-50
BEGIN {
Link Here
|
| 44 |
save_report get_saved_reports execute_query get_saved_report create_compound run_compound |
44 |
save_report get_saved_reports execute_query get_saved_report create_compound run_compound |
| 45 |
get_column_type get_distinct_values save_dictionary get_from_dictionary |
45 |
get_column_type get_distinct_values save_dictionary get_from_dictionary |
| 46 |
delete_definition delete_report format_results get_sql |
46 |
delete_definition delete_report format_results get_sql |
| 47 |
nb_rows update_sql build_authorised_value_list |
47 |
nb_rows update_sql |
| 48 |
GetReservedAuthorisedValues |
48 |
GetReservedAuthorisedValues |
| 49 |
GetParametersFromSQL |
49 |
GetParametersFromSQL |
| 50 |
IsAuthorisedValueValid |
50 |
IsAuthorisedValueValid |
|
Lines 896-966
sub _get_column_defs {
Link Here
|
| 896 |
return \%columns; |
896 |
return \%columns; |
| 897 |
} |
897 |
} |
| 898 |
|
898 |
|
| 899 |
=head2 build_authorised_value_list($authorised_value) |
|
|
| 900 |
|
| 901 |
Returns an arrayref - hashref pair. The hashref consists of |
| 902 |
various code => name lists depending on the $authorised_value. |
| 903 |
The arrayref is the hashref keys, in appropriate order |
| 904 |
|
| 905 |
=cut |
| 906 |
|
| 907 |
sub build_authorised_value_list { |
| 908 |
my ( $authorised_value ) = @_; |
| 909 |
|
| 910 |
my $dbh = C4::Context->dbh; |
| 911 |
my @authorised_values; |
| 912 |
my %authorised_lib; |
| 913 |
|
| 914 |
# builds list, depending on authorised value... |
| 915 |
if ( $authorised_value eq "branches" ) { |
| 916 |
my $branches = GetBranchesLoop(); |
| 917 |
foreach my $thisbranch (@$branches) { |
| 918 |
push @authorised_values, $thisbranch->{value}; |
| 919 |
$authorised_lib{ $thisbranch->{value} } = $thisbranch->{branchname}; |
| 920 |
} |
| 921 |
} elsif ( $authorised_value eq "itemtypes" ) { |
| 922 |
my $sth = $dbh->prepare("SELECT itemtype,description FROM itemtypes ORDER BY description"); |
| 923 |
$sth->execute; |
| 924 |
while ( my ( $itemtype, $description ) = $sth->fetchrow_array ) { |
| 925 |
push @authorised_values, $itemtype; |
| 926 |
$authorised_lib{$itemtype} = $description; |
| 927 |
} |
| 928 |
} elsif ( $authorised_value eq "cn_source" ) { |
| 929 |
my $class_sources = GetClassSources(); |
| 930 |
my $default_source = C4::Context->preference("DefaultClassificationSource"); |
| 931 |
foreach my $class_source ( sort keys %$class_sources ) { |
| 932 |
next |
| 933 |
unless $class_sources->{$class_source}->{'used'} |
| 934 |
or ( $class_source eq $default_source ); |
| 935 |
push @authorised_values, $class_source; |
| 936 |
$authorised_lib{$class_source} = $class_sources->{$class_source}->{'description'}; |
| 937 |
} |
| 938 |
} elsif ( $authorised_value eq "categorycode" ) { |
| 939 |
my $sth = $dbh->prepare("SELECT categorycode, description FROM categories ORDER BY description"); |
| 940 |
$sth->execute; |
| 941 |
while ( my ( $categorycode, $description ) = $sth->fetchrow_array ) { |
| 942 |
push @authorised_values, $categorycode; |
| 943 |
$authorised_lib{$categorycode} = $description; |
| 944 |
} |
| 945 |
|
| 946 |
#---- "true" authorised value |
| 947 |
} else { |
| 948 |
my $authorised_values_sth = $dbh->prepare("SELECT authorised_value,lib FROM authorised_values WHERE category=? ORDER BY lib"); |
| 949 |
|
| 950 |
$authorised_values_sth->execute($authorised_value); |
| 951 |
|
| 952 |
while ( my ( $value, $lib ) = $authorised_values_sth->fetchrow_array ) { |
| 953 |
push @authorised_values, $value; |
| 954 |
$authorised_lib{$value} = $lib; |
| 955 |
|
| 956 |
# For item location, we show the code and the libelle |
| 957 |
$authorised_lib{$value} = $lib; |
| 958 |
} |
| 959 |
} |
| 960 |
|
| 961 |
return (\@authorised_values, \%authorised_lib); |
| 962 |
} |
| 963 |
|
| 964 |
=head2 GetReservedAuthorisedValues |
899 |
=head2 GetReservedAuthorisedValues |
| 965 |
|
900 |
|
| 966 |
my %reserved_authorised_values = GetReservedAuthorisedValues(); |
901 |
my %reserved_authorised_values = GetReservedAuthorisedValues(); |
| 967 |
- |
|
|