X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=detail.pl;h=d39c1828a10655276e0943679a4c3ab6f62c6b84;hb=70adcdf9250312c0250f117be65fd06c9228322a;hp=84bdbebb67b2853de16e3478c642d3433df52048;hpb=d0374d003716dfb40796caad6390a4d69bfb0376;p=koha.git diff --git a/detail.pl b/detail.pl index 84bdbebb67..d39c1828a1 100755 --- a/detail.pl +++ b/detail.pl @@ -1,231 +1,97 @@ #!/usr/bin/perl -#script to display detailed information -#written 8/11/99 - +# Copyright 2000-2002 Katipo Communications +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use HTML::Template; use strict; -#use DBI; -use C4::Search; +require Exporter; +use C4::Context; +use C4::Output; # contains gettemplate use CGI; -use C4::Output; - -my $input = new CGI; -print $input->header; -#whether it is called from the opac of the intranet -my $type=$input->param('type'); -if ($type eq ''){ - $type='intra'; -} -#setup colours -my $main; -my $secondary; -if ($type eq 'opac'){ - $main='#99cccc'; - $secondary='#efe5ef'; -} else { - $main='#cccc99'; - $secondary='#ffffcc'; -} -print startpage(); -print startmenu($type); -#print $type; -my $blah; -my $bib=$input->param('bib'); -my $title=$input->param('title'); -if ($type ne 'opac'){ - print ""; -} - - -my @items=ItemInfo(\$blah,$bib,$type); -my $dat=bibdata($bib); -my $count=@items; -my ($count3,$addauthor)=addauthor($bib); -my $additional=$addauthor->[0]->{'author'}; -for (my $i=1;$i<$count3;$i++){ - $additional=$additional."|".$addauthor->[$i]->{'author'}; -} -my @temp=split('\t',$items[0]); -print mkheadr(3,"$dat->{'title'} ($dat->{'author'}) $temp[4]"); -print < +use C4::Search; +use C4::Auth; - +my $query=new CGI; +my $type=$query->param('type'); +#(-e "opac") && ($type='opac'); +($type) || ($type='intra'); +my ($loggedinuser, $cookie, $sessionID) = checkauth($query, ($type eq 'opac') ? (1) : (0)); +my $biblionumber=$query->param('bib'); +#my $type='intra'; # FIXME - There's already a $type in this scope -
- - -BIBLIO RECORD -printend -; -if ($type ne 'opac'){ - print "$bib"; +# change back when ive fixed request.pl +my @items = ItemInfo(undef, $biblionumber, $type); +my $norequests = 1; +foreach my $itm (@items) { + $norequests = 0 unless $itm->{'notforloan'}; } -print < - - -printend -; -if ($type ne 'opac'){ - print " - "; -} -print < - -printend -; - - -if ($type ne 'opac'){ -print <Subtitle: $dat->{'subtitle'}
-Author: $dat->{'author'}
-Additional Author: $additional
-Series Title: $dat->{'seriestitle'}
-Subject: $dat->{'subject'}
-Copyright: $dat->{'copyrightdate'}
-Notes: $dat->{'notes'}
-Unititle: $dat->{'unititle'}
-Analytical Author:
-Analytical Title:
-Serial: $dat->{'serial'}
-Total Number of Items: $count -

-printend -; -} -else { -if ($dat->{'subtitle'} ne ''){ - print "Subtitle: $dat->{'subtitle'}
"; -} -if ($dat->{'author'} ne ''){ - print "Author: $dat->{'author'}
"; -} -#Additional Author:
-if ($dat->{'seriestitle'} ne ''){ - print "Seriestitle: $dat->{'seriestitle'}
"; -} -if ($dat->{'subject'} ne ''){ - print "Subject: $dat->{'subject'}
"; -} -if ($dat->{'copyrightdate'} ne ''){ - print "Copyright: $dat->{'copyrightdate'}
"; -} -if ($dat->{'notes'} ne ''){ - print "Notes: $dat->{'notes'}
"; -} -if ($dat->{'unititle'} ne ''){ - print "Unititle: $dat->{'unititle'}
"; -} -#Analytical Author:
-#Analytical Title:
-if ($dat->{'serial'} ne '0'){ - print "Serial: Yes
"; -} -print "Total Number of Items: $count -

-"; -} -print < - - +my $dat=bibdata($biblionumber); +my ($authorcount, $addauthor)= &addauthor($biblionumber); +my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber); +my ($websitecount, @websites) = &getwebsites($biblionumber); + +$dat->{'count'}=@items; +$dat->{'norequests'} = $norequests; - - +$dat->{'additional'}=$addauthor->[0]->{'author'}; +for (my $i = 1; $i < $authorcount; $i++) { + $dat->{'additional'} .= "|" . $addauthor->[$i]->{'author'}; +} # for -printend -; +my @results; +$results[0]=$dat; -#print @items; +my $resultsarray=\@results; +my $itemsarray=\@items; +my $webarray=\@webbiblioitems; +my $sitearray=\@websites; -my $i=0; -print center(); -print mktablehdr; -if ($type eq 'opac'){ +my $startfrom=$query->param('startfrom'); +($startfrom) || ($startfrom=0); - print mktablerow(6,$main,'Item Type','Class','Branch','Date Due','Last Seen'); +my $template; +if ($type eq 'opac') { + $template = gettemplate("catalogue/detail-opac.tmpl"); } else { - print mktablerow(6,$main,'Itemtype','Class','Location','Date Due','Last Seen','Barcode',"/images/background-mem.gif"); -} -my $colour=1; -while ($i < $count){ -# print $items[$i],"
"; - my @results=split('\t',$items[$i]); - if ($type ne 'opac'){ - $results[1]=mklink("/cgi-bin/koha/moredetail.pl?item=$results[5]&bib=$bib&bi=$results[8]",$results[1]); - } - if ($results[2] eq ''){ - $results[2]='Available'; - } - if ($colour == 1){ - if ($type ne 'opac'){ -# if ($results[6] eq 'PER'){ - print mktablerow(7,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]); -# } else { -# print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]); -# } - } else { - $results[6]=ItemType($results[6]); -# if ($results[6] =~ /Periodical/){ - print mktablerow(6,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); -# } else { -# print mktablerow(5,$secondary,$results[6],$results[4],$results[3],$results[2],$results[7]); -# } - } - $colour=0; - } else{ - if ($type ne 'opac'){ -# if ($results[6] eq 'PER'){ - print mktablerow(7,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1],$results[9]); -# }else{ -# print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[1]); -# } - } else { - $results[6]=ItemType($results[6]); -# if ($results[6] =~ /Periodical/){ - print mktablerow(6,'white',$results[6],$results[4],$results[3],$results[2],$results[7],$results[9]); -# } else { -# print mktablerow(5,'white',$results[6],$results[4],$results[3],$results[2],$results[7]); -# } - } - $colour=1; - } - $i++; + $template=gettemplate("catalogue/detail.tmpl"); } +my $count=1; + +# now to get the items into a hash we can use and whack that thru + + +$template->param(startfrom => $startfrom+1); +$template->param(endat => $startfrom+20); +$template->param(numrecords => $count); +my $nextstartfrom=($startfrom+20<$count-20) ? ($startfrom+20) : ($count-20); +my $prevstartfrom=($startfrom-20>0) ? ($startfrom-20) : (0); +$template->param(nextstartfrom => $nextstartfrom); +$template->param(prevstartfrom => $prevstartfrom); +$template->param(BIBLIO_RESULTS => $resultsarray); +$template->param(ITEM_RESULTS => $itemsarray); +$template->param(WEB_RESULTS => $webarray); +$template->param(SITE_RESULTS => $sitearray); +$template->param(loggedinuser => $loggedinuser); +print $query->header(-cookie => $cookie), $template->output; -print mktableft(); -print "

"; -print mktablehdr(); -if ($type ne 'opac'){ -print < -

HELP
-Update Biblio for all Items: Click on the Modify button [left] to amend the biblio. Any changes you make will update the record for all the items listed above.

-Updating the Biblio for only ONE or SOME Items: If some of the items listed above need a different biblio, or are on the wrong biblio, you must use the acquisitions process to fix this. You will need to "re-order" the items, and delete them from this biblio.

- - -printend -; -} -print mktableft(); -print endcenter(); -print "
"; -print endmenu($type); -print endpage();