From tonnesen@users.sourceforge.net Wed Feb  7 12:26:58 2001
From: Steve Tonnesen <tonnesen@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha shelves.pl,NONE,1.1
Date: Wed, 07 Feb 2001 12:27:19 -0800
Message-ID: <E14QbBP-0008Iy-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============9024881484946141261=="

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

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

Added Files:
	shelves.pl=20
Log Message:
Start of code to implement virtual bookshelves in Koha.


--- NEW FILE ---
#!/usr/bin/perl
#script to provide bookshelf management
#
# $Header: /cvsroot/koha/koha/shelves.pl,v 1.1 2001/02/07 20:27:16 tonnesen E=
xp $
#

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

my $env;
my $query =3D new CGI;
print $query->header;
my $headerbackgroundcolor=3D'#663266';
my $circbackgroundcolor=3D'#555555';
my $circbackgroundcolor=3D'#550000';
my $linecolor1=3D'#bbbbbb';
my $linecolor2=3D'#dddddd';

print startpage();
print startmenu('catalogue');




my ($shelflist) =3D GetShelfList();

if ($query->param('modifyshelfcontents')) {
    my $shelfnumber=3D$query->param('shelfnumber');
    my $barcode=3D$query->param('addbarcode');
    my ($item) =3D getiteminformation($env, 0, $barcode);
    AddToShelf($env, $item->{'itemnumber'}, $shelfnumber);
    foreach ($query->param) {
	if (/REM-(\d*)/) {
	    my $itemnumber=3D$1;
	    RemoveFromShelf($env, $itemnumber, $shelfnumber);
	}
    }
}

SWITCH: {
    if ($query->param('viewshelf')) {  viewshelf($query->param('viewshelf'));=
 last SWITCH;}
    print << "EOF";
    <center>
    <table border=3D0 cellpadding=3D4 cellspacing=3D0>
    <tr><td bgcolor=3D$headerbackgroundcolor>
    <table border=3D0 cellpadding=3D5 cellspacing=3D0 width=3D100%>
    <tr><th bgcolor=3D$headerbackgroundcolor>
    <font color=3Dwhite>Shelf List</font>
    </th></tr>
    </table>
    </td></tr>
EOF
    my $color=3D'';
    foreach (sort keys %$shelflist) {
	($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1);
	print "<tr><td bgcolor=3D$color><a href=3Dshelves.pl?viewshelf=3D$_>$shelfli=
st->{$_}->{'shelfname'} ($shelflist->{$_}->{'count'} books)</a></td></tr>\n";
    }
    print "</table>\n";
}


sub viewshelf {
    my $shelfnumber=3Dshift;
    my ($itemlist) =3D GetShelfContents($env, $shelfnumber);
    my $item=3D'';
    print << "EOF";
    <center>
    <form>
    <a href=3Dshelves.pl>Shelf List</a><p>
    <table border=3D0 cellpadding=3D0 cellspacing=3D0>
    <tr><td colspan=3D7>
    <table>
    <tr><td>Add a book by barcode:</td><td><input name=3Daddbarcode></td></tr>
    </table>
    <br>
    <table border=3D0 cellpadding=3D5 cellspacing=3D0 width=3D100%>
    <tr><th bgcolor=3D$headerbackgroundcolor>
    <font color=3Dwhite>Contents of $shelflist->{$shelfnumber}->{'shelfname'}=
 shelf</font>
    </th></tr>
    </table>
    </td></tr>
EOF
    my $color=3D'';
    foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
	($color eq $linecolor1) ? ($color=3D$linecolor2) : ($color=3D$linecolor1);
	print << "EOF";
	<tr>
	<td bgcolor=3D$color><input type=3Dcheckbox name=3DREM-$item->{'itemnumber'}=
></td>
	<td bgcolor=3D$color width=3D10 align=3Dcenter><img src=3D/images/blankdot.g=
if></td>
	<td bgcolor=3D$color>$item->{'barcode'}</td>
	<td bgcolor=3D$color width=3D10 align=3Dcenter><img src=3D/images/blankdot.g=
if></td>
	<td bgcolor=3D$color>$item->{'title'}</td>
	<td bgcolor=3D$color width=3D10 align=3Dcenter><img src=3D/images/blankdot.g=
if></td>
	<td bgcolor=3D$color>$item->{'author'}</td>
	</tr>
EOF
    }
    print << "EOF";
    </table>
    <br>
    <input type=3Dhidden name=3Dshelfnumber value=3D$shelfnumber>
    <input type=3Dhidden name=3Dmodifyshelfcontents value=3D1>
    <input type=3Dhidden name=3Dviewshelf value=3D$shelfnumber>
    <input type=3Dsubmit value=3D"Modify Shelf List">
    </form>
EOF
}



#
# $Log: shelves.pl,v $
# Revision 1.1  2001/02/07 20:27:16  tonnesen
# Start of code to implement virtual bookshelves in Koha.
#
#
#






--===============9024881484946141261==--