chris
25 年前
共有 3 个文件被更改,包括 173 次插入 和 0 次删除
@ -0,0 +1,18 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
#script to guide user thru adding a new biblio entry |
|||
#written 8/11/99 |
|||
|
|||
use strict; |
|||
#use C4::Search; |
|||
use CGI; |
|||
use C4::Output; |
|||
|
|||
my $input = new CGI; |
|||
print $input->header; |
|||
print startpage(); |
|||
print startmenu(); |
|||
print mktablehdr(); |
|||
print mktableft(); |
|||
print endmenu(); |
|||
print endpage(); |
@ -0,0 +1,43 @@ |
|||
#!/usr/bin/perl |
|||
|
|||
#script to display detailed information |
|||
#written 8/11/99 |
|||
|
|||
use strict; |
|||
#use DBI; |
|||
use C4::Search; |
|||
use CGI; |
|||
use C4::Output; |
|||
|
|||
my $input = new CGI; |
|||
print $input->header; |
|||
print startpage(); |
|||
print startmenu(); |
|||
my $blah; |
|||
|
|||
my $bib=$input->param('bib'); |
|||
my $title=$input->param('title'); |
|||
|
|||
my @items=ItemInfo(\$blah,$bib,$title); |
|||
#print @items; |
|||
my $count=@items; |
|||
my $i=0; |
|||
print center(); |
|||
print mktablehdr; |
|||
print mktablerow(3,'white','Title','Itemnumber','DateDue'); |
|||
my $colour=1; |
|||
while ($i < $count){ |
|||
my @results=split('\t',$items[$i]); |
|||
if ($colour == 1){ |
|||
print mktablerow(4,'#ffffcc',@results); |
|||
$colour=0; |
|||
} else{ |
|||
print mktablerow(4,'white',@results); |
|||
$colour=1; |
|||
} |
|||
$i++; |
|||
} |
|||
print endcenter(); |
|||
print mktableft(); |
|||
print endmenu(); |
|||
print endpage(); |
@ -0,0 +1,112 @@ |
|||
#!/usr/bin/perl |
|||
#script to provide intranet (librarian) advanced search facility |
|||
#modified 9/11/1999 by chris@katipo.co.nz |
|||
|
|||
use strict; |
|||
#use DBI; |
|||
use C4::Search; |
|||
use CGI; |
|||
use C4::Output; |
|||
|
|||
my $input = new CGI; |
|||
print $input->header; |
|||
#print $input->dump; |
|||
my $blah; |
|||
my %search; |
|||
#build hash of users input |
|||
my $title=$input->param('title'); |
|||
$search{'title'}=$title; |
|||
my $keyword=$input->param('keyword'); |
|||
$search{'keyword'}=$keyword; |
|||
my $author=$input->param('author'); |
|||
$search{'author'}=$author; |
|||
my $subject=$input->param('subject'); |
|||
$search{'subject'}=$subject; |
|||
my $itemnumber=$input->param('item'); |
|||
$search{'item'}=$itemnumber; |
|||
my $isbn=$input->param('isbn'); |
|||
$search{'isbn'}=$isbn; |
|||
my @results; |
|||
my $offset=$input->param('offset'); |
|||
if ($offset eq ''){ |
|||
$offset=0; |
|||
} |
|||
my $num=$input->param('num'); |
|||
if ($num eq ''){ |
|||
$num=10; |
|||
} |
|||
print startpage(); |
|||
print startmenu(); |
|||
print mkheadr(1,'Catalogue Search Results'); |
|||
print center(); |
|||
my $count; |
|||
my @results; |
|||
if ($itemnumber ne '' || $isbn ne ''){ |
|||
($count,@results)=&CatSearch(\$blah,'precise',\%search,$num,$offset); |
|||
} else { |
|||
if ($subject ne ''){ |
|||
($count,@results)=&CatSearch(\$blah,'subject',\%search,$num,$offset); |
|||
} else { |
|||
($count,@results)=&CatSearch(\$blah,'loose',\%search,$num,$offset); |
|||
} |
|||
} |
|||
print "You searched on $title $author $keyword $subject $itemnumber $isbn, $count results found"; |
|||
my $offset2=$num+$offset; |
|||
print "<br> Results $offset to $offset2 displayed"; |
|||
print mktablehdr; |
|||
if ($subject ne ''){ |
|||
print mktablerow(1,'#cccc99','<b>SUBJECT</b>'); |
|||
} else { |
|||
print mktablerow(2,'#cccc99','<b>TITLE</b>','<b>AUTHOR</b>'); |
|||
} |
|||
my $count2=@results; |
|||
my $i=0; |
|||
my $colour=1; |
|||
while ($i < $count2){ |
|||
my @stuff=split('\t',$results[$i]); |
|||
my $title2=$stuff[1]; |
|||
$title2=~ s/ /%20/g; |
|||
if ($subject eq ''){ |
|||
$stuff[1]=mklink("/cgi-bin/kumara/detail.pl?bib=$stuff[0]&title=$title2",$stuff[1]); |
|||
my $word=$stuff[2]; |
|||
$word=~ s/ //g; |
|||
$word=~ s/\,/\,%20/g; |
|||
$word=~ s/\n//g; |
|||
my $url="/cgi-bin/kumara/testsearch.pl?author=$word&type=a"; |
|||
$stuff[2]=mklink($url,$stuff[2]); |
|||
} else { |
|||
$stuff[1]=mklink("/cgi-bin/kumara/subjectsearch.pl?subject=$stuff[1]",$stuff[1]); |
|||
} |
|||
if ($colour == 1){ |
|||
print mktablerow(2,'#ffffcc',$stuff[1],$stuff[2]); |
|||
$colour=0; |
|||
} else{ |
|||
print mktablerow(2,'white',$stuff[1],$stuff[2]); |
|||
$colour=1; |
|||
} |
|||
$i++; |
|||
} |
|||
$offset=$num+$offset; |
|||
print mktablerow(2,'#cccc99',' ',' '); |
|||
print mktableft(); |
|||
if ($offset < $count){ |
|||
my $search="num=$num&offset=$offset"; |
|||
if ($subject ne ''){ |
|||
$subject=~ s/ /%20/g; |
|||
$search=$search."&subject=$subject"; |
|||
} |
|||
if ($title ne ''){ |
|||
$title=~ s/ /%20/g; |
|||
$search=$search."&title=$title"; |
|||
} |
|||
if ($author ne ''){ |
|||
$author=~ s/ /%20/g; |
|||
$search=$search."&author=$author"; |
|||
} |
|||
my $stuff=mklink("/cgi-bin/kumara/search.pl?$search",'More'); |
|||
print $stuff; |
|||
} |
|||
|
|||
print endcenter(); |
|||
print endmenu(); |
|||
print endpage(); |
正在加载...
在新工单中引用