2 #script to provide bookshelf management
6 # Change log is at the bottom of the file
14 use C4::Circulation::Circ2;
19 my $headerbackgroundcolor='#663266';
20 my $circbackgroundcolor='#555555';
21 my $circbackgroundcolor='#550000';
22 my $linecolor1='#bbbbbb';
23 my $linecolor2='#dddddd';
26 print startmenu('catalogue');
31 my ($shelflist) = GetShelfList();
33 if ($query->param('modifyshelfcontents')) {
34 my $shelfnumber=$query->param('shelfnumber');
35 my $barcode=$query->param('addbarcode');
36 my ($item) = getiteminformation($env, 0, $barcode);
37 AddToShelf($env, $item->{'itemnumber'}, $shelfnumber);
38 foreach ($query->param) {
41 RemoveFromShelf($env, $itemnumber, $shelfnumber);
47 if ($query->param('viewshelf')) { viewshelf($query->param('viewshelf')); last SWITCH;}
50 <table border=0 cellpadding=4 cellspacing=0>
51 <tr><td bgcolor=$headerbackgroundcolor>
52 <table border=0 cellpadding=5 cellspacing=0 width=100%>
53 <tr><th bgcolor=$headerbackgroundcolor>
54 <font color=white>Shelf List</font>
60 foreach (sort keys %$shelflist) {
61 ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
62 print "<tr><td bgcolor=$color><a href=shelves.pl?viewshelf=$_>$shelflist->{$_}->{'shelfname'} ($shelflist->{$_}->{'count'} books)</a></td></tr>\n";
69 my $shelfnumber=shift;
70 my ($itemlist) = GetShelfContents($env, $shelfnumber);
75 <a href=shelves.pl>Shelf List</a><p>
76 <table border=0 cellpadding=0 cellspacing=0>
79 <tr><td>Add a book by barcode:</td><td><input name=addbarcode></td></tr>
82 <table border=0 cellpadding=5 cellspacing=0 width=100%>
83 <tr><th bgcolor=$headerbackgroundcolor>
84 <font color=white>Contents of $shelflist->{$shelfnumber}->{'shelfname'} shelf</font>
90 foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
91 ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
94 <td bgcolor=$color><input type=checkbox name=REM-$item->{'itemnumber'}></td>
95 <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td>
96 <td bgcolor=$color>$item->{'barcode'}</td>
97 <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td>
98 <td bgcolor=$color>$item->{'title'}</td>
99 <td bgcolor=$color width=10 align=center><img src=/images/blankdot.gif></td>
100 <td bgcolor=$color>$item->{'author'}</td>
107 <input type=hidden name=shelfnumber value=$shelfnumber>
108 <input type=hidden name=modifyshelfcontents value=1>
109 <input type=hidden name=viewshelf value=$shelfnumber>
110 <input type=submit value="Modify Shelf List">
119 # Revision 1.2 2001/02/07 23:47:43 tonnesen
120 # Added header and log substition variables
122 # Revision 1.1 2001/02/07 20:27:16 tonnesen
123 # Start of code to implement virtual bookshelves in Koha.