-
- $req = $dbh->prepare("select count(itemcallnumber) from items");
- $req->execute;
-# undef @select;
-# push @select,"";
- my $hascote;
- my $hlghtcote;
- while (my ($value) =$req->fetchrow) {
- $hascote =1 if (($value>2) and (! $hascote));
- $count++ if (($value) and (! $hascote));
- $hlghtcote = (($hasdewey) and ($haslccn)) or (!($hasdewey) and !($haslccn));
-# push @select, $value;
- }
-# my $CGIcote=CGI::scrolling_list( -name => 'Filter',
-# -id => 'Filter',
-# -values => \@select,
-# -size => 1,
-# -multiple => 0 );
- $count++;
- my $hglghtDT =$count % 2;
-# warn "highlightDT ".$hglghtDT;
- $count++;
- my $hglghtPub =$count % 2;
-# warn "highlightPub ".$hglghtPub;
- $count++;
- my $hglghtPY =$count % 2;
-# warn "highlightPY ".$hglghtPY;
- $count++;
- my $hglghtHB =$count % 2;
-# warn "highlightHB ".$hglghtHB;
- $count++;
- my $hglghtLOC =$count % 2;
-# warn "highlightLOC ".$hglghtLOC;
-
-
- $req = $dbh->prepare("select itemtype from itemtypes order by itemtype");
- $req->execute;
- undef @select;
- push @select,"";
- while (my ($value) =$req->fetchrow) {
- push @select, $value;
- }
- my $CGIitemtype=CGI::scrolling_list( -name => 'Filter',
- -id => 'itemtype',
- -values => \@select,
- -size => 1,
- -multiple => 0 );
-
-# $req = $dbh->prepare("select distinctrow left(publishercode,75) from biblioitems order by publishercode");
-# $req->execute;
-# undef @select;
-# push @select,"";
-# while (my ($value) =$req->fetchrow) {
-# push @select, $value;
-# }
-# my $CGIpublisher=CGI::scrolling_list( -name => 'Filter',
-# -id => 'Filter',
-# -values => \@select,
-# -size => 1,
-# -multiple => 0 );