#!/usr/bin/perl

#written 11/3/2002 by Finlay
#script to execute branch transfers of books


# 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 strict;
use CGI;
use C4::Circulation::Circ2;
use C4::Output;
use C4::Reserves2;

###############################################
# constants

my %env;
my $headerbackgroundcolor='#99cc33';
my $circbackgroundcolor='#ffffcc';
my $circbackgroundcolor='white';
my $linecolor1='#ffffcc';
my $linecolor2='white';
my $backgroundimage="/images/background-mem.gif";

my $branches = getbranches();
my $printers = getprinters(\%env);


###############################################
#  Getting state

my $query=new CGI;


my $branch = $query->param("branch");
my $printer = $query->param("printer");


($branch) || ($branch=$query->cookie('branch')) ;
($printer) || ($printer=$query->cookie('printer')) ;

my $request=$query->param('request');


my $tobranchcd=$query->param('tobranchcd');
my $frbranchcd='';

# set up the branchselect options....
my $tobranchoptions;
foreach my $br (keys %$branches) {
    (next) unless $branches->{$br}->{'CU'};
    my $selected='';
    ($selected='selected') if ($br eq $tobranchcd);
    $tobranchoptions.="<option value=$br $selected>$branches->{$br}->{'branchname'}\n";
}

# collect the stack of books already transfered so they can printed...
my %transfereditems;
my $ritext = '';
my %frbranchcds;
my %tobranchcds;
foreach ($query->param){
    (next) unless (/bc-(\d*)/);
    my $counter=$1;
    my $barcode=$query->param("bc-$counter");
    my $frbcd=$query->param("fb-$counter");
    my $tobcd=$query->param("tb-$counter");
    $counter++;
    $transfereditems{$counter}=$barcode;
    $frbranchcds{$counter}=$frbcd;
    $tobranchcds{$counter}=$tobcd;
    $ritext.="<input type=hidden name=bc-$counter value=$barcode>\n";
    $ritext.="<input type=hidden name=fb-$counter value=$frbcd>\n";
    $ritext.="<input type=hidden name=tb-$counter value=$tobcd>\n";
    }


# Collect a few messages here...
my $messagetext='';

############
# Deal with the requests....
if ($request eq "KillWaiting") {
    my $item = $query->param('itemnumber');
    my $borrnum = $query->param('borrowernumber');
    CancelReserve(0, $item, $borrnum);
    $messagetext .= "Reserve Cancelled<br>";
}
my $ignoreRs = 0;
if ($request eq "SetWaiting") {
    my $item = $query->param('itemnumber');
    my $borrnum = $query->param('borrowernumber');
    $tobranchcd = ReserveWaiting($item, $borrnum);
    $ignoreRs = 1;
    $messagetext .= "Item should now be waiting at branch: $branches->{$tobranchcd}->{'branchname'}<br>";
}
if ($request eq 'KillReserved'){
    my $biblio = $query->param('biblionumber');
    my $borrnum = $query->param('borrowernumber');
    CancelReserve($biblio, 0, $borrnum);
    $messagetext .= "Reserve Cancelled<br>";
}




# Warnings etc that get displayed at top of next page....
my $messages;
# if the barcode has been entered action that and write a message 
# and put onto the top of the stack...
my $iteminformation;
my $barcode = $query->param('barcode');
if ($barcode) {
    my $transfered;
    my $iteminformation;
    ($transfered, $messages, $iteminformation) 
                   = transferbook($tobranchcd, $barcode, $ignoreRs);
    if ($transfered) {
	my $frbranchcd = $iteminformation->{'holdingbranch'};
	$ritext.="<input type=hidden name=bc-0 value=$barcode>\n";
	$ritext.="<input type=hidden name=fb-0 value=$frbranchcd>\n";
	$ritext.="<input type=hidden name=tb-0 value=$tobranchcd>\n";
	$transfereditems{0}=$barcode;
	$frbranchcds{0}=$frbranchcd;
	$tobranchcds{0}=$tobranchcd;
    }
}


#################################################################################
# Html code....
# collect together the various elements...

my $entrytext= << "EOF";
<form method=post action=/cgi-bin/koha/circ/branchtransfers.pl>
<table border=1 cellpadding=5 cellspacing=0 align=left>
<tr><td colspan=2 align=center background=$backgroundimage>
<font color=black><b>Select Branch</b></font></td></tr>
<tr><td>Destination Branch:</td>
    <td><select name=tobranchcd> $tobranchoptions </select></td></tr></table>    

