($dewey == 0) && ($dewey='');
($dewey) && ($dewey.=" $subclass") ;
$sth->finish;
+ $data2->{dewey}=~s/[\.0]*$//;
+ ($data2->{dewey}==0) && ($data2->{dewey}='');
push @$resulthash, $data2;
$res2[$i]="$data2->{'author'}\t$data2->{'title'}\t$data2->{'biblionumber'}\t$data2->{'copyrightdate'}\t$dewey";
$i++;
</head>
<body>
<TMPL_INCLUDE NAME="searchheader.tmpl">
-<table border=1>
-<tr><th>Title</th><th>Author</th><th>Dewey</th></tr>
+<table border=0 cellspacing=0 cellpadding=0>
+<tr bgcolor=#ccccff><th>Title</th><th>Author</th><th>Dewey</th></tr>
<TMPL_LOOP NAME=SEARCH_RESULTS>
<tr>
- <td> <TMPL_VAR NAME=title> </td>
- <td> <TMPL_VAR NAME=author> </td>
- <td> <TMPL_VAR NAME=dewey> </td>
+ <td><TMPL_VAR NAME=title></td>
+ <td><TMPL_VAR NAME=author></td>
+ <td align=right><TMPL_VAR NAME=dewey></td>
</tr>
</TMPL_LOOP>
-<tr><td colspan=3><a href=search.pl?template=<TMPL_VAR NAME="template">&startfrom=<TMPL_VAR NAME="nextstartfrom">>Next Records</a></td></tr>
+<tr><td colspan=3 bgcolor=#ccccff><a href=search.pl?template=<TMPL_VAR NAME="template">&startfrom=<TMPL_VAR NAME="nextstartfrom">>Next Records</a></td></tr>
</table>
<hr>
</body>
my $blah;
my %search;
-$search{'keyword'}='bear';
+my $keyword='bear';
+$search{'keyword'}=$keyword;
my ($count, $resultshash, @results) = &KeywordSearch(\$blah, 'intra', \%search, 20, $startfrom);