synch'ing 2.2 and head
[koha.git] / bookshelves / shelves.pl
1 #!/usr/bin/perl
2 #script to provide bookshelf management
3 # WARNING: This file uses 4-character tabs!
4 #
5 # $Header$
6 #
7 # Copyright 2000-2002 Katipo Communications
8 #
9 # This file is part of Koha.
10 #
11 # Koha is free software; you can redistribute it and/or modify it under the
12 # terms of the GNU General Public License as published by the Free Software
13 # Foundation; either version 2 of the License, or (at your option) any later
14 # version.
15 #
16 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
17 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
18 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
19 #
20 # You should have received a copy of the GNU General Public License along with
21 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
22 # Suite 330, Boston, MA  02111-1307 USA
23
24 use strict;
25 use C4::Search;
26 use CGI;
27 use C4::Output;
28 use C4::BookShelves;
29 use C4::Circulation::Circ2;
30 use C4::Auth;
31 use C4::Interface::CGI::Output;
32 use HTML::Template;
33
34 my $env;
35 my $query = new CGI;
36 my $headerbackgroundcolor='#663266';
37 my $circbackgroundcolor='#555555';
38 my $circbackgroundcolor='#550000';
39 my $linecolor1='#bbbbbb';
40 my $linecolor2='#dddddd';
41 my ($template, $loggedinuser, $cookie)
42     = get_template_and_user({template_name => "bookshelves/shelves.tmpl",
43                                                         query => $query,
44                                                         type => "intranet",
45                                                         authnotrequired => 0,
46                                                         flagsrequired => {catalogue => 1},
47                                                 });
48
49 if ($query->param('modifyshelfcontents')) {
50         my $shelfnumber=$query->param('shelfnumber');
51         my $barcode=$query->param('addbarcode');
52         my ($item) = getiteminformation($env, 0, $barcode);
53         if (ShelfPossibleAction($loggedinuser,$shelfnumber,'manage')) {
54                 AddToShelf($env, $item->{'itemnumber'}, $shelfnumber);
55                 foreach ($query->param) {
56                         if (/REM-(\d*)/) {
57                                 my $itemnumber=$1;
58                                 RemoveFromShelf($env, $itemnumber, $shelfnumber);
59                         }
60                 }
61         }
62 }
63 my ($shelflist) = GetShelfList($loggedinuser,2);
64
65 $template->param({      loggedinuser => $loggedinuser,
66                                         headerbackgroundcolor => $headerbackgroundcolor,
67                                         circbackgroundcolor => $circbackgroundcolor });
68 SWITCH: {
69         if ($query->param('op') eq 'modifsave') {
70                 ModifShelf($query->param('shelfnumber'),$query->param('shelfname'),$loggedinuser,$query->param('category'));
71                 last SWITCH;
72         }
73         if ($query->param('op') eq 'modif') {
74                 my ($shelfnumber,$shelfname,$owner,$category) = GetShelf($query->param('shelf'));
75                 $template->param(edit => 1,
76                                                 shelfnumber => $shelfnumber,
77                                                 shelfname => $shelfname,
78                                                 "category$category" => 1);
79 #               editshelf($query->param('shelf'));
80                 last SWITCH;
81         }
82         if ($query->param('viewshelf')) {
83                 viewshelf($query->param('viewshelf'));
84                 last SWITCH;
85         }
86         if ($query->param('shelves')) {
87                 shelves();
88                 last SWITCH;
89         }
90 }
91
92 ($shelflist) = GetShelfList($loggedinuser,2); # rebuild shelflist in case a shelf has been added
93
94 my $color='';
95 my @shelvesloop;
96 foreach my $element (sort keys %$shelflist) {
97                 my %line;
98                 ($color eq 1) ? ($color=0) : ($color=1);
99                 $line{'toggle'}=$color;
100                 $line{'shelf'}=$element;
101                 $line{'shelfname'}=$shelflist->{$element}->{'shelfname'};
102                 $line{"category".$shelflist->{$element}->{'category'}} = 1;
103                 $line{'mine'} = 1 if $shelflist->{$element}->{'owner'} eq $loggedinuser;
104                 $line{'shelfbookcount'}=$shelflist->{$element}->{'count'};
105                 $line{'canmanage'} = ShelfPossibleAction($loggedinuser,$element,'manage');
106                 $line{'firstname'}=$shelflist->{$element}->{'firstname'} unless $shelflist->{$element}->{'owner'} eq $loggedinuser;
107                 $line{'surname'}=$shelflist->{$element}->{'surname'} unless $shelflist->{$element}->{'owner'} eq $loggedinuser;
108 ;
109                 push (@shelvesloop, \%line);
110                 }
111 $template->param(shelvesloop => \@shelvesloop);
112
113 output_html_with_http_headers $query, $cookie, $template->output;
114
115 # sub editshelf {
116 #       my ($shelfnumber) = @_;
117 #       my ($shelfnumber,$shelfname,$owner,$category) = GetShelf($shelfnumber);
118 #       $template->param(edit => 1,
119 #                                       shelfnumber => $shelfnumber,
120 #                                       shelfname => $shelfname,
121 #                                       "category$category" => 1);
122 # }
123 sub shelves {
124         if (my $newshelf=$query->param('addshelf')) {
125                 my ($status, $string) = AddShelf($env,$newshelf,$query->param('owner'),$query->param('category'));
126                 if ($status) {
127                         $template->param(status1 => $status, string1 => $string);
128                 }
129         }
130         my @paramsloop;
131         foreach ($query->param()) {
132                 my %line;
133                 if (/DEL-(\d+)/) {
134                         my $delshelf=$1;
135                         my ($status, $string) = RemoveShelf($env,$delshelf);
136                         if ($status) {
137                                 $line{'status'}=$status;
138                                 $line{'string'} = $string;
139                         }
140                 }
141                 #if the shelf is not deleted, %line points on null
142                 push(@paramsloop,\%line);
143         }
144         $template->param(paramsloop => \@paramsloop);
145         my ($shelflist) = GetShelfList($loggedinuser,2);
146         my $color='';
147         my @shelvesloop;
148         foreach my $element (sort keys %$shelflist) {
149                 my %line;
150                 ($color eq 1) ? ($color=0) : ($color=1);
151                 $line{'toggle'}=$color;
152                 $line{'shelf'}=$element;
153                 $line{'shelfname'}=$shelflist->{$element}->{'shelfname'} ;
154                 $line{'shelfbookcount'}=$shelflist->{$element}->{'count'} ;
155                 push(@shelvesloop, \%line);
156         }
157         $template->param(shelvesloop=>\@shelvesloop,
158                                                         shelves => 1,
159                                                 );
160 }
161
162 sub viewshelf {
163         my $shelfnumber=shift;
164         #check that the user can view the shelf
165         return unless (ShelfPossibleAction($loggedinuser,$shelfnumber,'view'));
166         my ($itemlist) = GetShelfContents($env, $shelfnumber);
167         my $item='';
168         my $color='';
169         my @itemsloop;
170         foreach $item (sort {$a->{'barcode'} cmp $b->{'barcode'}} @$itemlist) {
171                 my %line;
172                 ($color eq 1) ? ($color=0) : ($color=1);
173                 $line{'toggle'}=$color;
174                 $line{'itemnumber'}=$item->{'itemnumber'};
175                 $line{'barcode'}=$item->{'barcode'};
176                 $line{'title'}=$item->{'title'};
177                 $line{'author'}=$item->{'author'};
178                 $line{'publicationyear'}=$item->{'publicationyear'};
179                 $line{'itemtype'}=$item->{'itemtype'};
180                 $line{biblionumber} = $item->{biblionumber};
181                 push(@itemsloop, \%line);
182         }
183         $template->param(       itemsloop => \@itemsloop,
184                                                 shelfname => $shelflist->{$shelfnumber}->{'shelfname'},
185                                                 shelfnumber => $shelfnumber,
186                                                 viewshelf => $query->param('viewshelf'),
187                                                 manageshelf => &ShelfPossibleAction($loggedinuser,$shelfnumber,'manage'),
188                                         );
189 }
190
191 #
192 # $Log$
193 # Revision 1.8  2005/08/04 13:19:54  tipaul
194 # synch'ing 2.2 and head
195 #
196 # Revision 1.5.2.2  2005/04/27 18:15:27  oleonard
197 # Left out some instances in the previous update
198 #
199 # Revision 1.5.2.1  2005/04/27 16:55:38  oleonard
200 # Moving alternating row colors to the template, adding publicationyear and itemtype variables
201 #
202 # Revision 1.5  2004/12/16 11:30:57  tipaul
203 # adding bookshelf features :
204 # * create bookshelf on the fly
205 # * modify a bookshelf name & status
206 #
207 # Revision 1.4  2004/12/15 17:28:23  tipaul
208 # adding bookshelf features :
209 # * create bookshelf on the fly
210 # * modify a bookshelf (this being not finished, will commit the rest soon)
211 #
212 # Revision 1.3  2004/12/02 16:38:50  tipaul
213 # improvement in book shelves
214 #
215 # Revision 1.2  2004/11/19 16:31:30  tipaul
216 # bugfix for bookshelves not in official CVS
217 #
218 # Revision 1.1.2.1  2004/03/10 15:08:18  tipaul
219 # modifying shelves : introducing category of shelf : private, public, free for all
220 #
221 # Revision 1.13  2004/02/11 08:35:31  tipaul
222 # synch'ing 2.0.0 branch and head
223 #
224 # Revision 1.12.2.1  2004/02/06 14:22:19  tipaul
225 # fixing bugs in bookshelves management.
226 #
227 # Revision 1.12  2003/02/05 10:04:14  acli
228 # Worked around weirdness with HTML::Template; without the {}, it complains
229 # of being passed an odd number of arguments even though we are not
230 #
231 # Revision 1.11  2003/02/05 09:23:03  acli
232 # Fixed a few minor errors to make it run
233 # Noted correct tab size
234 #
235 # Revision 1.10  2003/02/02 07:18:37  acli
236 # Moved C4/Charset.pm to C4/Interface/CGI/Output.pm
237 #
238 # Create output_html_with_http_headers function to contain the "print $query
239 # ->header(-type => guesstype...),..." call. This is in preparation for
240 # non-HTML output (e.g., text/xml) and charset conversion before output in
241 # the future.
242 #
243 # Created C4/Interface/CGI/Template.pm to hold convenience functions specific
244 # to the CGI interface using HTML::Template
245 #
246 # Modified moremembers.pl to make the "sex" field localizable for languages
247 # where M and F doesn't make sense
248 #
249 # Revision 1.9  2002/12/19 18:55:40  hdl
250 # Templating reservereport et shelves.
251 #
252 # Revision 1.9  2002/08/14 18:12:51  hdl
253 # Templating files
254 #
255 # Revision 1.8  2002/08/14 18:12:51  tonnesen
256 # Added copyright statement to all .pl and .pm files
257 #
258 # Revision 1.7  2002/07/05 05:03:37  tonnesen
259 # Minor changes to authentication routines.
260 #
261 # Revision 1.5  2002/07/04 19:42:48  tonnesen
262 # Minor changes
263 #
264 # Revision 1.4  2002/07/04 19:21:29  tonnesen
265 # Beginning of authentication api.  Applied to shelves.pl for now as a test case.
266 #
267 # Revision 1.2.2.1  2002/06/26 20:28:15  tonnesen
268 # Some udpates that I made here locally a while ago.  Still won't be useful, but
269 # should be functional
270 #
271 #
272 #
273
274
275
276
277 # Local Variables:
278 # tab-width: 4
279 # End: