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

merging 1.2 and main branches

Browse source
This commit is contained in:
tipaul 2002-07-04 10:42:31 +00:00
parent 057fd6af5c
commit bd04fceca8
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
acqui/newbasket2.pl
View file

@ -76,12 +76,17 @@ printend
;
print center();
my $count;
my @results;
($count,@results)=&CatSearch(\$blah,'loose',\%search,$num,$offset);
if ($keyword ne ''){
# print "hey";
($count,@results)=KeywordSearch(undef,'intra',\%search,$num,$offset);
} elsif ($search{'front'} ne '') {
($count,@results)=FrontSearch(undef,'intra',\%search,$num,$offset);
}else {
($count,@results)=CatSearch(undef,'loose',\%search,$num,$offset);
# print "hey";
}
print "You searched on ";
while ( my ($key, $value) = each %search) {