<img src="/images/holder.gif" width=24 height=50 align=left>

<table border=1 cellpadding=5 cellspacing=0 ><tr>
<td colspan=2 align=center background=$backgroundimage>
<font color=black><b>Enter Book Barcode</b></font></td></tr>
<tr><td>Item Barcode:</td><td><input name=barcode size=10></td></tr>
</table>
<input type=hidden name=tobranchcd value=$tobranchcd>
$ritext
</form>
EOF



#####################

my $reservefoundtext;
if ($messages->{'ResFound'}) {
    my $res = $messages->{'ResFound'};
    my $reservetext;
    my $branchname = $branches->{$res->{'branchcode'}}->{'branchname'};
    my ($borr) = getpatroninformation(\%env, $res->{'borrowernumber'}, 0);
    my $name = $borr->{'surname'}." ".$borr->{'title'}." ".$borr->{'firstname'};
    my $number = "<a href=/cgi-bin/koha/moremember.pl?bornum=$borr->{'borrowernumber'} onClick='openWindow(this,'Member', 480, 640)'>$borr->{'cardnumber'}</a>";
    if ($res->{'ResFound'} eq "Waiting") {
	$reservetext = <<"EOF";
<font color='red' size='+2'>Item marked Waiting:</font><br>
    Item is marked waiting at $branchname for $name ($number).<br>
<table border=1 cellpadding=5 cellspacing=0>
<tr><td>Cancel reservation and then attempt transfer: </td>
<td>
<form method=post action='branchtransfers.pl'>
$ritext
<input type=hidden name=itemnumber value=$res->{'itemnumber'}>
<input type=hidden name=borrowernumber value=$res->{'borrowernumber'}>
<input type=hidden name=tobranchcd value=$tobranchcd>
<input type=hidden name=barcode value=$barcode>
<input type=hidden name=request value='KillWaiting'>
<input type=submit value="Cancel">
</form>
</td></tr>
<tr><td>Ignore and return to transfers: </td>
<td>
<form method=post action='branchtransfers.pl'>
$ritext
<input type=hidden name=tobranchcd value=$tobranchcd>
<input type=hidden name=barcode value=0>
<input type=submit value="Ignore">
</form>
</td></tr></table>
EOF
    } 
    if ($res->{'ResFound'} eq "Reserved") {
	$reservetext = <<"EOF";
<font color='red' size='+2'>Reserved:</font> reserve found for $name ($number).
<table border=1 cellpadding=5 cellspacing=0>
<tr><td>Set reserve to waiting and transfer book to <b>$branchname </b>: </td>
<td>
<form method=post action='branchtransfers.pl'>
$ritext
<input type=hidden name=itemnumber value=$res->{'itemnumber'}>
<input type=hidden name=borrowernumber value=$res->{'borrowernumber'}>
<input type=hidden name=barcode value=$barcode>
<input type=hidden name=request value='SetWaiting'>
<input type=submit value="Waiting">
</form>
</td></tr>
<tr><td>Cancel reservation and then attempt transfer: </td>
<td>
<form method=post action='branchtransfers.pl'>
$ritext
<input type=hidden name=biblionumber value=$res->{'biblionumber'}>
<input type=hidden name=borrowernumber value=$res->{'borrowernumber'}>
<input type=hidden name=tobranchcd value=$tobranchcd>
<input type=hidden name=barcode value=$barcode>
<input type=hidden name=request value='KillReserved'>
<input type=submit value="Cancel">
</form>
</td></tr><tr><td>Ignore and return to transfers: </td>
<td>
<form method=post action='branchtransfers.pl'>
<input type=hidden name=tobranchcd value=$tobranchcd>
<input type=hidden name=barcode value=0>
$ritext
<input type=submit value="Ignore">
</form>
</td></tr></table>
EOF
    }
    $reservefoundtext = <<"EOF";
<table border=1 cellpadding=5 cellspacing=0 bgcolor='#dddddd'>
<tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font>Reserve Found</font></th></tr>
<tr><td> $reservetext </td></tr></table>
EOF
}

#####################

