#!/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$

=head1 NAME

serials-recieve.pl

=head1 Parameters

=over 4

=item op
 op can be :
    * modsubscriptionhistory :to modify the subscription history 
    * serialchangestatus     :to modify the status of this subscription

=item subscriptionid

=item user

=item histstartdate

=item enddate

=item recievedlist

=item missinglist

=item opacnote

=item librariannote

=item serialid

=item serialseq

=item planneddate

=item notes

=item status

=back

=cut


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 @notes = $query->param('notes');
my @status = $query->param('status');
# my @publisheddates = $query->param('publisheddates');


my ($template, $loggedinuser, $cookie)
= get_template_and_user({template_name => "serials/serials-recieve.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 'serialchangestatus') {
	my $sth = $dbh->prepare("select status from serial where serialid=?");
	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($planneddates[$i]),$status[$i],$notes[$i]) unless ($hassubscriptionexpired && $oldstatus == 1);
		} 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]));
			}
		}
	}
}
my $subs = &GetSubscription($subscriptionid);
my ($totalissues,@serialslist) = GetSerials($subscriptionid,10);

my $sth= C4::Serials::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= C4::Serials::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;
