2 #script to provide bookshelf management
12 use C4::Circulation::Circ2;
17 my $headerbackgroundcolor='#663266';
18 my $circbackgroundcolor='#555555';
19 my $circbackgroundcolor='#550000';
20 my $linecolor1='#bbbbbb';
21 my $linecolor2='#dddddd';
24 print startmenu('catalogue');
29 my ($shelflist) = GetShelfList();
31 if ($query->param('modifyshelfcontents')) {
32 my $shelfnumber=$query->param('shelfnumber');
33 my $barcode=$query->param('addbarcode');
34 my ($item) = getiteminformation($env, 0, $barcode);
35 AddToShelf($env, $item->{'itemnumber'}, $shelfnumber);
36 foreach ($query->param) {
39 RemoveFromShelf($env, $itemnumber, $shelfnumber);
45 if ($query->param('viewshelf')) { viewshelf($query->param('viewshelf')); last SWITCH;}
48 <table border=0 cellpadding=4 cellspacing=0>
49 <tr><td bgcolor=$headerbackgroundcolor>
50 <table border=0 cellpadding=5 cellspacing=0 width=100%>
51 <tr><th bgcolor=$headerbackgroundcolor>
52 <font color=white>Shelf List</font>
58 foreach (sort keys %$shelflist) {
59 ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
60 print "<tr><td bgcolor=$color><a href=shelves.pl?viewshelf=$_>$shelflist->{$_}->{'shelfname'} ($shelflist->{$_}->{'count'} books)</a></td></tr>\n";
67 my $shelfnumber=shift;
68 my ($itemlist) = GetShelfContents($env, $shelfnumber);
73 <a href=shelves.pl>Shelf List</a><p>
74 <table border=0 cellpadding=0 cellspacing=0>
77 <tr><td>Add a book by barcode:</td><td><input name=addbarcode></td></tr>
80 <table border=0 cellpadding=5 cellspacing=0 width=100%>
81 <tr><th bgcolor=$headerbackgroundcolor>
82 <font color=white>Contents of $shelflist->{$shelfnumber}->{'shelfname'} shelf</font>
88 foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
89 ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
92 <td bgcolor=$color><input type=checkbox name=REM-$item->{'itemnumber'}></td>
93 <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td>
94 <td bgcolor=$color>$item->{'barcode'}</td>
95 <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td>
96 <td bgcolor=$color>$item->{'title'}</td>
97 <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td>
98 <td bgcolor=$color>$item->{'author'}</td>
105 <input type=hidden name=shelfnumber value=$shelfnumber>
106 <input type=hidden name=modifyshelfcontents value=1>
107 <input type=hidden name=viewshelf value=$shelfnumber>
108 <input type=submit value="Modify Shelf List">
117 # Revision 1.1 2001/02/07 20:27:16 tonnesen
118 # Start of code to implement virtual bookshelves in Koha.