Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

fixing length on publishernames

Browse source
This commit is contained in:
hdl 2005-03-09 16:14:03 +00:00
parent 7a97a934ea
commit 2506cd5dda
1 changed files with 4 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
reports/catalogue_stats.pl
View file

@ -173,16 +173,6 @@ if ($do_it) {
my $hglghtLOC =$count % 2;
# warn "highlightLOC ".$hglghtLOC;
# undef @select;
# push @select,"";
# for (my $i=1950;$i<=2050;$i++) {
# push @select, $i;
# }
# my $CGIpublicationyear=CGI::scrolling_list( -name => 'Filter',
# -id => 'Filter',
# -values => \@select,
# -size => 1,
# -multiple => 0 );
$req = $dbh->prepare("select distinctrow itemtype from biblioitems order by itemtype");
$req->execute;
@ -197,7 +187,7 @@ if ($do_it) {
-size => 1,
-multiple => 0 );
$req = $dbh->prepare("select distinctrow publishercode from biblioitems order by publishercode");
$req = $dbh->prepare("select distinctrow left(publishercode,75) from biblioitems order by publishercode");
$req->execute;
undef @select;
push @select,"";
@ -531,10 +521,11 @@ sub calculate {
if (@$filters[7]){
@$filters[7]=~ s/\*/%/g;
@$filters[7].="%" unless @$filters[7]=~/%/;
if ($cond){
$strcalc .= " AND biblioitems.publishercode like '" . @$filters[7] ."'";
$strcalc .= " AND biblioitems.publishercode like \"" . @$filters[7] ."\"";
} else {
$strcalc .= " WHERE biblioitems.publishercode like '" . @$filters[7] ."'";
$strcalc .= " WHERE biblioitems.publishercode like \"" . @$filters[7] ."\"";
$cond=1;
}
}