Attachment #45752 for bug #15295

View | Details | Raw Unified | Return to bug 15295
Collapse All | Expand All




#!/usr/bin/perl

# Copyright 2000-2002 Katipo Communications
# Copyright 2015 Koha Development Team
#
# This file is part of Koha.
#

# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

 FIXME: individual fields in branch address need to be exported to templates,
        in order to fix bug 180; need to notify translators
 FIXME: looped html (e.g., list of checkboxes) need to be properly
        TMPL_LOOP'ized; doing this properly will fix bug 130; need to
        notify translators
 FIXME: need to implement the branch categories stuff
 FIXME: there are too many TMPL_IF's; the proper way to do it is to have
        separate templates for each individual action; need to notify
        translators
 FIXME: there are lots of error messages exported to the template; a lot
        of these should be converted into exported booleans / counters etc
        so that the error messages can be localized; need to notify translators

 Finlay working on this file from 26-03-2002
 Reorganising this branches admin page.....

=cut

use strict;
use warnings;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;
use C4::Output;
use C4::Koha;
use Koha::Borrowers;
use Koha::Items;
use Koha::Libraries;
use Koha::LibraryCategories;

################################################################################
# Main loop....
my $input        = new CGI;
my $branchcode   = $input->param('branchcode');
my $branchname   = $input->param('branchname');
my $categorycode = $input->param('categorycode');
my $op           = $input->param('op') || 'list';
my @messages;

my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
    {   template_name   => "admin/branches.tt",
        template_name   => "admin/branches.tt",
        query           => $input,
        type            => "intranet",
        authnotrequired => 0,
        flagsrequired   => { parameters => 'parameters_remaining_permissions' },
        debug           => 1,
    }
);
$template->param(
     script_name => $script_name,
     action      => $script_name,
);
$template->param( ($op || 'else') => 1 );

