gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

synching opac search & librarian search.

This commit is contained in:
tipaul 2006-09-13 14:16:37 +00:00
parent 23f9a7a7e6
commit 000cc3cb45
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
search.marc/search.pl
View File

@ -123,25 +123,28 @@ if ($op eq "do_search") {
# builds tag and subfield arrays
my @tags;
foreach my $marc (@marclist) {
if ($marc) {
my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc,'');
if ($tag) {
push @tags,$dbh->quote("$tag$subfield");
} else {
if ($marc =~ /^(\d){3}(. -)(.)*/)
{
# The user is using the search catalogue part, more fields
push @tags, $dbh->quote(substr($marc,0,4));
}
else
{
push @tags, $marc;
}
}
} else {
push @tags, "";
for (my $i=0;$i<=$#marclist;$i++) {
if ($marclist[$i] eq "biblioitems.isbn") {
$value[$i] =~ s/-//g;
}
# if ($marc) {
# my ($tag,$subfield) = MARCfind_marc_from_kohafield($dbh,$marc,'');
# if ($tag) {
# push @tags,$dbh->quote("$tag$subfield");
# } else {
# if ($marc =~ /^(\d){3}(. -)(.)*/)
# {
# # The user is using the search catalogue part, more fields
# push @tags, $dbh->quote(substr($marc,0,4));
# }
# else
# {
# push @tags, $marc;
# }
# }
# } else {
# push @tags, "";
# }
}
findseealso($dbh,\@tags);
my ($results,$total) = catalogsearch($dbh, \@tags,\@and_or,