shelves.pl

   1 #!/usr/bin/perl
   2 #script to provide bookshelf management
   3 #
   4 # $Header$
   5 #
   6 # Change log is at the bottom of the file
   7 #
   8
   9 use strict;
  10 use C4::Search;
  11 use CGI;
  12 use C4::Output;
  13 use C4::BookShelves;
  14 use C4::Circulation::Circ2;
  15
  16 my $env;
  17 my $query = new CGI;
  18 print $query->header;
  19 my $headerbackgroundcolor='#663266';
  20 my $circbackgroundcolor='#555555';
  21 my $circbackgroundcolor='#550000';
  22 my $linecolor1='#bbbbbb';
  23 my $linecolor2='#dddddd';
  24
  25 print startpage();
  26 print startmenu('catalogue');
  27
  28
  29
  30
  31 my ($shelflist) = GetShelfList();
  32
  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) {
  39         if (/REM-(\d*)/) {
  40             my $itemnumber=$1;
  41             RemoveFromShelf($env, $itemnumber, $shelfnumber);
  42         }
  43     }
  44 }
  45
  46 SWITCH: {
  47     if ($query->param('viewshelf')) {  viewshelf($query->param('viewshelf')); last SWITCH;}
  48     print << "EOF";
  49     <center>
  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>
  55     </th></tr>
  56     </table>
  57     </td></tr>
  58 EOF
  59     my $color='';
  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";
  63     }
  64     print "</table>\n";
  65 }
  66
  67
  68 sub viewshelf {
  69     my $shelfnumber=shift;
  70     my ($itemlist) = GetShelfContents($env, $shelfnumber);
  71     my $item='';
  72     print << "EOF";
  73     <center>
  74     <form>
  75     <a href=shelves.pl>Shelf List</a><p>
  76     <table border=0 cellpadding=0 cellspacing=0>
  77     <tr><td colspan=7>
  78     <table>
  79     <tr><td>Add a book by barcode:</td><td><input name=addbarcode></td></tr>
  80     </table>
  81     <br>
  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>
  85     </th></tr>
  86     </table>
  87     </td></tr>
  88 EOF
  89     my $color='';
  90     foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
  91         ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
  92         print << "EOF";
  93         <tr>
  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>
 101         </tr>
 102 EOF
 103     }
 104     print << "EOF";
 105     </table>
 106     <br>
 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">
 111     </form>
 112 EOF
 113 }
 114
 115
 116
 117 #
 118 # $Log$
 119 # Revision 1.2  2001/02/07 23:47:43  tonnesen
 120 # Added header and log substition variables
 121 #
 122 # Revision 1.1  2001/02/07 20:27:16  tonnesen
 123 # Start of code to implement virtual bookshelves in Koha.
 124 #
 125 #
 126 #
 127
 128
 129