if ( $op eq 'add' ) {

if ( $op eq 'add_form' ) {
    my $library;
    if ($branchcode) {
        $library = Koha::Libraries->find($branchcode);
    }
elsif ( $op eq 'edit' ) {

    $template->param(
        library    => $library,
        categories => [ Koha::LibraryCategories->search( {}, { order_by => [ 'categorytype', 'categoryname' ] } ) ],
        $library ? ( selected_categorycodes => [ map { $_->categorycode } $library->get_categories ] ) : (),
    );
} elsif ( $op eq 'add_validate' ) {
    my @fields = qw(
      branchname
      branchaddress1
      branchaddress2
      branchaddress3
      branchzip
      branchcity
      branchstate
      branchcountry
      branchphone
      branchfax
      branchemail
      branchreplyto
      branchreturnpath
      branchurl
      issuing
      branchip
      branchnotes
      opac_info
    );
    my $is_a_modif = $input->param('is_a_modif');

    my @categories;
    for my $category ( Koha::LibraryCategories->search ) {
        push @categories, $category
          if $input->param( "selected_categorycode_" . $category->categorycode );
        default("MESSAGE1",$template);
    }
    if ($is_a_modif) {
        my $library = Koha::Libraries->find($branchcode);
        for my $field (@fields) {
            $library->$field( $input->param($field) );
        }
        $library->update_categories( \@categories );

        eval { $library->store; };
        if ($@) {
            push @messages, { type => 'error', code => 'error_on_update' };
        } else {
            push @messages, { type => 'message', code => 'success_on_update' };
        }
    } else {
        $branchcode =~ s|\s||g;
        my $library = Koha::Library->new(
            {   branchcode => $branchcode,
                ( map { $_ => $input->param($_) || undef } @fields )
                # FIXME - doing this doesn't preserve any branch group selections, but good enough for now
                editbranchform($branchcode,$template);
                $template->param( 'heading_branches_add_branch_p' => 1, 'add' => 1, "ERROR$error" => 1 );
            } else {
                $template->param( else => 1);
                default("MESSAGE2",$template);
            }
        );
        eval { $library->store; };
        $library->add_to_categories( \@categories );
        if ($@) {
            push @messages, { type => 'error', code => 'error_on_insert' };
        } else {
            push @messages, { type => 'message', code => 'success_on_insert' };
        }
    }
    $op = 'list';
} elsif ( $op eq 'delete_confirm' ) {
    my $library       = Koha::Libraries->find($branchcode);
    my $items_count = Koha::Items->search(
        {   -or => {
                holdingbranch => $branchcode,
                homebranch    => $branchcode
            },
        }
    )->count;
    my $patrons_count = Koha::Borrowers->search( { branchcode => $branchcode, } )->count;

    if ( $items_count or $patrons_count ) {
        push @messages,
          { type => 'error',
            code => 'cannot_delete_library',
            data => {
                items_count   => $items_count,
                patrons_count => $patrons_count,
            },
          };
        $op = 'list';
        default("MESSAGE7", $template);
    }
    else {
        $template->param( delete_confirm => 1 );
        $template->param( branchname     => $branchname );
        $template->param( branchcode     => $branchcode );
    }
}
elsif ( $op eq 'delete_confirmed' ) {

    # actually delete branch and return to the main screen....
    DelBranch($branchcode);
    $template->param( else => 1 );
    default("MESSAGE3",$template);
}
elsif ( $op eq 'editcategory' ) {

    # If the user has pressed the "add new category" or "modify" buttons.
    $template->param( 'heading_branches_edit_category_p' => 1 );
    editcatform($categorycode,$template);
}
elsif ( $op eq 'addcategory_validate' ) {

    $template->param( else => 1 );
    # confirm settings change...
    my $params = $input->Vars;
    $params->{'show_in_pulldown'} = ( $params->{'show_in_pulldown'} eq 'on' ) ? 1 : 0;

    unless ( $params->{'categorycode'} && $params->{'categoryname'} ) {
        default("MESSAGE4",$template);
    }
    elsif ($input->param('add')){
	# doing an add must check the code is unique
	if (CheckCategoryUnique($input->param('categorycode'))){
	    ModBranchCategoryInfo($params);
        default("MESSAGE5",$template);
	}
	else {
	    default("MESSAGE9",$template);
	}
    }
    else {
        ModBranchCategoryInfo($params);
        default("MESSAGE5",$template);
    }
}
elsif ( $op eq 'delete_category' ) {

    # if the user has pressed the "delete branch" button.
    if ( CheckBranchCategorycode($categorycode) ) {
        $template->param( else => 1 );
        default( 'MESSAGE8', $template );
    } else {
        $template->param(
            library       => $library,
            items_count   => $items_count,
            patrons_count => $patrons_count,
        );
    }
} elsif ( $op eq 'delete_confirmed' ) {
    my $library = Koha::Libraries->find($branchcode);

    # actually delete branch and return to the main screen....
    DelBranchCategory($categorycode);
    $template->param( else => 1 );
    default("MESSAGE6",$template);

    my $deleted = eval { $library->delete; };
else {
    # if no operation has been set...
    default("",$template);
}

    if ( $@ or not $deleted ) {
        push @messages, { type => 'error', code => 'error_on_delete' };
    } else {
        push @messages, { type => 'message', code => 'success_on_delete' };
    }
    $op = 'list';
} elsif ( $op eq 'add_form_category' ) {
    my $category;
    if ($categorycode) {
        $category = Koha::LibraryCategories->find($categorycode);
    }
    $template->param( category => $category, );
} elsif ( $op eq 'add_validate_category' ) {
    my $is_a_modif = $input->param('is_a_modif');
    my @fields     = qw(
      categoryname
      codedescription
      categorytype
    );
    if ($is_a_modif) {
        my $category = Koha::LibraryCategories->find($categorycode);
        for my $field (@fields) {
            $category->$field( $input->param($field) );
        }
        $category->show_in_pulldown( $input->param('show_in_pulldown') eq 'on' );
        eval { $category->store; };
        if ($@) {
            push @messages, { type => 'error', code => 'error_on_update_category' };
        } else {
            push @messages, { type => 'message', code => 'success_on_update_category' };
        }
    } else {
        my $category = Koha::LibraryCategory->new(
            {   categorycode => $categorycode,
                ( map { $_ => $input->param($_) || undef } @fields )
            }
        );
        $category->show_in_pulldown( $input->param('show_in_pulldown') eq 'on' );
        eval { $category->store; };
        if ($@) {
            push @messages, { type => 'error', code => 'error_on_insert_category' };
        } else {
            push @messages, { type => 'message', code => 'success_on_insert_category' };
                        $_->{selected} = 1;
                    }
                    $_;
                } @{$catinfo}
            ];
        }

        # get the old printer of the branch
        $oldprinter = $data->{'branchprinter'} || '';
        _branch_to_template($data, $innertemplate);
    }
    $innertemplate->param( categoryloop => $catinfo );

    foreach my $thisprinter ( keys %$printers ) {
        push @printerloop, {
            value         => $thisprinter,
            selected      => ( $oldprinter eq $printers->{$thisprinter} ),
            branchprinter => $printers->{$thisprinter}->{'printqueue'},
        };
    }
    $op = 'list';
} elsif ( $op eq 'delete_confirm_category' ) {
    my $category = Koha::LibraryCategories->find($categorycode);
    if ( my $libraries_count = scalar( $category->branchcodes ) ) {
        push @messages,
          { type => 'error',
            code => 'cannot_delete_category',
            data => { libraries_count => $libraries_count, },
          };
        $op = 'list';
    } else {
        $template->param( category => $category );
    }
} elsif ( $op eq 'delete_confirmed_category' ) {
    my $category = Koha::LibraryCategories->find($categorycode);
    my $deleted = eval { $category->delete; };

    if ( $@ or not $deleted ) {
        push @messages, { type => 'error', code => 'error_on_delete_category' };
    } else {
        push @messages, { type => 'message', code => 'success_on_delete_category' };
    my $data;
	if ($categorycode) {
        $data = GetBranchCategory($categorycode);
        $innertemplate->param(
            categorycode    => $data->{'categorycode'},
            categoryname    => $data->{'categoryname'},
            codedescription => $data->{'codedescription'},
            show_in_pulldown => $data->{'show_in_pulldown'},
		);
    }
    $op = 'list';
} else {
    $op = 'list';
    $innertemplate->param(categorytype => \@cats);
}

if ( $op eq 'list' ) {
    my $libraries = Koha::Libraries->search( {}, { order_by => ['branchcode'] }, );
    $template->param(
        libraries   => $libraries,
        group_types => [
            {   categorytype => 'searchdomain',
                categories   => [ Koha::LibraryCategories->search( { categorytype => 'searchdomain' } ) ],
            },
            {   categorytype => 'properties',
                categories   => [ Koha::LibraryCategories->search( { categorytype => 'properties' } ) ],
            },
        ]
        #
        # - branch_name     (Note: not "branchname")
        # - branch_code     (Note: not "branchcode")
        # - address         (containing a static error message)
        # - branchaddress1 \
        # - branchaddress2  |
        # - branchaddress3  | comprising the old "address" field
        # - branchzip       |
        # - branchcity      |
        # - branchcountry   |
        # - branchphone     |
        # - branchfax       |
        # - branchemail    /
        # - branchurl      /
        # - opac_info (can contain HTML)
        # - address-empty-p (1 if no address information, 0 otherwise)
        # - categories      (containing a static error message)
        # - category_list   (loop containing "categoryname")
        # - no-categories-p (1 if no categories set, 0 otherwise)
        # - value
        #
        my %row = ();

        # Handle address fields separately
        my $address_empty_p = 1;
        for my $field (
            'branchaddress1', 'branchaddress2',
            'branchaddress3', 'branchzip',
            'branchcity', 'branchstate', 'branchcountry',
            'branchphone', 'branchfax',
            'branchemail', 'branchurl', 'opac_info',
            'branchip',       'branchprinter', 'branchnotes'
          )
        {
            $row{$field} = $branch->{$field};
            $address_empty_p = 0 if ( $branch->{$field} );
        }
        $row{'address-empty-p'} = $address_empty_p;

        # Handle categories
        my $no_categories_p = 1;
        my @categories;
        foreach my $cat ( @{ $branch->{'categories'} } ) {
            my $catinfo = GetBranchCategory($cat);
            push @categories, { 'categoryname' => $catinfo->{'categoryname'} };
            $no_categories_p = 0;
        }

        $row{'category_list'}   = \@categories;
        $row{'no-categories-p'} = $no_categories_p;
        $row{'branch_name'} = $branch->{'branchname'};
        $row{'branch_code'} = $branch->{'branchcode'};
        $row{'value'}       = $branch->{'branchcode'};

        push @loop_data, \%row;
    }
    my @branchcategories = ();
	for my $ctype ( GetCategoryTypes() ) {
        my $catinfo = GetBranchCategories($ctype);
        my @categories;
		foreach my $cat (@$catinfo) {
            push @categories, {
                categoryname    => $cat->{'categoryname'},
                categorycode    => $cat->{'categorycode'},
                codedescription => $cat->{'codedescription'},
                categorytype    => $cat->{'categorytype'},
            };
    	}
        push @branchcategories, { categorytype => $ctype , $ctype => 1 , catloop => ( @categories ? \@categories : undef) };
	}
    $innertemplate->param(
        branches         => \@loop_data,
        branchcategories => \@branchcategories
    );

}

$template->param(
    messages => \@messages,
    op       => $op,
);
         branch_name    => $data->{'branchname'},
         branchaddress1 => $data->{'branchaddress1'},
         branchaddress2 => $data->{'branchaddress2'},
         branchaddress3 => $data->{'branchaddress3'},
         branchzip      => $data->{'branchzip'},
         branchcity     => $data->{'branchcity'},
         branchstate    => $data->{'branchstate'},
         branchcountry  => $data->{'branchcountry'},
         branchphone    => $data->{'branchphone'},
         branchfax      => $data->{'branchfax'},
         branchemail    => $data->{'branchemail'},
         branchreplyto  => $data->{'branchreplyto'},
         branchreturnpath => $data->{'branchreturnpath'},
         branchurl      => $data->{'branchurl'},
         opac_info      => $data->{'opac_info'},
         branchip       => $data->{'branchip'},
         branchnotes    => $data->{'branchnotes'}, 
    );
}

