X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=catalogue%2Fmoredetail.pl;h=c3d7a95e345232033c4c50b6bd04ab3ca258fb66;hb=76d52d89e4b5a25454a65198e50f2fe0475566bd;hp=b46bffb3d2917697469f6abebaaa4f4cd46e72e3;hpb=4843e0ee78a4c27617f3ee7916a4804e28b3fd61;p=koha.git diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index b46bffb3d2..c3d7a95e34 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -1,7 +1,4 @@ #!/usr/bin/perl -# NOTE: Use standard 8-space tabs for this file (indents are 4 spaces) - -# $Id$ # Copyright 2000-2003 Katipo Communications # @@ -16,168 +13,138 @@ # 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 +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. + use strict; -require Exporter; +#use warnings; FIXME - Bug 2505 use C4::Koha; use CGI; -use C4::Search; +use C4::Biblio; +use C4::Items; +use C4::Branch; use C4::Acquisition; +use C4::Output; # contains gettemplate use C4::Auth; -use C4::Interface::CGI::Output; -use C4::Date; -use C4::Context; -use C4::Biblio; -use C4::Accounts2; -use C4::Circulation::Circ2; +use C4::Serials; +use C4::Dates qw/format_date/; +use C4::Circulation; # to use itemissues +use C4::Members; # to use GetMember +use C4::Search; # enabled_staff_search_views -my $dbh=C4::Context->dbh; my $query=new CGI; +# FIXME subject is not exported to the template? +my $subject=$query->param('subject'); +# if its a subject we need to use the subject.tmpl my ($template, $loggedinuser, $cookie) = get_template_and_user({ - template_name => ( 'catalogue/moredetail.tmpl'), - query => $query, - type => "intranet", - authnotrequired => 0, - flagsrequired => {catalogue => 1}, + template_name => ($subject? 'catalogue/subject.tmpl': + 'catalogue/moredetail.tmpl'), + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, }); +if($query->cookie("holdfor")){ + my $holdfor_patron = GetMember('borrowernumber' => $query->cookie("holdfor")); + $template->param( + holdfor => $query->cookie("holdfor"), + holdfor_surname => $holdfor_patron->{'surname'}, + holdfor_firstname => $holdfor_patron->{'firstname'}, + holdfor_cardnumber => $holdfor_patron->{'cardnumber'}, + ); +} + # get variables -my $op=$query->param('op'); -my $lost=$query->param('lost'); -my $withdrawn=$query->param('withdrawn'); -my $override=$query->param('override'); -my $itemnumber=$query->param('itemnumber'); -my $barcode=$query->param('barcode'); -my $title=$query->param('title'); my $biblionumber=$query->param('biblionumber'); -my ($record)=XMLgetbibliohash($dbh,$biblionumber); -my $data=XMLmarc2koha_onerecord($dbh,$record,"biblios"); +my $title=$query->param('title'); +my $bi=$query->param('bi'); +$bi = $biblionumber unless $bi; +my $data=GetBiblioData($biblionumber); my $dewey = $data->{'dewey'}; + +#coping with subscriptions +my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber); + # FIXME Dewey is a string, not a number, & we should use a function -$dewey =~ s/0+$//; -if ($dewey eq "000.") { $dewey = "";}; -if ($dewey < 10){$dewey='00'.$dewey;} -if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;} -if ($dewey <= 0){ - $dewey=''; -} -$dewey=~ s/\.$//; -$data->{'dewey'}=$dewey; +# $dewey =~ s/0+$//; +# if ($dewey eq "000.") { $dewey = "";}; +# if ($dewey < 10){$dewey='00'.$dewey;} +# if ($dewey < 100 && $dewey > 10){$dewey='0'.$dewey;} +# if ($dewey <= 0){ +# $dewey=''; +# } +# $dewey=~ s/\.$//; +# $data->{'dewey'}=$dewey; my @results; - -my @items; -if ($op eq "update"){ -my $env; -##Do Lost or Withdraw here -my $flag=0; - my ($resbor,$resrec)=C4::Reserves2::CheckReserves($env,$dbh,$itemnumber); -if ($override ne "yes"){ - if ($resbor){ -# print $query->header; - $template->param(error => "This item has a reserve on it"); - $template->param(biblionumber =>$biblionumber); - $template->param(itemnumber =>$itemnumber); - $template->param(lost =>$lost); - $template->param(withdrawn =>$withdrawn); - $flag=1; - } - my $sth=$dbh->prepare("Select * from issues where (itemnumber=?) and (returndate is null)"); - $sth->execute($itemnumber); - - if (my $data=$sth->fetchrow_hashref) { - $template->param(biblionumber =>$biblionumber); - $template->param(itemnumber =>$itemnumber); - $template->param(error => "This item is On Loan to a member"); - $template->param(lost =>$lost); - $template->param(withdrawn =>$withdrawn); - $flag=2; - } -} -if ($flag != 0 && $override ne "yes"){ - - }else { - ##UPDATE here - -XMLmoditemonefield($dbh,$biblionumber,$itemnumber,'wthdrawn',$withdrawn,1); -XMLmoditemonefield($dbh,$biblionumber,$itemnumber,'itemlost',$lost); - - if ($lost ==1 && $flag ==2){ - my $sth=$dbh->prepare("Select * from issues where (itemnumber=?) and (returndate is null)"); - $sth->execute($itemnumber); - my $data=$sth->fetchrow_hashref; - if ($data->{'borrowernumber'} ne '') { - #item on issue add replacement cost to borrowers record - my $accountno=getnextacctno($env,$data->{'borrowernumber'},$dbh); - my $item=getiteminformation($env, $itemnumber); - my $sth2=$dbh->prepare("Insert into accountlines - (borrowernumber,accountno,date,amount,description,accounttype,amountoutstanding,itemnumber) - values - (?,?,now(),?,?,'L',?,?)"); - $sth2->execute($data->{'borrowernumber'},$accountno,$item->{'replacementprice'}, - "Lost Item $item->{'title'} $item->{'barcode'}", - $item->{'replacementprice'},$itemnumber); - $sth2->finish; - } - } - if ($flag==1){ - foreach my $res ($resrec){ - C4::Reserves2::CancelReseve(undef,$res->{itemnumber},$res->{borrowernumber}); - } - } - - } -} -my @itemrecords=XMLgetallitems($dbh,$biblionumber); -foreach my $itemrecord (@itemrecords){ -$itemrecord=XML_xml2hash_onerecord($itemrecord); -my $items = XMLmarc2koha_onerecord($dbh,$itemrecord,"holdings"); -$items->{itemtype}=$data->{itemtype}; -$items->{biblionumber}=$biblionumber; -$items=itemissues($dbh,$items,$items->{'itemnumber'}); -push @items,$items; -} +my $fw = GetFrameworkCode($biblionumber); +my @items= GetItemsInfo($biblionumber); my $count=@items; $data->{'count'}=$count; -my ($order,$ordernum)=GetOrder($biblionumber,$barcode); -my $env; -$env->{itemcount}=1; +my $ccodes= GetKohaAuthorisedValues('items.ccode',$fw); +my $itemtypes = GetItemTypes; +$data->{'itemtypename'} = $itemtypes->{$data->{'itemtype'}}->{'description'}; $results[0]=$data; - +my $itemnumber; +($itemnumber) and @items = (grep {$_->{'itemnumber'} == $itemnumber} @items); foreach my $item (@items){ - $item->{'replacementprice'}=sprintf("%.2f", $item->{'replacementprice'}); - $item->{'datelastborrowed'}= format_date($item->{'datelastborrowed'}); - $item->{'dateaccessioned'} = format_date($item->{'dateaccessioned'}); - $item->{'datelastseen'} = format_date($item->{'datelastseen'}); - $item->{'ordernumber'} = $ordernum; + $item->{itemlostloop}= GetAuthorisedValues(GetAuthValCode('items.itemlost',$fw),$item->{itemlost}) if GetAuthValCode('items.itemlost',$fw); + $item->{itemdamagedloop}= GetAuthorisedValues(GetAuthValCode('items.damaged',$fw),$item->{damaged}) if GetAuthValCode('items.damaged',$fw); + $item->{'collection'} = $ccodes->{ $item->{ccode} } if ($ccodes); + $item->{'itype'} = $itemtypes->{ $item->{'itype'} }->{'description'}; + $item->{'replacementprice'} = sprintf( "%.2f", $item->{'replacementprice'} ); + $item->{'datelastborrowed'} = format_date( $item->{'datelastborrowed'} ); + $item->{'dateaccessioned'} = format_date( $item->{'dateaccessioned'} ); + $item->{'datelastseen'} = format_date( $item->{'datelastseen'} ); + $item->{'copyvol'} = $item->{'copynumber'}; + + my $order = GetOrderFromItemnumber( $item->{'itemnumber'} ); + $item->{'ordernumber'} = $order->{'ordernumber'}; + $item->{'basketno'} = $order->{'basketno'}; $item->{'booksellerinvoicenumber'} = $order->{'booksellerinvoicenumber'}; - if ($item->{'date_due'} gt '0000-00-00'){ - $item->{'date_due'} = format_date($item->{'date_due'}); -$item->{'issue'}= 1; - $item->{'borrowernumber'} = $item->{'borrower'}; - $item->{'cardnumber'} = $item->{'card'}; - + if ($item->{notforloantext} or $item->{itemlost} or $item->{damaged} or $item->{wthdrawn}) { + $item->{status_advisory} = 1; + } + + if (C4::Context->preference("IndependantBranches")) { + #verifying rights + my $userenv = C4::Context->userenv(); + unless (($userenv->{'flags'} == 1) or ($userenv->{'branch'} eq $item->{'homebranch'})) { + $item->{'nomod'}=1; + } + } + $item->{'homebranchname'} = GetBranchName($item->{'homebranch'}); + $item->{'holdingbranchname'} = GetBranchName($item->{'holdingbranch'}); + if ($item->{'datedue'}) { + $item->{'datedue'} = format_date($item->{'datedue'}); + $item->{'issue'}= 1; } else { - $item->{'issue'}= 0; + $item->{'issue'}= 0; } } - +$template->param(count => $data->{'count'}, + subscriptionsnumber => $subscriptionsnumber, + subscriptiontitle => $data->{title}, + C4::Search::enabled_staff_search_views, +); $template->param(BIBITEM_DATA => \@results); $template->param(ITEM_DATA => \@items); +$template->param(moredetailview => 1); $template->param(loggedinuser => $loggedinuser); +$template->param(biblionumber => $biblionumber); +$template->param(biblioitemnumber => $bi); +$template->param(itemnumber => $itemnumber); +$template->param(ONLY_ONE => 1) if ( $itemnumber && $count != @items ); +$template->param(z3950_search_params => C4::Search::z3950_search_args(GetBiblioData($biblionumber))); output_html_with_http_headers $query, $cookie, $template->output; - -# Local Variables: -# tab-width: 8 -# End: