From finlayt@users.sourceforge.net Tue Mar 12 13:04:37 2002
From: Finlay Thompson <finlayt@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/circ branchtransfers.pl,NONE,1.1
 circulation.pl,1.20,1.21
Date: Tue, 12 Mar 2002 13:05:10 +0000
Message-ID: <E16ktRi-0006j3-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============4980267357546656148=="

--===============4980267357546656148==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv25121

Modified Files:
	circulation.pl=20
Added Files:
	branchtransfers.pl=20
Log Message:

Branchtransfers.pl provides a form for entering barcodes and selecting a
destination branch.

New rows are entered into the branchtransfers table for each item
"transfered".



--- NEW FILE ---
#!/usr/bin/perl

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

use strict;
use CGI;
use C4::Circulation::Circ2;
use C4::Search;
use C4::Output;


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

my $query=3Dnew CGI;
my $branches=3Dgetbranches(\%env);

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

$env{'tobranchcd'}=3D$tobranchcd;


my $tobranchoptions;
foreach (keys %$branches) {
        (next) unless ($_);
        (next) if (/^TR$/);
        my $selected=3D'';
        ($selected=3D'selected') if ($_ eq $tobranchcd);
        $tobranchoptions.=3D"<option value=3D$_ $selected>$branches->{$_}->{'=
branchname'}\n";
}

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

#if the barcode has been entered action that and write a message and onto the=
 top of the stack...
my $iteminformation;
my @messages;
my $todaysdate;
if (my $barcode=3D$query->param('barcode')) {
    my $iteminformation =3D getiteminformation(\%env,0, $barcode);
    my $fail=3D0;
    if (not $iteminformation) {
	$fail=3D1;
	@messages =3D ("There is no book with barcode: $barcode ", @messages);
    }
    $frbranchcd =3D $iteminformation->{'holdingbranch'};
    %env->{'frbranchcd'} =3D $frbranchcd;
    if ($frbranchcd eq $tobranchcd) {
	$fail=3D1;
	@messages =3D ("You can't transfer the book to the branch it is already at!"=
, @messages);
    }
# should add some more tests ... like is the book already out, maybe it cant =
be moved....
    if (not $fail) {
	my ($transfered, $message) =3D transferbook(\%env, $iteminformation, $barcod=
e);
	if (not $transfered) {@messages =3D ($message, @messages);}
	else {
	    $ritext.=3D"<input type=3Dhidden name=3Dbc-0 value=3D$barcode>\n";
	    $ritext.=3D"<input type=3Dhidden name=3Dfb-0 value=3D$frbranchcd>\n";
	    $ritext.=3D"<input type=3Dhidden name=3Dtb-0 value=3D$tobranchcd>\n";
	    $transfereditems{0}=3D$barcode;
	    $frbranchcds{0}=3D$frbranchcd;
	    $tobranchcds{0}=3D$tobranchcd;
	    @messages =3D ("Book: $barcode has been transfered", @messages);
	}
    }
}

my $entrytext=3D << "EOF";
<form method=3Dpost action=3D/cgi-bin/koha/circ/branchtransfers.pl>
<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd >
<tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgroun=
d=3D$backgroundimage>
<font color=3Dblack><b>Select Branch</b></font></td></tr>
<tr><td>Destination Branch:</td><td>
 <select name=3Dtobranchcd> $tobranchoptions </select>
</td></tr>

</table><table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd >
<tr><td colspan=3D2 bgcolor=3D$headerbackgroundcolor align=3Dcenter backgroun=
d=3D$backgroundimage>
<font color=3Dblack><b>Enter Book Barcode</b></font></td></tr>
<tr><td>Item Barcode:</td><td><input name=3Dbarcode size=3D10></td></tr>
</table>

<input type=3Dhidden name=3Dtobranchcd value=3D$tobranchcd>
$ritext
EOF

my $messagetable;
if (@messages) {
    my $messagetext=3D'';
    foreach (@messages) {
	$messagetext.=3D"$_<p>\n";
    }
    $messagetable =3D << "EOF";
<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D'#dddddd'>
<tr><th bgcolor=3D$headerbackgroundcolor background=3D$backgroundimage><font =
color=3Dblack>Messages</font></th></tr>
<tr><td> $messagetext </td></tr></table>
EOF
}



print $query->header;
print startpage;
print startmenu('circulation');
print "<h3>Branch Transfers</h3>";


print $messagetable if (@messages);


print $entrytext;

if (%transfereditems) {
    print << "EOF";=20
<p>
<table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>         =
                                                      =20
<tr><th colspan=3D6 bgcolor=3D$headerbackgroundcolor background=3D$background=
image><font color=3Dblack>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=3D'';
    foreach (keys %transfereditems) {
	($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1);
	my $barcode=3D$transfereditems{$_};
	my $frbcd=3D$frbranchcds{$_};
	my $tobcd=3D$tobranchcds{$_};
	my ($iteminformation) =3D getiteminformation(\%env, 0, $barcode);
	print << "EOF";
<tr><td bgcolor=3D$color align=3Dcenter>
<a href=3D/cgi-bin/koha/detail.pl?bib=3D$iteminformation->{'biblionumber'}
&type=3Dintra onClick=3D\"openWindow(this, 'Item', 480, 640)\">$barcode</a></=
td>
<td bgcolor=3D$color>$iteminformation->{'title'}</td>
<td bgcolor=3D$color>$iteminformation->{'author'}</td>
<td bgcolor=3D$color align=3Dcenter>$iteminformation->{'itemtype'}</td>
<td bgcolor=3D$color align=3Dcenter>$branches->{$frbcd}->{'branchname'}</td>
<td bgcolor=3D$color align=3Dcenter>$branches->{$tobcd}->{'branchname'}</td>
</tr>\n
EOF
}
    print "</table>\n";
}

print endmenu('circulation');
print endpage;


############################################################################
#
# this is the database query that will go into C4::Circuation::Circ2
#

use DBI;
use C4::Database;

sub transferbook {
    my ($env, $iteminformation, $barcode) =3D @_;
    my $messages;
    my $dbh=3D&C4Connect;
    #new entry in branchtransfers....
    my $sth =3D $dbh->prepare("insert into branchtransfers (itemnumber, fromb=
ranch, datearrived, tobranch) values($iteminformation->{'itemnumber'}, '$env-=
>{'frbranchcd'}', now(), '$env->{'tobranchcd'}')");
    $sth->execute || return (0,"database error: $sth->errstr");
    $sth->finish;
    #update holdingbranch in items .....
    $sth =3D $dbh->prepare("update items set holdingbranch=3D'$env->{'tobranc=
hcd'}' where items.itemnumber=3D$iteminformation->{'itemnumber'}");
    $sth->execute || return (0,"database error: $sth->errstr");
    $sth->execute;
    $sth->finish;
    $dbh->disconnect;
    return (1, $messages);
}



Index: circulation.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/koha/koha/circ/circulation.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** circulation.pl	17 Aug 2001 07:54:38 -0000	1.20
--- circulation.pl	12 Mar 2002 21:04:32 -0000	1.21
***************
*** 263,267 ****
  	$barcodeentrytext.=3D "<input type=3Dhidden name=3Dbn-0 value=3D$borrower-=
>{'borrowernumber'}>\n";
  	my @datearr =3D localtime(time());
! 	my $todaysdate =3D (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1=
)).'-'.sprintf ("%0.2d", $datearr[3]);
  	my $itemtable=3D<<"EOF";
  <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
--- 263,268 ----
  	$barcodeentrytext.=3D "<input type=3Dhidden name=3Dbn-0 value=3D$borrower-=
>{'borrowernumber'}>\n";
  	my @datearr =3D localtime(time());
! 	my $todaysdate =3D (1900+$datearr[5]).'-'.sprintf ("%0.2d", ($datearr[4]+1=
)).'-'.
! 	  sprintf ("%0.2d", $datearr[3]);
  	my $itemtable=3D<<"EOF";
  <table border=3D0 cellpadding=3D5 cellspacing=3D0 bgcolor=3D#dddddd>
***************
*** 465,470 ****
        <FONT SIZE=3D2  face=3D"arial, helvetica">
        <a href=3Dcirculation.pl?borrnumber=3D$borrowernumber&module=3Dissues=
&branch=3D$branch&printer=3D$printer&print>Next Borrower</a> ||
!       <a href=3Dcirculation.pl?module=3Dreturns&branch=3D$branch&printer=3D=
$printer>Returns</a></font><p>
!       =20
         =20
  	</p>
--- 466,471 ----
        <FONT SIZE=3D2  face=3D"arial, helvetica">
        <a href=3Dcirculation.pl?borrnumber=3D$borrowernumber&module=3Dissues=
&branch=3D$branch&printer=3D$printer&print>Next Borrower</a> ||
!       <a href=3Dcirculation.pl?module=3Dreturns&branch=3D$branch&printer=3D=
$printer>Returns</a> ||
!       <a href=3Dbranchtransfers.pl>Transfer Book</a></font><p>
         =20
  	</p>
***************
*** 669,673 ****
  		$dd=3D"<font color=3Dred>$dd</font>\n";
  	    }
! 	    $previssues.=3D"<tr><td bgcolor=3D$color align=3Dcenter>$dd</td><td bg=
color=3D$color align=3Dcenter><a href=3D/cgi-bin/koha/detail.pl?bib=3D$bookis=
sue->{'biblionumber'}&type=3Dintra onClick=3D\"openWindow(this, 'Item', 480, =
640)\">$bookissue->{'barcode'}</a></td><td bgcolor=3D$color>$bookissue->{'tit=
le'}</td><td bgcolor=3D$color>$bookissue->{'author'}</td><td bgcolor=3D$color=
 align=3Dcenter>$bookissue->{'dewey'} $bookissue->{'subclass'}</td></tr>\n";
  	}
  	my $todaysissues=3D'';
--- 670,674 ----
  		$dd=3D"<font color=3Dred>$dd</font>\n";
  	    }
!             $previssues.=3D"<tr><td bgcolor=3D$color align=3Dcenter>$dd</td=
><td bgcolor=3D$color align=3Dcenter><a href=3D/cgi-bin/koha/detail.pl?bib=3D=
$bookissue->{'biblionumber'}&type=3Dintra onClick=3D\"openWindow(this, 'Item'=
, 480, 640)\">$bookissue->{'barcode'}</a></td><td bgcolor=3D$color>$bookissue=
->{'title'}</td><td bgcolor=3D$color>$bookissue->{'author'}</td><td bgcolor=
=3D$color align=3Dcenter>$bookissue->{'dewey'} $bookissue->{'subclass'}</td><=
/tr>\n";
  	}
  	my $todaysissues=3D'';



--===============4980267357546656148==--