From: Paul Poulain <[email protected]>
---
C4/Input.pm | 22 +++++++++++-----------
1 files changed, 11 insertions(+), 11 deletions(-)
diff --git a/C4/Input.pm b/C4/Input.pm
index 6f0173d..236f79b 100644
--- a/C4/Input.pm
+++ b/C4/Input.pm
@@ -119,7 +119,7 @@ sub checkvalidisbn ($) { # Obsolete Function!
my ($q) = shift or return undef;
$q=~s/[^Xx\d]//g;
/(\d{9})(X|\d)/i or
- /(\d{12})(X|\d)/i or return 0;
+ /(\d{12})(X|\d)/i or return 0;
my $checksum = $2;
my $isbn = $1;
my $c = 0;
@@ -152,22 +152,22 @@ sub buildCGIsort {
if ($sth->rows>0){
my @values;
my %labels;
-
+
for (my $i =0;$i<$sth->rows;$i++){
my $results = $sth->fetchrow_hashref;
- push @values, $results->{authorised_value};
- $labels{$results->{authorised_value}}=$results->{lib};
+ push @values, $results->{authorised_value};
+ $labels{$results->{authorised_value}}=$results->{lib};
}
- unshift(@values,"");
$CGISort= CGI::scrolling_list(
- -name => $input_name,
- -values => \...@values,
- -labels => \%labels,
+ -name => $input_name,
+ -id => $input_name,
+ -values => \...@values,
+ -labels => \%labels,
-default=> $data,
- -size => 1,
- -multiple => 0);
+ -size => 1,
+ -multiple => 0);
}
- $sth->finish;
+ $sth->finish;
return $CGISort;
}
END { } # module clean-up code here (global destructor)
--
1.6.0.4
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
