3 #script to display detailed information
7 # Copyright 2000-2002 Katipo Communications
9 # This file is part of Koha.
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
20 # You should have received a copy of the GNU General Public License along with
21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
22 # Suite 330, Boston, MA 02111-1307 USA
32 my $type=$input->param('type');
34 print startmenu($type);
37 my $subject=$input->param('subject');
38 #my $title=$input->param('title');
50 my @items=subsearch(\$blah,$subject);
57 print mktablerow(5,$main,bold('TITLE'),bold('AUTHOR'),bold('COUNT'),bold('LOCATION'),' ',"/images/background-mem.gif");
59 print mktablerow(5,$main,bold('TITLE'),bold('AUTHOR'),bold('COUNT'),bold('BRANCH'),' ');
63 my @results=split('\t',$items[$i]);
64 $results[0]=mklink("/cgi-bin/koha/detail.pl?bib=$results[2]&type=$type",$results[0]);
68 $results[1]=mklink("/cgi-bin/koha/search.pl?author=$word&type=$type",$results[1]);
69 my ($count,$lcount,$nacount,$fcount,$scount)=itemcount($env,$results[2]);
72 $results[4]=$results[4]."On Loan";
74 $results[4].=" $nacount";
79 $results[4]=$results[4]." Levin";
81 $results[4].=" $lcount";
86 $results[4]=$results[4]." Foxton";
88 $results[4].=" $fcount";
93 $results[4]=$results[4]." Shannon";
95 $results[4].=" $scount";
100 $results[6]=mklink("/cgi-bin/koha/request.pl?bib=$results[2]","Request");
103 print mktablerow(5,$secondary,$results[0],$results[1],$results[3],$results[4],$results[6]);
106 print mktablerow(5,'white',$results[0],$results[1],$results[3],$results[4],$results[6]);
113 print endmenu($type);