- push @select,"";
- while (my ($value) =$req->fetchrow) {
- $hasdewey =1 if (($value) and (! $hasdewey));
- $count++ if (($value) and (! $hasdewey));
- push @select, $value;
- }
- my $CGIdewey=CGI::scrolling_list( -name => 'Filter',
- -id => 'Filter',
- -values => \@select,
- -size => 1,
- -multiple => 0 );
-
- $req = $dbh->prepare( "select distinctrow left(lccn,3) from biblioitems order by lccn");
- $req->execute;
- undef @select;
- push @select,"";
- my $haslccn;
- my $hlghtlccn;
- while (my ($value) =$req->fetchrow) {
- $hlghtlccn = !($hasdewey);
- $haslccn =1 if (($value) and (! $haslccn));
- $count++ if (($value) and (! $haslccn));
- push @select, $value;
- }
- my $CGIlccn=CGI::scrolling_list( -name => 'Filter',
- -id => 'Filter',
- -values => \@select,
- -size => 1,
- -multiple => 0 );
-
- $req = $dbh->prepare("select distinctrow left(itemcallnumber,5) from items order by itemcallnumber");
- $req->execute;
- undef @select;
- push @select,"";
- my $hascote;
- my $hlghtcote;
- while (my ($value) =$req->fetchrow) {
- $hascote =1 if (($value) 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;
-
-# undef @select;
-# push @select,"";
-# for (my $i=1950;$i<=2050;$i++) {
-# push @select, $i;
-# }
-# my $CGIpublicationyear=CGI::scrolling_list( -name => 'Filter',
+ # FIXME: no such field "dewey"
+ # $req = $dbh->prepare("select count(dewey) from biblioitems ");
+ # $req->execute;
+ my $hasdewey = 0;
+
+# (rch) biblioitems.lccn is mapped to lccn MARC21 010$a in default framework.
+# This is not the LC Classification. It's the Control Number.
+# So I'm just going to remove this bit. Call Number is handled in itemcallnumber.
+#
+ my $haslccn = 0;
+# $req = $dbh->prepare( "select count(lccn) from biblioitems ");
+# $req->execute;
+# my $hlghtlccn;
+# while (my ($value) =$req->fetchrow) {
+# $hlghtlccn = !($hasdewey);
+# $haslccn =1 if (($value>2) and (! $haslccn));
+# $count++ if (($value) and (! $haslccn));
+# push @select, $value;
+# }
+# my $CGIlccn=CGI::scrolling_list( -name => 'Filter',