foreach my $code (keys %$messages) {
    if ($code eq 'BadBarcode'){
	$messagetext .= "<font color='red' size='+2'> No Item with barcode: $messages->{'BadBarcode'} </font> <br>";
    }
    if ($code eq 'IsPermanent'){
	my $braname = $branches->{$messages->{'IsPermanent'}}->{'branchname'};
	$messagetext .= "<font color='red' size='+2'> Please return item to home branch: $braname  </font> <br>";
    }
    if ($code eq 'DestinationEqualsHolding'){
	$messagetext .= "<font color='red' size='+2'> Item is already at destination branch. </font> <br>";
    }
    if ($code eq 'WasReturned') {
	my ($borrowerinfo) = getpatroninformation(\%env, $messages->{'WasReturned'}, 0);

	my $binfo = <<"EOF";
<a href=/cgi-bin/koha/moremember.pl?bornum=$borrowerinfo->{'borrowernumber'} 
onClick="openWindow(this,'Member', 480, 640)">$borrowerinfo->{'cardnumber'}</a>
$borrowerinfo->{'surname'}, $borrowerinfo->{'title'} $borrowerinfo->{'firstname'}
EOF
	$messagetext .= "Item was on loan to $binfo and has been returned. <br>";
    }
    if ($code eq 'WasTransfered'){
# Put code here if you want to notify the user that item was transfered...
    }
}
$messagetext = substr($messagetext, 0, -4);

my $messagetable;
if ($messagetext) {
    $messagetable = << "EOF";
<table border=1 cellpadding=5 cellspacing=0 bgcolor='#dddddd'>
<tr><th bgcolor=$headerbackgroundcolor background=$backgroundimage><font>Messages</font></th></tr>
<tr><td> $messagetext </td></tr></table>
<img src="/images/holder.gif" width=24 height=24>
EOF
}

#######################################################################################
# Make the page .....

print $query->header;
print startpage;
#print startmenu('circulation');
my @inp=startmenu('circulation');
my $count=@inp;
for (my $i=0;$i<$count;$i++){
        $inp[$i]=~ s/document.forms\[0\].elements\[0\]/document\.forms\[0\]\.elements\[1\]/;
    }
print @inp;

#foreach my $key (%$messages) {
#    print $key." : ".$messages->{$key}."<br>";
#}

print <<"EOF";
<table align=right><tr><td>
<a href=circulation.pl>
<img src="/images/button-issues.gif" width="99" height="42" border="0" alt="Next Borrower"></a> &nbsp
<a href=returns.pl>
<img src="/images/button-returns.gif" width="110" height="42" border="0" alt="Returns"></a>
</td></tr></table>

<FONT SIZE=6><em>Circulation: Transfers</em></FONT><br>
<b>Branch:</b> $branches->{$branch}->{'branchname'} &nbsp
<b>Printer:</b> $printers->{$printer}->{'printername'}<br>
<a href=selectbranchprinter.pl>Change Settings</a>
<input type=hidden name=branch value=$branch>
<input type=hidden name=printer value=$printer>
<p>           
EOF

if ($reservefoundtext) {
    print $reservefoundtext;
} else {
    print $messagetable;
    print $entrytext;

    if (%transfereditems) {
	print << "EOF";
<p>
<table border=1 cellpadding=5 cellspacing=0 bgcolor=#dddddd>                                                                
<tr><th colspan=6 bgcolor=$headerbackgroundcolor background=$backgroundimage><font color=black>Transfered Items</font></th></tr>
<tr><th>Bar Code</th><th>Title</th><th>Author</th><th>Type</th><th>From</th><th>To</th></tr>
EOF
        my $color='';
	foreach (sort keys %transfereditems) {
	    ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
	    my $barcode=$transfereditems{$_};
	    my $frbcd=$frbranchcds{$_};
	    my $tobcd=$tobranchcds{$_};
	    my ($iteminformation) = getiteminformation(\%env, 0, $barcode);
	    print << "EOF";
<tr><td bgcolor=$color align=center>
<a href=/cgi-bin/koha/detail.pl?bib=$iteminformation->{'biblionumber'}
&type=intra onClick=\"openWindow(this, 'Item', 480, 640)\">$barcode</a></td>
<td bgcolor=$color>$iteminformation->{'title'}</td>
<td bgcolor=$color>$iteminformation->{'author'}</td>
<td bgcolor=$color align=center>$iteminformation->{'itemtype'}</td>
<td bgcolor=$color align=center>$branches->{$frbcd}->{'branchname'}</td>
<td bgcolor=$color align=center>$branches->{$tobcd}->{'branchname'}</td>
</tr>\n
EOF
        }
	print "</table>\n";
    }
}

print endmenu('circulation');
print endpage;