output_html_with_http_headers $input, $cookie, $template->output;

# Local Variables:
# tab-width: 8
# End:




[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Administration &rsaquo; Libraries and groups
[% IF op == 'editcategory' %]
    &rsaquo;[% IF category.categorycode %]Edit group [% category.categorycode%][% ELSE %]New group[% END %]
[% ELSIF op == 'delete_confirm_category' %]
    &rsaquo; Confirm deletion of group [% category.categorycode %]
[% ELSIF op == 'add_form' %]
    &rsaquo;[% IF library %]Modify library[% ELSE %]New library [% library.branchcode %][% END %]
[% ELSIF op == 'delete_confirm' %]
    &rsaquo; Confirm deletion of library '[% library.branchcode %]'
[% END %]
</title>
[% INCLUDE 'doc-head-close.inc' %]

            "sPaginationType": "four_button"
        }));

        [% UNLESS library %]
            $("#Aform").on("submit", function( event ) {
                if ( $("#branchcode").val().match(/\s/) ) {
                    event.preventDefault();

    <a href="/cgi-bin/koha/mainpage.pl">Home</a>
&rsaquo; <a href="/cgi-bin/koha/admin/admin-home.pl">Administration</a>
&rsaquo; <a href="/cgi-bin/koha/admin/branches.pl">Libraries and groups</a>
[% IF op == 'add_form_category' %]
&rsaquo; [% IF category.categorycode %]Edit group [% category.categorycode %][% ELSE %]New group[% END %]
[% ELSIF op == 'delete_confirm_category' %]
&rsaquo; Confirm deletion of group [% category.categorycode %]
[% ELSIF op == 'add_form'  %]
&rsaquo; [% IF library %]Modify library[% ELSE %]New library [% library.branchcode %][% END %]
[% ELSIF op == 'delete_confirm' %]
&rsaquo; Confirm deletion of library '[% library.branchcode %]'
[% END %]
</div>

<div id="doc3" class="yui-t2">

   <div id="bd">
    <div id="yui-main">
    <div class="yui-b">

[% FOR m IN messages %]
    <div class="dialog [% m.type %]">
        [% SWITCH m.code %]
        [% CASE 'error_on_update' %]
            An error occurred when updating this library. Perhaps it already exists.
        [% CASE 'error_on_insert' %]
            An error occurred when adding this library. The branchcode might already exist.
        [% CASE 'error_on_delete' %]
            An error occurred when deleting this library. Check the logs.
        [% CASE 'success_on_update' %]
            Library updated successfully.
        [% CASE 'success_on_insert' %]
            Library added successfully.
        [% CASE 'success_on_delete' %]
            Library deleted successfully.
        [% CASE 'cannot_delete_library' %]
            This library cannot be deleted. Patrons or items are still using it
            [% IF m.data.patrons_count and m.data.items_count %]
                ([% m.data.patrons_count %] patrons and [% m.data.items_count %] items).
            [% ELSIF m.data.patrons_count %]
                ([% m.data.patrons_count %] patrons).
            [% ELSIF m.data.items_count %]
                ([% m.data.items_count %] items).
            [% END %]
        [% CASE 'error_on_update_category' %]
            An error occurred when updating this library category. Perhaps it already exists.
        [% CASE 'error_on_insert_category' %]
            An error occurred when adding this library category. The categorycode might already exist.
        [% CASE 'error_on_delete_category' %]
            An error occurred when deleting this library category. Check the logs.
        [% CASE 'success_on_update_category' %]
            Library category updated successfully.
        [% CASE 'success_on_insert_category' %]
            Library category added successfully.
        [% CASE 'success_on_delete_category' %]
            Library category deleted successfully.
        [% CASE 'cannot_delete_category' %]
            This library category cannot be deleted. [% m.data.libraries_count %] libraries are still using it.
        [% CASE %]
            [% m.code %]
        [% END %]
    </div>
[% END %]

[% IF op == 'list' %]
    <div id="toolbar" class="btn-toolbar">
        <a class="btn btn-small" id="newbranch" href="/cgi-bin/koha/admin/branches.pl?op=add_form"><i class="fa fa-plus"></i> New library</a>
        <a class="btn btn-small" id="newcategory" href="/cgi-bin/koha/admin/branches.pl?op=add_form_category"><i class="fa fa-plus"></i> New group</a>
    </div>
[% END %]

[% IF op == 'add_form' %]
    <h3>[% IF library %]Modify library[% ELSE %]New library[% END %]</h3>
    <form action="/cgi-bin/koha/admin/branches.pl" id="Aform" name="Aform" class="validated" method="post">
        <fieldset class="rows">
            <input type="hidden" name="op" value="add_validate" />
            [% IF library %]
                <input type="hidden" name="is_a_modif" value="1" />
            <input type="hidden" name="add" value="1" />
        [% ELSE %]
            <input type="hidden" name="add" value="0" />
        [% END %]
        <ol><li>
            [% IF ( heading_branches_add_branch_p ) %]
            <label for="branchcode" class="required">Library code: </label>
                <input type="text" name="branchcode" id="branchcode" size="10" maxlength="10" value="[% branchcode |html %]" class="required" required="required" /> <span class="required">Required</span>
            [% ELSE %]
            <span class="label">Library code: </span>
                <input type="hidden" name="branchcode" value="[% branchcode |html %]" />
                [% branchcode %]
            [% END %]
            <ol>
                <li>
                    [% IF library %]
                        <span class="label">Library code: </span>
                        <input type="hidden" name="branchcode" value="[% library.branchcode |html %]" />
                        [% library.branchcode %]
                    [% ELSE %]
                        <label for="branchcode" class="required">Library code: </label>
                        <input type="text" name="branchcode" id="branchcode" size="10" maxlength="10" value="[% library.branchcode |html %]" class="required" required="required" />
                        <span class="required">Required</span>
                    [% END %]
                </li>
                <li>
                    <label for="branchname" class="required">Name: </label>
                    <input type="text" name="branchname" id="branchname" size="80" value="[% library.branchname |html %]" class="required" required="required" />
                    <span class="required">Required</span>
                </li>
            </ol>
        </fieldset>
        [% IF categories %]
            <fieldset class="rows"><legend>Group(s):</legend>
                <ol>
                    [% FOREACH category IN categories %]
                        <li>
                            <label for="[% category.categorycode %]">[% category.categoryname %]: </label>
                            [% IF category and selected_categorycodes.grep(category.categorycode).size %]
                                <input type="checkbox" id="[% category.categorycode %]" name="selected_categorycode_[% category.categorycode %]" checked="checked" />
                            [% ELSE %]
                                <input type="checkbox" id="[% category.categorycode %]" name="selected_categorycode_[% category.categorycode %]" />
                            [% END %]
                            <span class="hint">[% category.codedescription %]</span>
                        </li>
                    [% END %]
                </ol>
            </fieldset>
        [% END %]
        <fieldset class="rows">
            <ol>
                <li><label for="branchaddress1">Address line 1: </label><input type="text" name="branchaddress1" id="branchaddress1" size="60" value="[% library.branchaddress1 |html %]" /></li>
                <li><label for="branchaddress2">Address line 2: </label><input type="text" name="branchaddress2" id="branchaddress2" size="60" value="[% library.branchaddress2 |html %]" /></li>
                <li><label for="branchaddress3">Address line 3: </label><input type="text" name="branchaddress3" id="branchaddress3" size="60" value="[% library.branchaddress3 |html %]" /></li>
                <li><label for="branchcity">City: </label><input type="text" name="branchcity" id="branchcity" size="60" value="[% library.branchcity |html %]" /></li>
                <li><label for="branchstate">State: </label><input type="text" name="branchstate" id="branchstate" size="60" value="[% library.branchstate |html %]" /></li>
                <li><label for="branchzip">Zip/Postal code: </label><input type="text" name="branchzip" id="branchzip"  size="25" maxlength="25" value="[% library.branchzip |html %]" /></li>
                <li><label for="branchcountry">Country: </label><input type="text" name="branchcountry" id="branchcountry" size="60" value="[% library.branchcountry |html %]" /></li>
                <li><label for="branchphone">Phone: </label><input type="text" name="branchphone" id="branchphone" size="60" value="[% library.branchphone |html %]" /></li>
                <li><label for="branchfax">Fax: </label><input type="text" name="branchfax" id="branchfax" size="60" value="[% library.branchfax |html %]" /></li>
                <li><label for="branchemail">Email: </label><input type="text" name="branchemail" id="branchemail" class="email"  size="80" value="[% library.branchemail |html %]" /></li>
                <li><label for="branchreplyto">Reply-To (if different to Email): </label> <input type="text" name="branchreplyto" id="branchreplyto" class="email"  size="80" value="[% library.branchreplyto |html %]" /></li>
                <li><label for="branchreturnpath">Return-Path (if different to Email): </label> <input type="text" name="branchreturnpath" id="branchreturnpath" class="email"  size="80" value="[% library.branchreturnpath |html %]" /></li>
                <li><label for="branchurl">URL: </label><input type="text" name="branchurl" id="branchurl"  size="80" value="[% library.branchurl |html %]" class="url" /></li>
                <li><label for="opac_info">OPAC info: </label><textarea name="opac_info" id="opac_info">[% library.opac_info |html %]</textarea></li>
                <li><label for="branchip">IP: </label><input type="text" name="branchip" id="branchip"  size="15" maxlength="15" value="[% library.branchip |html %]" /> <span class="hint">Can be entered as a single IP, or a subnet such as 192.168.1.*</span></li>
                <li><label for="branchnotes">Notes: </label><input type="text" name="branchnotes" id="branchnotes" size="80" value="[% library.branchnotes |html %]" /></li>
            </ol>
        </fieldset>
        <fieldset class="action">
            <input type="submit" value="Submit" />
            <a class="cancel" href="/cgi-bin/koha/admin/branches.pl">Cancel</a>
            [% FOREACH printerloo IN printerloop %]
                [% IF ( printerloo.selected ) %]
				<option value="[% printerloo.value %]" selected="selected">[% printerloo.branchprinter %]</option>
				[% ELSE %]
				<option value="[% printerloo.value %]">[% printerloo.branchprinter %]</option>
				[% END %]
                [% END %]
            </select></li>
			-->
        <li><label for="branchnotes">Notes: </label><input type="text" name="branchnotes" id="branchnotes" size="80" value="[% branchnotes |html %]" /></li>
        </ol>
        </fieldset>
        <fieldset class="action"><input type="submit" value="Submit" /> <a class="cancel" href="/cgi-bin/koha/admin/branches.pl">Cancel</a></fieldset>
    </form>
[% END %]

[% IF op == 'delete_confirm' and not ( items_count or patrons_count )%]
    <form action="/cgi-bin/koha/admin/branches.pl" method="post">
        <fieldset>
            <legend>Confirm deletion of [% library.branchname %] ([% library.branchcode %])?</legend>
            <input type="hidden" name="op" value="delete_confirmed" />
            <input type="hidden" name="branchcode" value="[% library.branchcode |html %]" />
            <input type="hidden" name="branchname" value="[% library.branchname |html %]">
            <fieldset class="action">
                <input type="submit" value="Delete Library" />
                <a class="cancel" href="/cgi-bin/koha/admin/branches.pl">Cancel</a>
            </fieldset>
        </fieldset>
    </form>
[% END %]

[% IF op == 'list' %]
    <h3>Libraries</h3>
    [% IF libraries %]
        <table id="branchest">
            <thead>
                <tr>
                    <th>Name</th>
                    <th>Code</th>
                    <th>Address</th>
                    <th>Properties</th>
                    <th>IP</th>
                    <th>&nbsp;</th>
                    <th>&nbsp;</th>
                </tr>
            </thead>
            <tbody>
                [% FOREACH library IN libraries %]
                    <tr>
                        <td>[% library.branchname |html %]</td>
                        <td>[% library.branchcode |html %]</td>
                        <td>
                            [% IF library.branchaddress1 %]
                                [% library.branchaddress1 |html %][% END %]
                            [% IF library.branchaddress2 %]
                                <br />[% library.branchaddress2 |html %][% END %]
                            [% IF library.branchaddress3 %]
                                <br />[% library.branchaddress3 |html %][% END %]
                            [% IF library.branchcity %]
                                <br />[% library.branchcity |html %][% END %][% IF ( library.branchstate ) %],
                                [% library.branchstate |html %][% END %]
                            [% IF library.branchzip %]
                                [% library.branchzip |html %][% END %]
                            [% IF library.branchcountry %]
                                <br />[% library.branchcountry |html %][% END %]
                            [% IF library.branchphone %]
                                <br />Ph: [% library.branchphone |html %][% END %]
                            [% IF library.branchfax %]
                                <br />Fax: [% library.branchfax |html %][% END %]
                            [% IF library.branchemail %]
                                <br /><a href="mailto:[% library.branchemail %]">[% library.branchemail |html %]</a>[% END %]
                            [% IF library.branchurl %]
                                <br /><a href="[% library.branchurl %]">[% library.branchurl |html %]</a>[% END %]
                            [% IF library.opac_info %]
                                <br />OPAC Info: <div>[% library.opac_info %]</div>[% END %]
                            [% IF library.branchnotes %]
                                <br />Notes: [% library.branchnotes |html %][% END %]
                        </td>
                        <td>
                            [% FOREACH category IN library.get_categories %]
                                [% category.categoryname %]<br />
                            [% END %]
                        </td>
                        <td>[% library.branchip %]</td>
                        <td>
                            <a href="/cgi-bin/koha/admin/branches.pl?op=add_form&amp;branchcode=[% library.branchcode %]">Edit</a>
                        </td>
                        <td>
                            <a href="/cgi-bin/koha/admin/branches.pl?op=delete_confirm&amp;branchcode=[% library.branchcode %]">Delete</a>
                        </td>
                    </tr>
                [% END %]
            </tbody>
        </table>
    [% ELSE %]
        <div class="dialog message">There are no libraries defined. <a href="/cgi-bin/koha/admin/branches.pl?op=add_form">Start defining libraries</a>.</div>
    [% END %]
                        [% END %]
                    [% END %]
                </td>
                <td>
                    [% branche.branchip %]
                </td>
                <!-- <td>
                    [% branche.branchprinter %]
                </td> -->
                <td>
                    <a href="[% branche.action %]?op=edit&amp;branchcode=[% branche.value |url %]">Edit</a>
                </td>
                <td>
                    <a href="[% branche.action %]?branchcode=[% branche.value |url %]&amp;branchname=[% branche.branch_name |url %]&amp;op=delete">Delete</a>
                </td>
            </tr>
        [% END %]</tbody>
    </table>
	[% ELSE %]
	<div class="dialog message">There are no libraries defined. <a href="/cgi-bin/koha/admin/branches.pl?op=add">Start defining libraries</a>.</div>
	[% END %]

    [% IF group_types %]
        [% FOREACH group_type IN group_types %]
            <h3>[% IF group_type.categorytype == 'properties' %]Properties[% ELSIF group_type.categorytype == 'searchdomain' %]Search domain[% END %]</h3>
            [% IF group_type.categories %]
                <table>
                    <thead>
                        <tr>
                            <th>Name</th>
                            <th>Code</th>
                            <th>Description</th>
                            <th>&nbsp;</th>
                            <th>&nbsp;</th>
                        </tr>
                    </thead>
                    <tbody>
                        [% FOREACH category IN group_type.categories %]
                            <tr>
                                <td>[% category.categoryname %]</td>
                                <td>[% category.categorycode %]</td>
                                <td>[% category.codedescription %]</td>
                                <td>
                                  <a href="/cgi-bin/koha/admin/branches.pl?categorycode=[% category.categorycode %]&amp;op=add_form_category">Edit</a>
                                </td>
                                <td>
                                    <a href="/cgi-bin/koha/admin/branches.pl?categorycode=[% category.categorycode %]&amp;op=delete_confirm_category">Delete</a>
                                </td>
                            </tr>
                        [% END %]
                    </tbody>
                </table>
            [% ELSE %]
                [% IF group_type.categorytype == 'properties' %]
                    No properties defined.
                [% ELSIF group_type.categorytype == 'searchdomain' %]
                    No search domain defined.
                [% END %]
                <a href="/cgi-bin/koha/admin/branches.pl?op=add_form_category">Add a new group</a>.
            [% END %]
        [% END %]
    [% ELSE %]
        <p>No groups defined.</p>
    [% END %]
  [% END %]
  [% ELSE %]
    <p>No groups defined.</p>
  [% END %] <!-- NAME="branchcategories" -->
[% END %]

[% IF op == 'add_form_category' %]
    <h3>[% IF category.categorycode %]Edit group [% category.categorycode %][% ELSE %]Add group[% END %]</h3>
    <form action="/cgi-bin/koha/admin/branches.pl" name="Aform" method="post">
        <input type="hidden" name="op" value="add_validate_category" />
        [% IF category.categorycode %]
            <input type="hidden" name="is_a_modif" value="1" />
        [% END %]
        <fieldset class="rows">
            <ol>
                <li>
                    [% IF category.categorycode %]
                        <span class="label">Category code: </span>
                        <input type="hidden" name="categorycode" id="categorycode" value="[% category.categorycode |html %]" />
                        [% category.categorycode %]
                    [% ELSE %]
                        <label for="categorycode">Category code:</label>
                        <input type="text" name="categorycode" id="categorycode" size="10" maxlength="10" />
                    [% END %]
                </li>
                <li>
                    <label for="categoryname">Name: </label>
                    <input type="text" name="categoryname" id="categoryname" size="32" maxlength="32" value="[% category.categoryname |html %]" />
                </li>
                <li>
                    <label for="codedescription">Description: </label>
                    <input type="text" name="codedescription" id="codedescription" size="70" value="[% category.codedescription |html %]" />
                </li>
                <li>
                    <label for="categorytype">Category type: </label>
                    <select id="categorytype" name="categorytype">
                        [% IF category.categorytype == 'properties' %]
                            <option value="searchdomain">Search domain</option>
                            <option value="properties" selected="selected">Properties</option>
                        [% ELSE %]
                            <option value="searchdomain">Search domain</option>
                            <option value="properties">Properties</option>

                        [% END %]
                    </select>
                </li>
                <li>
                    <label for="show_in_pulldown">Show in search pulldown: </label>
                    [% IF category.show_in_pulldown %]
                        <input type="checkbox" name="show_in_pulldown" id="show_in_pulldown" checked="checked"/>
                    [% ELSE %]
                        <input type="checkbox" name="show_in_pulldown" id="show_in_pulldown" />
                    [% END %]
                </li>
            </ol>
        </fieldset>
        <fieldset class="action"><input type="submit" value="Update" /></fieldset>
        <li>
            <label for="codedescription">Description: </label>
            <input type="text" name="codedescription" id="codedescription" size="70" value="[% codedescription |html %]" />
        </li>
		<li>
        <label for="categorytype">Category type: </label>
            <select id="categorytype" name="categorytype">
            [% FOREACH categorytyp IN categorytype %]
                [% IF ( categorytyp.selected ) %]
                    <option value="[% categorytyp.type %]" selected="selected">
                [% ELSE %]
                    <option value="[% categorytyp.type %]">
                [% END %] [% categorytyp.type %]</option>
            [% END %]
            </select>
		</li>
        <li>
            <label for="show_in_pulldown">Show in search pulldown: </label>
            [% IF ( show_in_pulldown ) %]
                <input type="checkbox" name="show_in_pulldown" id="show_in_pulldown" checked="checked"/>
            [% ELSE %]
                <input type="checkbox" name="show_in_pulldown" id="show_in_pulldown" />
            [% END %]
        </li>
		</ol>
    </fieldset>
	<fieldset class="action"><input type="submit" value="Update" /></fieldset>
    </form>
[% END %]

[% IF op == 'delete_confirm_category' %]
    [% UNLESS ( MESSAGE8 ) %]
    <div class="dialog message">
    Are you sure you want to delete the group '[% category.codedescription %]' ([% category.categorycode %])?
    <form action="/cgi-bin/koha/admin/branches.pl" method="post">
        <input type="hidden" name="op" value="delete_confirmed_category" />
        <input type="hidden" name="categorycode" value="[% category.categorycode |html %]" />
        <input type="submit" value="Delete" />
        <a class="cancel" href="/cgi-bin/koha/admin/branches.pl">Cancel</a>
    <form action="[% action %]" method="post"><input type="hidden" name="op" value="">
        <input type="submit" value="NO" />
    </form>
    </div>
    [% END %]
[% END %]

</div>
- 

Return to bug 15295

Lines 1-6 Link Here

(-)a/admin/branches.pl (-357 / +180 lines)
1	#!/usr/bin/perl	1	#!/usr/bin/perl
2		2
3	# Copyright 2000-2002 Katipo Communications	3	# Copyright 2000-2002 Katipo Communications
		4	# Copyright 2015 Koha Development Team
4	#	5	#
5	# This file is part of Koha.	6	# This file is part of Koha.
6	#	7	#
Lines 17-418 Link Here
17	# You should have received a copy of the GNU General Public License	18	# You should have received a copy of the GNU General Public License
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	19	# along with Koha; if not, see <http://www.gnu.org/licenses>.
19		20
20	=head1 branches.pl	21	use Modern::Perl;
21
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
26	notify translators
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
30	translators
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
34
35	Finlay working on this file from 26-03-2002
36	Reorganising this branches admin page.....
37
38	=cut
39
40	use strict;
41	use warnings;
42	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
43	use C4::Auth;	23	use C4::Auth;
44	use C4::Context;	24	use C4::Context;
45	use C4::Output;	25	use C4::Output;
46	use C4::Koha;	26	use C4::Koha;
47	use C4::Branch;	27	use Koha::Borrowers;
48		28	use Koha::Items;
49	# Fixed variables	29	use Koha::Libraries;
50	my $script_name = "/cgi-bin/koha/admin/branches.pl";	30	use Koha::LibraryCategories;
51		31
52	################################################################################
53	# Main loop....
54	my $input = new CGI;	32	my $input = new CGI;
55	my $branchcode = $input->param('branchcode');	33	my $branchcode = $input->param('branchcode');
56	my $branchname = $input->param('branchname');
57	my $categorycode = $input->param('categorycode');	34	my $categorycode = $input->param('categorycode');
58	my $op = $input->param('op') \|\| '';	35	my $op = $input->param('op') \|\| 'list';
		36	my @messages;
59		37
60	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(	38	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
61	{	39	{ template_name => "admin/branches.tt",
62	template_name => "admin/branches.tt",
63	query => $input,	40	query => $input,
64	type => "intranet",	41	type => "intranet",
65	authnotrequired => 0,	42	authnotrequired => 0,
66	flagsrequired => { parameters => 'parameters_remaining_permissions'},	43	flagsrequired => { parameters => 'parameters_remaining_permissions' },
67	debug => 1,	44	debug => 1,
68	}	45	}
69	);	46	);
70	$template->param(
71	script_name => $script_name,
72	action => $script_name,
73	);
74	$template->param( ($op \|\| 'else') => 1 );
75
76	if ( $op eq 'add' ) {
77		47
78	# If the user has pressed the "add new branch" button.	48	if ( $op eq 'add_form' ) {
79	$template->param( 'heading_branches_add_branch_p' => 1 );	49	my $library;
80	editbranchform($branchcode,$template);	50	if ($branchcode) {
81		51	$library = Koha::Libraries->find($branchcode);
82	}	52	}
83	elsif ( $op eq 'edit' ) {
84		53
85	# if the user has pressed the "edit branch settings" button.	54	$template->param(
86	$template->param( 'heading_branches_add_branch_p' => 0,	55	library => $library,
87	'add' => 1, );	56	categories => [ Koha::LibraryCategories->search( {}, { order_by => [ 'categorytype', 'categoryname' ] } ) ],
88	editbranchform($branchcode,$template);	57	$library ? ( selected_categorycodes => [ map { $_->categorycode } $library->get_categories ] ) : (),
89	}	58	);
90	elsif ( $op eq 'add_validate' ) {	59	} elsif ( $op eq 'add_validate' ) {
		60	my @fields = qw(
		61	branchname
		62	branchaddress1
		63	branchaddress2
		64	branchaddress3
		65	branchzip
		66	branchcity
		67	branchstate
		68	branchcountry
		69	branchphone
		70	branchfax
		71	branchemail
		72	branchreplyto
		73	branchreturnpath
		74	branchurl
		75	issuing
		76	branchip
		77	branchnotes
		78	opac_info
		79	);
		80	my $is_a_modif = $input->param('is_a_modif');
91		81
92	# confirm settings change...	82	my @categories;
93	my $params = $input->Vars;	83	for my $category ( Koha::LibraryCategories->search ) {
94	unless ( $params->{'branchcode'} && $params->{'branchname'} ) {	84	push @categories, $category
95	$template->param( else => 1 );	85	if $input->param( "selected_categorycode_" . $category->categorycode );
96	default("MESSAGE1",$template);
97	}	86	}
98	else {	87	if ($is_a_modif) {
99	my $mod_branch = 1;	88	my $library = Koha::Libraries->find($branchcode);
100	if ($params->{add}) {	89	for my $field (@fields) {
101	my ($existing) =	90	$library->$field( $input->param($field) );
102	C4::Context->dbh->selectrow_array("SELECT count(*) FROM branches WHERE branchcode = ?", {}, $branchcode);	91	}
103	if ($existing > 0) {	92	$library->update_categories( \@categories );
104	$mod_branch = 0;	93
105	_branch_to_template($params, $template); # preserve most (FIXME) of user's input	94	eval { $library->store; };
106	$template->param( 'heading_branches_add_branch_p' => 1, 'add' => 1, 'ERROR1' => 1 );	95	if ($@) {
107	}	96	push @messages, { type => 'error', code => 'error_on_update' };
		97	} else {
		98	push @messages, { type => 'message', code => 'success_on_update' };
108	}	99	}
109	if ($mod_branch) {	100	} else {
110	my $error = ModBranch($params); # FIXME: causes warnings to log on duplicate branchcode	101	$branchcode =~ s\|\s\|\|g;
111	# if error saving, stay on edit and rise error	102	my $library = Koha::Library->new(
112	if ($error) {	103	{ branchcode => $branchcode,
113	# copy input parameters back to form	104	( map { $_ => $input->param($_) \|\| undef } @fields )
114	# FIXME - doing this doesn't preserve any branch group selections, but good enough for now
115	editbranchform($branchcode,$template);
116	$template->param( 'heading_branches_add_branch_p' => 1, 'add' => 1, "ERROR$error" => 1 );
117	} else {
118	$template->param( else => 1);
119	default("MESSAGE2",$template);
120	}	105	}
		106	);
		107	eval { $library->store; };
		108	$library->add_to_categories( \@categories );
		109	if ($@) {
		110	push @messages, { type => 'error', code => 'error_on_insert' };
		111	} else {
		112	push @messages, { type => 'message', code => 'success_on_insert' };
121	}	113	}
122	}	114	}
123	}	115	$op = 'list';
124	elsif ( $op eq 'delete' ) {	116	} elsif ( $op eq 'delete_confirm' ) {
125	# if the user has pressed the "delete branch" button.	117	my $library = Koha::Libraries->find($branchcode);
126		118	my $items_count = Koha::Items->search(
127	# check to see if the branchcode is being used in the database somewhere....	119	{ -or => {
128	my $dbh = C4::Context->dbh;	120	holdingbranch => $branchcode,
129	my $sthitems = $dbh->prepare("select count(*) from items where holdingbranch=? or homebranch=?");	121	homebranch => $branchcode
130	my $sthborrowers = $dbh->prepare("select count(*) from borrowers where branchcode=?");	122	},
131	$sthitems->execute( $branchcode, $branchcode );	123	}
132	$sthborrowers->execute( $branchcode );	124	)->count;
133	my ($totalitems) = $sthitems->fetchrow_array;	125	my $patrons_count = Koha::Borrowers->search( { branchcode => $branchcode, } )->count;
134	my ($totalborrowers) = $sthborrowers->fetchrow_array;	126
135	if ($totalitems && !$totalborrowers) {	127	if ( $items_count or $patrons_count ) {
136	$template->param( else => 1 );	128	push @messages,
137	default("MESSAGE10", $template);	129	{ type => 'error',
138	}	130	code => 'cannot_delete_library',
139	elsif (!$totalitems && $totalborrowers){	131	data => {
140	$template->param( else => 1 );	132	items_count => $items_count,
141	default("MESSAGE11", $template);	133	patrons_count => $patrons_count,
142	}	134	},
143	elsif ($totalitems && $totalborrowers){	135	};
144	$template->param( else => 1 );	136	$op = 'list';
145	default("MESSAGE7", $template);
146	}
147	else {
148	$template->param( delete_confirm => 1 );
149	$template->param( branchname => $branchname );
150	$template->param( branchcode => $branchcode );
151	}
152	}
153	elsif ( $op eq 'delete_confirmed' ) {
154
155	# actually delete branch and return to the main screen....
156	DelBranch($branchcode);
157	$template->param( else => 1 );
158	default("MESSAGE3",$template);
159	}
160	elsif ( $op eq 'editcategory' ) {
161
162	# If the user has pressed the "add new category" or "modify" buttons.
163	$template->param( 'heading_branches_edit_category_p' => 1 );
164	editcatform($categorycode,$template);
165	}
166	elsif ( $op eq 'addcategory_validate' ) {
167
168	$template->param( else => 1 );
169	# confirm settings change...
170	my $params = $input->Vars;
171	$params->{'show_in_pulldown'} = ( $params->{'show_in_pulldown'} eq 'on' ) ? 1 : 0;
172
173	unless ( $params->{'categorycode'} && $params->{'categoryname'} ) {
174	default("MESSAGE4",$template);
175	}
176	elsif ($input->param('add')){
177	# doing an add must check the code is unique
178	if (CheckCategoryUnique($input->param('categorycode'))){
179	ModBranchCategoryInfo($params);
180	default("MESSAGE5",$template);
181	}
182	else {
183	default("MESSAGE9",$template);
184	}
185	}
186	else {
187	ModBranchCategoryInfo($params);
188	default("MESSAGE5",$template);
189	}
190	}
191	elsif ( $op eq 'delete_category' ) {
192
193	# if the user has pressed the "delete branch" button.
194	if ( CheckBranchCategorycode($categorycode) ) {
195	$template->param( else => 1 );
196	default( 'MESSAGE8', $template );
197	} else {	137	} else {
198	$template->param( delete_category => 1 );	138	$template->param(
199	$template->param( categorycode => $categorycode );	139	library => $library,
		140	items_count => $items_count,
		141	patrons_count => $patrons_count,
		142	);
200	}	143	}
201	}	144	} elsif ( $op eq 'delete_confirmed' ) {
202	elsif ( $op eq 'categorydelete_confirmed' ) {	145	my $library = Koha::Libraries->find($branchcode);
203
204	# actually delete branch and return to the main screen....
205	DelBranchCategory($categorycode);
206	$template->param( else => 1 );
207	default("MESSAGE6",$template);
208		146
209	}	147	my $deleted = eval { $library->delete; };
210	else {
211	# if no operation has been set...
212	default("",$template);
213	}
214		148
215	################################################################################	149	if ( $@ or not $deleted ) {
216	#	150	push @messages, { type => 'error', code => 'error_on_delete' };
217	# html output functions....	151	} else {
218		152	push @messages, { type => 'message', code => 'success_on_delete' };
219	sub default {	153	}
220	my $message = shift \|\| '';	154	$op = 'list';
221	my $innertemplate = shift or return;	155	} elsif ( $op eq 'add_form_category' ) {
222	$innertemplate->param($message => 1) if $message;	156	my $category;
223	$innertemplate->param(	157	if ($categorycode) {
224	'heading_branches_p' => 1,	158	$category = Koha::LibraryCategories->find($categorycode);
		159	}
		160	$template->param( category => $category, );
		161	} elsif ( $op eq 'add_validate_category' ) {
		162	my $is_a_modif = $input->param('is_a_modif');
		163	my @fields = qw(
		164	categoryname
		165	codedescription
		166	categorytype
225	);	167	);
226	branchinfotable("",$innertemplate);	168	if ($is_a_modif) {
227	}	169	my $category = Koha::LibraryCategories->find($categorycode);
228		170	for my $field (@fields) {
229	sub editbranchform {	171	$category->$field( $input->param($field) );
230	my ($branchcode,$innertemplate) = @_;	172	}
231	# initiate the scrolling-list to select the printers	173	$category->show_in_pulldown( $input->param('show_in_pulldown') eq 'on' );
232	my $printers = GetPrinters();	174	eval { $category->store; };
233	my @printerloop;	175	if ($@) {
234	my $data;	176	push @messages, { type => 'error', code => 'error_on_update_category' };
235	my $oldprinter = "";	177	} else {
236		178	push @messages, { type => 'message', code => 'success_on_update_category' };
237		179	}
238	# make the checkboxes.....	180	} else {
239	my $catinfo = GetBranchCategories();	181	my $category = Koha::LibraryCategory->new(
240		182	{ categorycode => $categorycode,
241	if ($branchcode) {	183	( map { $_ => $input->param($_) \|\| undef } @fields )
242	$data = GetBranchInfo($branchcode);	184	}
243	$data = $data->[0];	185	);
244	if ( exists $data->{categories} ) {	186	$category->show_in_pulldown( $input->param('show_in_pulldown') eq 'on' );
245	# Set the selected flag for the categories of this branch	187	eval { $category->store; };
246	$catinfo = [	188	if ($@) {
247	map {	189	push @messages, { type => 'error', code => 'error_on_insert_category' };
248	my $catcode = $_->{categorycode};	190	} else {
249	if ( grep {/$catcode/} @{$data->{categories}} ){	191	push @messages, { type => 'message', code => 'success_on_insert_category' };
250	$_->{selected} = 1;
251	}
252	$_;
253	} @{$catinfo}
254	];
255	}	192	}
256
257	# get the old printer of the branch
258	$oldprinter = $data->{'branchprinter'} \|\| '';
259	_branch_to_template($data, $innertemplate);
260	}
261	$innertemplate->param( categoryloop => $catinfo );
262
263	foreach my $thisprinter ( keys %$printers ) {
264	push @printerloop, {
265	value => $thisprinter,
266	selected => ( $oldprinter eq $printers->{$thisprinter} ),
267	branchprinter => $printers->{$thisprinter}->{'printqueue'},
268	};
269	}	193	}
270		194	$op = 'list';
271	$innertemplate->param( printerloop => \@printerloop );	195	} elsif ( $op eq 'delete_confirm_category' ) {
272		196	my $category = Koha::LibraryCategories->find($categorycode);
273	for my $obsolete ( 'categoryname', 'categorycode', 'codedescription' ) {	197	if ( my $libraries_count = scalar( $category->branchcodes ) ) {
274	$innertemplate->param(	198	push @messages,
275	$obsolete => 'Your template is out of date (bug 130)' );	199	{ type => 'error',
		200	code => 'cannot_delete_category',
		201	data => { libraries_count => $libraries_count, },
		202	};
		203	$op = 'list';
		204	} else {
		205	$template->param( category => $category );
276	}	206	}
277	}	207	} elsif ( $op eq 'delete_confirmed_category' ) {
278		208	my $category = Koha::LibraryCategories->find($categorycode);
279	sub editcatform {	209	my $deleted = eval { $category->delete; };
280		210
281	# prepares the edit form...	211	if ( $@ or not $deleted ) {
282	my ($categorycode,$innertemplate) = @_;	212	push @messages, { type => 'error', code => 'error_on_delete_category' };
283	# warn "cat : $categorycode";	213	} else {
284	my @cats;	214	push @messages, { type => 'message', code => 'success_on_delete_category' };
285	my $data;
286	if ($categorycode) {
287	$data = GetBranchCategory($categorycode);
288	$innertemplate->param(
289	categorycode => $data->{'categorycode'},
290	categoryname => $data->{'categoryname'},
291	codedescription => $data->{'codedescription'},
292	show_in_pulldown => $data->{'show_in_pulldown'},
293	);
294	}	215	}
295	for my $ctype (GetCategoryTypes()) {	216	$op = 'list';
296	push @cats , { type => $ctype , selected => ($data->{'categorytype'} and $data->{'categorytype'} eq $ctype) };	217	} else {
297	}	218	$op = 'list';
298	$innertemplate->param(categorytype => \@cats);
299	}	219	}
300		220
301	sub branchinfotable {	221	if ( $op eq 'list' ) {
302		222	my $libraries = Koha::Libraries->search( {}, { order_by => ['branchcode'] }, );
303	# makes the html for a table of branch info from reference to an array of hashs.	223	$template->param(
304		224	libraries => $libraries,
305	my ($branchcode,$innertemplate) = @_;	225	group_types => [
306	my $branchinfo = $branchcode ? GetBranchInfo($branchcode) : GetBranchInfo();	226	{ categorytype => 'searchdomain',
307	my @loop_data = ();	227	categories => [ Koha::LibraryCategories->search( { categorytype => 'searchdomain' } ) ],
308	foreach my $branch (@$branchinfo) {	228	},
309	#	229	{ categorytype => 'properties',
310	# We export the following fields to the template. These are not	230	categories => [ Koha::LibraryCategories->search( { categorytype => 'properties' } ) ],
311	# pre-composed as a single "address" field because the template	231	},
312	# might (and should) escape what is exported here. (See bug 180)	232	]
313	#
314	# - branch_name (Note: not "branchname")
315	# - branch_code (Note: not "branchcode")
316	# - address (containing a static error message)
317	# - branchaddress1 \
318	# - branchaddress2 \|
319	# - branchaddress3 \| comprising the old "address" field
320	# - branchzip \|
321	# - branchcity \|
322	# - branchcountry \|
323	# - branchphone \|
324	# - branchfax \|
325	# - branchemail /
326	# - branchurl /
327	# - opac_info (can contain HTML)
328	# - address-empty-p (1 if no address information, 0 otherwise)
329	# - categories (containing a static error message)
330	# - category_list (loop containing "categoryname")
331	# - no-categories-p (1 if no categories set, 0 otherwise)
332	# - value
333	#
334	my %row = ();
335
336	# Handle address fields separately
337	my $address_empty_p = 1;
338	for my $field (
339	'branchaddress1', 'branchaddress2',
340	'branchaddress3', 'branchzip',
341	'branchcity', 'branchstate', 'branchcountry',
342	'branchphone', 'branchfax',
343	'branchemail', 'branchurl', 'opac_info',
344	'branchip', 'branchprinter', 'branchnotes'
345	)
346	{
347	$row{$field} = $branch->{$field};
348	$address_empty_p = 0 if ( $branch->{$field} );
349	}
350	$row{'address-empty-p'} = $address_empty_p;
351
352	# Handle categories
353	my $no_categories_p = 1;
354	my @categories;
355	foreach my $cat ( @{ $branch->{'categories'} } ) {
356	my $catinfo = GetBranchCategory($cat);
357	push @categories, { 'categoryname' => $catinfo->{'categoryname'} };
358	$no_categories_p = 0;
359	}
360
361	$row{'category_list'} = \@categories;
362	$row{'no-categories-p'} = $no_categories_p;
363	$row{'branch_name'} = $branch->{'branchname'};
364	$row{'branch_code'} = $branch->{'branchcode'};
365	$row{'value'} = $branch->{'branchcode'};
366
367	push @loop_data, \%row;
368	}
369	my @branchcategories = ();
370	for my $ctype ( GetCategoryTypes() ) {
371	my $catinfo = GetBranchCategories($ctype);
372	my @categories;
373	foreach my $cat (@$catinfo) {
374	push @categories, {
375	categoryname => $cat->{'categoryname'},
376	categorycode => $cat->{'categorycode'},
377	codedescription => $cat->{'codedescription'},
378	categorytype => $cat->{'categorytype'},
379	};
380	}
381	push @branchcategories, { categorytype => $ctype , $ctype => 1 , catloop => ( @categories ? \@categories : undef) };
382	}
383	$innertemplate->param(
384	branches => \@loop_data,
385	branchcategories => \@branchcategories
386	);	233	);
387
388	}	234	}
389		235
390	sub _branch_to_template {	236	$template->param(
391	my ($data, $template) = @_;	237	messages => \@messages,
392	$template->param(	238	op => $op,
393	branchcode => $data->{'branchcode'},	239	);
394	branch_name => $data->{'branchname'},
395	branchaddress1 => $data->{'branchaddress1'},
396	branchaddress2 => $data->{'branchaddress2'},
397	branchaddress3 => $data->{'branchaddress3'},
398	branchzip => $data->{'branchzip'},
399	branchcity => $data->{'branchcity'},
400	branchstate => $data->{'branchstate'},
401	branchcountry => $data->{'branchcountry'},
402	branchphone => $data->{'branchphone'},
403	branchfax => $data->{'branchfax'},
404	branchemail => $data->{'branchemail'},
405	branchreplyto => $data->{'branchreplyto'},
406	branchreturnpath => $data->{'branchreturnpath'},
407	branchurl => $data->{'branchurl'},
408	opac_info => $data->{'opac_info'},
409	branchip => $data->{'branchip'},
410	branchnotes => $data->{'branchnotes'},
411	);
412	}
413		240
414	output_html_with_http_headers $input, $cookie, $template->output;	241	output_html_with_http_headers $input, $cookie, $template->output;
415
416	# Local Variables:
417	# tab-width: 8
418	# End: