3 # Copyright 2000-2002 Katipo Communications
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
22 FIXME: individual fields in branch address need to be exported to templates,
23 in order to fix bug 180; need to notify translators
24 FIXME: looped html (e.g., list of checkboxes) need to be properly
25 TMPL_LOOP'ized; doing this properly will fix bug 130; need to
27 FIXME: need to implement the branch categories stuff
28 FIXME: there are too many TMPL_IF's; the proper way to do it is to have
29 separate templates for each individual action; need to notify
31 FIXME: there are lots of error messages exported to the template; a lot
32 of these should be converted into exported booleans / counters etc
33 so that the error messages can be localized; need to notify translators
35 Finlay working on this file from 26-03-2002
36 Reorganising this branches admin page.....
50 my $script_name = "/cgi-bin/koha/admin/branches.pl";
52 ################################################################################
55 my $branchcode = $input->param('branchcode');
56 my $branchname = $input->param('branchname');
57 my $categorycode = $input->param('categorycode');
58 my $op = $input->param('op') || '';
60 my ( $template, $borrowernumber, $cookie ) = get_template_and_user
(
62 template_name
=> "admin/branches.tmpl",
66 flagsrequired
=> { parameters
=> 1},
71 script_name
=> $script_name,
72 action
=> $script_name,
74 $template->param( ($op || 'else') => 1 );
78 # If the user has pressed the "add new branch" button.
79 $template->param( 'heading-branches-add-branch-p' => 1 );
80 editbranchform
($branchcode,$template);
83 elsif ( $op eq 'edit' ) {
85 # if the user has pressed the "edit branch settings" button.
86 $template->param( 'heading-branches-add-branch-p' => 0,
88 editbranchform
($branchcode,$template);
90 elsif ( $op eq 'add_validate' ) {
92 # confirm settings change...
93 my $params = $input->Vars;
94 unless ( $params->{'branchcode'} && $params->{'branchname'} ) {
95 $template->param( else => 1 );
96 default("MESSAGE1",$template);
99 my $error = ModBranch
($params); # FIXME: causes warnings to log on duplicate branchcode
100 # if error saving, stay on edit and rise error
102 # copy input parameters back to form
103 # FIXME - doing this doesn't preserve any branch group selections, but good enough for now
104 editbranchform
($branchcode,$template);
105 $template->param( 'heading-branches-add-branch-p' => 1, 'add' => 1, "ERROR$error" => 1 );
107 $template->param( else => 1);
108 default("MESSAGE2",$template);
112 elsif ( $op eq 'delete' ) {
113 # if the user has pressed the "delete branch" button.
115 # check to see if the branchcode is being used in the database somewhere....
116 my $dbh = C4
::Context
->dbh;
117 my $sth = $dbh->prepare("select count(*) from items where holdingbranch=? or homebranch=?");
118 $sth->execute( $branchcode, $branchcode );
119 my ($total) = $sth->fetchrow_array;
121 $template->param( else => 1 );
122 default("MESSAGE7", $template);
125 $template->param( delete_confirm
=> 1 );
126 $template->param( branchname
=> $branchname );
127 $template->param( branchcode
=> $branchcode );
130 elsif ( $op eq 'delete_confirmed' ) {
132 # actually delete branch and return to the main screen....
133 DelBranch
($branchcode);
134 $template->param( else => 1 );
135 default("MESSAGE3",$template);
137 elsif ( $op eq 'editcategory' ) {
139 # If the user has pressed the "add new category" or "modify" buttons.
140 $template->param( 'heading-branches-edit-category-p' => 1 );
141 editcatform
($categorycode,$template);
143 elsif ( $op eq 'addcategory_validate' ) {
145 $template->param( else => 1 );
146 # confirm settings change...
147 my $params = $input->Vars;
148 unless ( $params->{'categorycode'} && $params->{'categoryname'} ) {
149 default("MESSAGE4",$template);
152 ModBranchCategoryInfo
($params);
153 default("MESSAGE5",$template);
156 elsif ( $op eq 'delete_category' ) {
158 # if the user has pressed the "delete branch" button.
159 my $message = "MESSAGE8" if CheckBranchCategorycode
($categorycode);
161 $template->param( else => 1 );
162 default($message,$template);
165 $template->param( delete_category
=> 1 );
166 $template->param( categorycode
=> $categorycode );
169 elsif ( $op eq 'categorydelete_confirmed' ) {
171 # actually delete branch and return to the main screen....
172 DelBranchCategory
($categorycode);
173 $template->param( else => 1 );
174 default("MESSAGE6",$template);
178 # if no operation has been set...
179 default("",$template);
182 ################################################################################
184 # html output functions....
187 my $message = shift || '';
188 my $innertemplate = shift or return;
189 $innertemplate->param($message => 1) if $message;
190 $innertemplate->param(
191 'heading-branches-p' => 1,
193 branchinfotable
("",$innertemplate);
197 my ($branchcode,$innertemplate) = @_;
198 # initiate the scrolling-list to select the printers
199 my $printers = GetPrinters
();
205 $data = GetBranchInfo
($branchcode);
208 # get the old printer of the branch
209 $oldprinter = $data->{'branchprinter'} || '';
210 $innertemplate->param(
211 branchcode
=> $data->{'branchcode'},
212 branch_name
=> $data->{'branchname'},
213 branchaddress1
=> $data->{'branchaddress1'},
214 branchaddress2
=> $data->{'branchaddress2'},
215 branchaddress3
=> $data->{'branchaddress3'},
216 branchzip
=> $data->{'branchzip'},
217 branchcity
=> $data->{'branchcity'},
218 branchcountry
=> $data->{'branchcountry'},
219 branchphone
=> $data->{'branchphone'},
220 branchfax
=> $data->{'branchfax'},
221 branchemail
=> $data->{'branchemail'},
222 branchurl
=> $data->{'branchurl'},
223 branchip
=> $data->{'branchip'},
224 branchnotes
=> $data->{'branchnotes'},
228 foreach my $thisprinter ( keys %$printers ) {
230 value
=> $thisprinter,
231 selected
=> ( $oldprinter eq $printers->{$thisprinter} ),
232 branchprinter
=> $printers->{$thisprinter}->{'printqueue'},
236 $innertemplate->param( printerloop
=> \
@printerloop );
237 # make the checkboxes.....
239 # We export a "categoryloop" array to the template, each element of which
240 # contains separate 'categoryname', 'categorycode', 'codedescription', and
241 # 'checked' fields. The $checked field is either '' or 'checked="checked"'
243 my $catinfo = GetBranchCategory
();
244 my @categoryloop = ();
245 foreach my $cat (@
$catinfo) {
247 my $tmp = quotemeta( $cat->{'categorycode'} );
248 if ( grep { /^$tmp$/ } @
{ $data->{'categories'} } ) {
249 $checked = "checked=\"checked\"";
251 push @categoryloop, {
252 categoryname
=> $cat->{'categoryname'},
253 categorycode
=> $cat->{'categorycode'},
254 categorytype
=> $cat->{'categorytype'},
255 codedescription
=> $cat->{'codedescription'},
259 $innertemplate->param( categoryloop
=> \
@categoryloop );
261 for my $obsolete ( 'categoryname', 'categorycode', 'codedescription' ) {
262 $innertemplate->param(
263 $obsolete => 'Your template is out of date (bug 130)' );
269 # prepares the edit form...
270 my ($categorycode,$innertemplate) = @_;
271 # warn "cat : $categorycode";
275 my $data = GetBranchCategory
($categorycode);
277 $innertemplate->param(
278 categorycode
=> $data->{'categorycode'},
279 categoryname
=> $data->{'categoryname'},
280 codedescription
=> $data->{'codedescription'},
283 for my $ctype (GetCategoryTypes
()) {
284 push @cats , { type
=> $ctype , selected
=> ($data->{'categorytype'} and $data->{'categorytype'} eq $ctype) };
286 $innertemplate->param(categorytype
=> \
@cats);
289 sub branchinfotable
{
291 # makes the html for a table of branch info from reference to an array of hashs.
293 my ($branchcode,$innertemplate) = @_;
294 my $branchinfo = $branchcode ? GetBranchInfo
($branchcode) : GetBranchInfo
();
296 foreach my $branch (@
$branchinfo) {
298 # We export the following fields to the template. These are not
299 # pre-composed as a single "address" field because the template
300 # might (and should) escape what is exported here. (See bug 180)
302 # - branch_name (Note: not "branchname")
303 # - branch_code (Note: not "branchcode")
304 # - address (containing a static error message)
307 # - branchaddress3 | comprising the old "address" field
315 # - address-empty-p (1 if no address information, 0 otherwise)
316 # - categories (containing a static error message)
317 # - category_list (loop containing "categoryname")
318 # - no-categories-p (1 if no categories set, 0 otherwise)
323 # Handle address fields separately
324 my $address_empty_p = 1;
326 'branchaddress1', 'branchaddress2',
327 'branchaddress3', 'branchzip',
328 'branchcity', 'branchcountry',
329 'branchphone', 'branchfax',
330 'branchemail', 'branchurl',
331 'branchip', 'branchprinter', 'branchnotes'
334 $row{$field} = $branch->{$field};
335 $address_empty_p = 0 if ( $branch->{$field} );
337 $row{'address-empty-p'} = $address_empty_p;
340 my $no_categories_p = 1;
342 foreach my $cat ( @
{ $branch->{'categories'} } ) {
343 my ($catinfo) = @
{ GetBranchCategory
($cat) };
344 push @categories, { 'categoryname' => $catinfo->{'categoryname'} };
345 $no_categories_p = 0;
348 $row{'category_list'} = \
@categories;
349 $row{'no-categories-p'} = $no_categories_p;
350 $row{'branch_name'} = $branch->{'branchname'};
351 $row{'branch_code'} = $branch->{'branchcode'};
352 $row{'value'} = $branch->{'branchcode'};
354 push @loop_data, \
%row;
356 my @branchcategories = ();
357 for my $ctype ( GetCategoryTypes
() ) {
358 my $catinfo = GetBranchCategories
(undef,$ctype);
360 foreach my $cat (@
$catinfo) {
362 categoryname
=> $cat->{'categoryname'},
363 categorycode
=> $cat->{'categorycode'},
364 codedescription
=> $cat->{'codedescription'},
365 categorytype
=> $cat->{'categorytype'},
368 push @branchcategories, { categorytype
=> $ctype , $ctype => 1 , catloop
=> \
@categories};
370 $innertemplate->param(
371 branches
=> \
@loop_data,
372 branchcategories
=> \
@branchcategories
377 output_html_with_http_headers
$input, $cookie, $template->output;