Koha › Tools › Patron Cards › Manage Patron Card Elements

+ + +

Current Branch:

+ +

"> +

Currently Available

+ + + + + + + + + + + + + + + + + + + + + + +


" />

+ + + +

+ +

There Are No Currently Available.

Use the toolbar above to create a new .

+ +

+ diff --git a/patroncards/manage.pl b/patroncards/manage.pl new file mode 100755 index 0000000000..7026b3412f --- /dev/null +++ b/patroncards/manage.pl @@ -0,0 +1,123 @@ +#!/usr/bin/perl +# +# Copyright 2006 Katipo Communications. +# Parts Copyright 2009 Foundations Bible College. +# +# This file is part of Koha. +# +# Koha is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# Koha is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR +# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along with +# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +use strict; +use warnings; +use vars qw($debug); + +use CGI; +use autouse 'Data::Dumper' => qw(Dumper); + +use C4::Auth qw(get_template_and_user); +use C4::Output qw(output_html_with_http_headers); +use autouse 'C4::Branch' => qw(get_branch_code_from_name); +use C4::Creators::Lib 1.000000 qw(get_all_templates get_all_layouts get_all_profiles get_batch_summary html_table); +use C4::Patroncards::Layout 1.000000; +use C4::Patroncards::Template 1.000000; +use C4::Patroncards::Profile 1.000000; +use C4::Labels::Batch 1.000000; + +my $cgi = new CGI; +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "patroncards/manage.tmpl", + query => $cgi, + type => "intranet", + authnotrequired => 0, + flagsrequired => { catalogue => 1 }, + debug => 1, + } +); + +my $op = $cgi->param('op') || 'none'; +my $card_element = $cgi->param('card_element') || 'template'; # default to template managment +my $element_id = $cgi->param('element_id') || 0; # there should never be an element with a id of 0 so this is a safe default + +my $db_rows = {}; +my $display_columns = { layout => [ # db column => {col label is link? + {layout_id => {label => 'Layout ID', link_field => 0}}, + {layout_name => {label => 'Layout', link_field => 0}}, + #{layout_xml => {label => 'Layout XML', link_field => 0}}, + {select => {label => 'Select', value => 'layout_id'}}, + ], + template => [ {template_id => {label => 'Template ID', link_field => 0}}, + {template_code => {label => 'Template Name', link_field => 0}}, + {template_desc => {label => 'Description', link_field => 0}}, + {select => {label => 'Select', value => 'template_id'}}, + ], + profile => [ {profile_id => {label => 'Profile ID', link_field => 0}}, + {printer_name => {label => 'Printer Name', link_field => 0}}, + {paper_bin => {label => 'Paper Bin', link_field => 0}}, + {_template_code => {label => 'Template Name', link_field => 0}}, # this display column does not have a corrisponding db column in the profile table, hence the underscore + {select => {label => 'Select', value => 'profile_id'}}, + ], + batch => [ {batch_id => {label => 'Batch ID', link_field => 0}}, + {_item_count => {label => 'Item Count', link_field => 0}}, + {select => {label => 'Select', value => 'batch_id'}}, + ], +}; + +my $errstr = ($cgi->param('error') ? $cgi->param('error') : ''); +my $branch_code = ($card_element eq 'batch' ? get_branch_code_from_name($template->param('LoginBranchname')) : ''); + +if ($op eq 'delete') { + my $err = 0; + if ($card_element eq 'layout') {$err = C4::Patroncards::Layout::delete(layout_id => $element_id);} + elsif ($card_element eq 'template') {$err = C4::Patroncards::Template::delete(template_id => $element_id);} + elsif ($card_element eq 'profile') {$err = C4::Patroncards::Profile::delete(profile_id => $element_id);} + elsif ($card_element eq 'batch') {$err = C4::Labels::Batch::delete(batch_id => $element_id, branch_code => $branch_code);} + else {warn sprintf("Unknown card element passed in for delete operation: %s.",$card_element); $errstr = 202;} + print $cgi->redirect("manage.pl?card_element=$card_element" . ($err ? "&error=102" : '')); + exit; +} +elsif ($op eq 'none') { + if ($card_element eq 'layout') {$db_rows = get_all_layouts(table_name => 'creator_layouts', filter => 'creator=\'Patroncards\'');} + elsif ($card_element eq 'template') {$db_rows = get_all_templates(table_name => 'creator_templates', filter => 'creator=\'Patroncards\'');} + elsif ($card_element eq 'profile') {$db_rows = get_all_profiles(table_name => 'printers_profile', filter => 'creator=\'Patroncards\'');} + elsif ($card_element eq 'batch') {$db_rows = get_batch_summary(filter => "branch_code=\'$branch_code\' OR branch_code=\'NB\'", creator => 'Patroncards');} + else {warn sprintf("Unknown card element passed in: %s.",$card_element); $errstr = 202;} +} +else { # trap unsupported operations here + warn sprintf('Manage interface called an unsupported operation: %s',$op); + print $cgi->redirect("manage.pl?card_element=$card_element&error=201"); + exit; +} + +my $table = html_table($display_columns->{$card_element}, $db_rows); + +$template->param(print => 1) if ($card_element eq 'batch'); +$template->param( + error => ($errstr ? 1 : 0), + $errstr => 1, +); +$template->param( + op => $op, + element_id => $element_id, + table_loop => $table, + card_element => $card_element, + card_element_title => ($card_element eq 'layout' ? 'Layouts' : + $card_element eq 'template' ? 'Templates' : + $card_element eq 'profile' ? 'Profiles' : + $card_element eq 'batch' ? 'Batches' : + '' + ), +); + +output_html_with_http_headers $cgi, $cookie, $template->output; -- 2.39.5