From 31b979aa4e46947c3e42e456616a7c4365bda833 Mon Sep 17 00:00:00 2001 From: toins Date: Wed, 12 Jul 2006 13:29:27 +0000 Subject: [PATCH] statecollection.pl renamed to serials-recieve.pl --- serials/serials-recieve.pl | 184 +++++++++++++++++++++++++++++++++++++ 1 file changed, 184 insertions(+) create mode 100755 serials/serials-recieve.pl diff --git a/serials/serials-recieve.pl b/serials/serials-recieve.pl new file mode 100755 index 0000000000..f0a9a6de4c --- /dev/null +++ b/serials/serials-recieve.pl @@ -0,0 +1,184 @@ +#!/usr/bin/perl + +# 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 + +# $Id$ + +use strict; +use CGI; +use C4::Auth; +use C4::Date; +use C4::Biblio; +use C4::Koha; +use C4::Output; +use C4::Interface::CGI::Output; +use C4::Context; +use C4::Serials; +use HTML::Template; + +my $query = new CGI; +my $op = $query->param('op'); +my $dbh = C4::Context->dbh; +my $subscriptionid = $query->param('subscriptionid'); +my $auser = $query->param('user'); +my $histstartdate = format_date_in_iso($query->param('histstartdate')); +my $enddate = format_date_in_iso($query->param('enddate')); +my $recievedlist = $query->param('recievedlist'); +my $missinglist = $query->param('missinglist'); +my $opacnote = $query->param('opacnote'); +my $librariannote = $query->param('librariannote'); +my @serialids = $query->param('serialid'); +my @serialseqs = $query->param('serialseq'); +my @planneddates = $query->param('planneddate'); +my @publisheddates = $query->param('publisheddate'); +my @status = $query->param('status'); + +my ($template, $loggedinuser, $cookie) += get_template_and_user({template_name => "serials/statecollection.tmpl", + query => $query, + type => "intranet", + authnotrequired => 0, + flagsrequired => {catalogue => 1}, + debug => 1, + }); + +my $hassubscriptionexpired = HasSubscriptionExpired($subscriptionid); +my $subscription=GetSubscription($subscriptionid); + + +if ($op eq 'modsubscriptionhistory') { + ModSubscriptionHistory($subscriptionid,$histstartdate,$enddate,$recievedlist,$missinglist,$opacnote,$librariannote); +} +# change status except, if subscription has expired, for the "waited" issue. +if ($op eq 'modserialstatus') { + my $sth = GetSerialStatusFromSerialId(); + for (my $i=0;$i<=$#serialids;$i++) { + $sth->execute($serialids[$i]); + + my ($oldstatus) = $sth->fetchrow; + if ($serialids[$i]) { + ModSerialStatus($serialids[$i],$serialseqs[$i],format_date_in_iso($publisheddates[$i]),($planneddates[$i]?format_date_in_iso($planneddates[$i]):format_date_in_iso(localtime(time()))),$status[$i],$notes[$i]) unless ($hassubscriptionexpired && $oldstatus == 1); + if (($status[$i]==2) && C4::Context->preference("serialsadditems")){ + my %info; + $info{branch}=$homebranches[$i]; +# $info{barcode}=$barcodes[$i]; + $info{itemcallnumber}=$itemcallnumbers[$i]; + $info{location}=$locations[$i]; + $info{status}=$itemstatus[$i]; + $info{notes}=$serialseqs[$i]; + my ($status, @errors)= ItemizeSerials($serialids[$i],\%info); + } + } else { + # add a special issue + if ($serialseqs[$i]) { + my $subscription=GetSubscription($subscriptionid); + NewIssue($serialseqs[$i],$subscriptionid,$subscription->{biblionumber},$status[$i], format_date_in_iso($planneddates[$i])); + } + if (($status[$i]==2) && C4::Context->preference("serialsadditems") && !HasSubscriptionExpired($subscriptionid)){ + my %info; + $info{branch}=$homebranches[$i]; +# $info{barcode}=$barcodes[$i]; + $info{itemcallnumber}=$itemcallnumbers[$i]; + $info{location}=$locations[$i]; + $info{status}=$itemstatus[$i]; + $info{notes}=$serialseqs[$i]; + my ($status, @errors)= ItemizeSerials($serialids[$i],\%info); + } + } + } +} +my $subs = &GetSubscription($subscriptionid); +my ($totalissues,@serialslist) = GetSerials($subscriptionid,10); + +my $sth= GetSubscriptionHistoryFromSubscriptionId(); + +$sth->execute($subscriptionid); +my $solhistory = $sth->fetchrow_hashref; + +my $subs = &GetSubscription($subscriptionid); +my ($totalissues,@serialslist) = GetSerials($subscriptionid); + +if (C4::Context->preference("serialsadditems")){ + my $bibid=MARCfind_MARCbibid_from_oldbiblionumber($dbh,$subscription->{biblionumber}); + my $fwk=MARCfind_frameworkcode($dbh,$bibid); + + my $branches = getbranches; + my @branchloop; + foreach my $thisbranch (keys %$branches) { + my %row =(value => $thisbranch, + branchname => $branches->{$thisbranch}->{'branchname'}, + ); + push @branchloop, \%row; + } + + my $itemstatushash = getitemstatus($fwk); + my @itemstatusloop; + foreach my $thisitemstatus (keys %$itemstatushash) { + my %row =(itemval => $thisitemstatus, + itemlib => $itemstatushash->{$thisitemstatus}, + ); + push @itemstatusloop, \%row; + } + + my $itemlocationhash = getitemlocation($fwk); + my @itemlocationloop; + foreach my $thisitemlocation (keys %$itemlocationhash) { + my %row =(value => $thisitemlocation, + itemlocationname => $itemlocationhash->{$thisitemlocation}, + ); + push @itemlocationloop, \%row; + } + foreach my $data (@serialslist){ + if (scalar(@itemstatusloop)){$data->{"itemstatusloop"}=\@itemstatusloop;} + else { $data->{"itemstatusloop"}=[];} + if (scalar(@itemlocationloop)){$data->{"itemlocationloop"}=\@itemlocationloop;} + else {$data->{"itemlocationloop"}=[];} + $data->{"branchloop"}=\@branchloop ; + } + $template->param(serialadditems =>C4::Context->preference("serialsadditems"), + branchloop => \@branchloop, + ) ; + $template->param(itemstatus=>1,itemstatusloop=>\@itemstatusloop) if (scalar(@itemstatusloop)); + $template->param(itemlocation=>1,itemlocationloop=>\@itemlocationloop) if (scalar(@itemlocationloop)); +}else{ + $template->param(branchloop=>[],itemstatusloop=>[],itemlocationloop=>[]) ; +} + +my $sth= GetSubscriptionHistoryFromSubscriptionId(); +$sth->execute($subscriptionid); +my $solhistory = $sth->fetchrow_hashref; + + +$template->param( + serialslist => \@serialslist, + biblionumber => $subscription->{biblionumber}, + histstartdate => format_date($solhistory->{'histstartdate'}), + enddate => format_date($solhistory->{'enddate'}), + recievedlist => $solhistory->{'recievedlist'}, + missinglist => $solhistory->{'missinglist'}, + opacnote => $solhistory->{'opacnote'}, + librariannote => $solhistory->{'librariannote'}, + subscriptionid => $subscriptionid, + bibliotitle => $subs->{bibliotitle}, + biblionumber => $subs->{biblionumber}, + hassubscriptionexpired =>$hassubscriptionexpired, + intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), + intranetstylesheet => C4::Context->preference("intranetstylesheet"), + IntranetNav => C4::Context->preference("IntranetNav"), + ); +output_html_with_http_headers $query, $cookie, $template->output; -- 2.39.5