# 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
# 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
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use vars qw($debug);
-use Sys::Syslog qw(syslog);
-use Switch qw(Perl6);
use CGI;
-use HTML::Template::Pro;
use Data::Dumper;
-use C4::Auth;
-use C4::Output;
-use C4::Context;
-use autouse 'C4::Branch' => qw(get_branch_code_from_name);
-use C4::Debug;
-use C4::Labels::Lib 1.000000 qw(get_all_templates get_all_layouts get_all_profiles get_batch_summary get_barcode_types get_label_types get_column_names get_table_names SELECT);
-use C4::Labels::Layout 1.000000;
-use C4::Labels::Template 1.000000;
-use C4::Labels::Profile 1.000000;
-use C4::Labels::Batch 1.000000;
+use C4::Auth qw(get_template_and_user);
+use C4::Output qw(output_html_with_http_headers);
+use C4::Creators;
+use C4::Labels;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
}
);
-my $error = 0;
my $db_rows = {};
-my $display_columns = { layout => [ #db column => display column
- {layout_id => 'Layout ID'},
- {layout_name => 'Layout'},
- {barcode_type => 'Barcode Type'},
- {printing_type => 'Print Type'},
- {format_string => 'Fields to Print'},
- {select => {label => 'Select', value => 'layout_id'}},
+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}},
+ {barcode_type => {label => 'Barcode Type', link_field => 0}},
+ {printing_type => {label => 'Print Type', link_field => 0}},
+ {format_string => {label => 'Fields to Print',link_field => 0}},
+ {select => {label => 'Select', value => 'layout_id'}},
],
- template => [ {template_id => 'Template ID'},
- {template_code => 'Template Name'},
- {template_desc => 'Description'},
- {select => {label => 'Select', value => 'template_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 => 'Profile ID'},
- {printer_name => 'Printer Name'},
- {paper_bin => 'Paper Bin'},
- {_template_code => 'Template Name'}, # this display column does not have a corrisponding db column in the profile table, hence the underscore
- {select => {label => 'Select', value => 'profile_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 => 'Batch ID'},
- {_item_count => 'Item Count'},
- {select => {label => 'Select', value => 'batch_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 $label_element = $cgi->param('label_element') || $ARGV[0];
-my $op = $cgi->param('op') || $ARGV[1] || '';
-my $element_id = $cgi->param('element_id') || $ARGV[2] || '';
-my $branch_code = ($label_element eq 'batch' ? get_branch_code_from_name($template->param('LoginBranchname')) : '');
+my $label_element = $cgi->param('label_element') || 'template'; # default to template managment
+my $op = $cgi->param('op') || 'none';
+my $element_id = $cgi->param('element_id') || undef;
+my $error = $cgi->param('error') || 0;
-sub _build_table {
- my $headers = shift;
- my $data = shift;
- my $table = [];
- my $fields = [];
- my @db_columns = ();
- my ($row_index, $col_index) = (0,0);
- my $cols = 0; # number of columns to wrap on
- my $field_count = 0;
- POPULATE_HEADER:
- foreach my $db_column (@$headers) {
- my @key = keys %$db_column;
- push (@db_columns, $key[0]);
- $$fields[$col_index] = {select_field => 0, field_name => ($key[0]), field_label => $db_column->{$key[0]}};
- $field_count++;
- $col_index++;
- }
- $$table[$row_index] = {header_fields => $fields};
- $cols = $col_index;
- $field_count *= scalar(@$data); # total fields to be displayed in the table
- $col_index = 0;
- $row_index++;
- $fields = [];
- POPULATE_TABLE:
- foreach my $db_row (@$data) {
- my $element_id = 0;
- POPULATE_ROW:
- foreach my $db_column (@db_columns) {
- if (grep {$db_column eq $_} keys %$db_row) {
- $element_id = $db_row->{$db_column} if $db_column =~ m/id/;
- $$fields[$col_index] = {select_field => 0, field_name => ($db_column . "_tbl"), field_value => $db_row->{$db_column}};
- $col_index++;
- next POPULATE_ROW;
- }
- elsif ($db_column =~ m/^_((.*)_(.*$))/) { # this a special case
- my $table_name = get_table_names($2);
- my $record_set = SELECT($1, @$table_name[0], $2 . "_id = " . $db_row->{$2 . "_id"});
- $$fields[$col_index] = {select_field => 0, field_name => ($db_column . "_tbl"), field_value => $$record_set[0]{$1}};
- $col_index++;
- next POPULATE_ROW;
- }
- }
- $$fields[$col_index] = {select_field => 1, field_name => 'select', field_value => $element_id};
- $$table[$row_index] = {text_fields => $fields};
- $col_index = 0;
- $row_index++;
- $fields = [];
- }
- return $table;
-}
+my $branch_code = ($label_element eq 'batch' ? C4::Context->userenv->{'branch'} : '');
if ($op eq 'delete') {
- given ($label_element) {
- when 'layout' {$error = C4::Labels::Layout::delete(layout_id => $element_id); last;}
- when 'template' {$error = C4::Labels::Template::delete(template_id => $element_id); last;}
- when 'profile' {$error = C4::Labels::Profile::delete(profile_id => $element_id); last;}
- when 'batch' {$error = C4::Labels::Batch::delete(batch_id => $element_id, branch_code => $branch_code); last;}
- default {} # FIXME: Some error trapping code
- }
-# FIXME: this does not allow us to process any errors
-# print $cgi->redirect("label-manage.pl?label_element=$label_element");
-# exit;
+ if ($label_element eq 'layout') {$error = C4::Labels::Layout::delete(layout_id => $element_id);}
+ elsif ($label_element eq 'template') {$error = C4::Labels::Template::delete(template_id => $element_id);}
+ elsif ($label_element eq 'profile') {$error = C4::Labels::Profile::delete(profile_id => $element_id);}
+ elsif ($label_element eq 'batch') {$error = C4::Labels::Batch::delete(batch_id => $element_id, branch_code => $branch_code);}
+ else {} # FIXME: Some error trapping code
}
-given ($label_element) {
- when 'layout' {$db_rows = get_all_layouts();}
- when 'template' {$db_rows = get_all_templates();}
- when 'profile' {$db_rows = get_all_profiles();}
- when 'batch' {$db_rows = get_batch_summary(filter => "branch_code=\'$branch_code\'");}
- default {} # FIXME: Some error trapping code
-}
+if ($label_element eq 'layout') {$db_rows = get_all_layouts(table_name => 'creator_layouts', filter => 'creator=\'Labels\'');}
+elsif ($label_element eq 'template') {$db_rows = get_all_templates(table_name => 'creator_templates', filter => 'creator=\'Labels\'');}
+elsif ($label_element eq 'profile') {$db_rows = get_all_profiles(table_name => 'printers_profile', filter => 'creator=\'Labels\'');}
+elsif ($label_element eq 'batch') {$db_rows = get_batch_summary(filter => "branch_code=\'$branch_code\' OR branch_code=\'NB\'", creator => 'Labels');}
+else {} # FIXME: Some error trapping code
-my $table = _build_table($display_columns->{$label_element}, $db_rows);
+my $table = html_table($display_columns->{$label_element}, $db_rows);
-$template->param(error => $error) if ($error ne 0);
+$template->param(error => $error) if ($error) && ($error ne 0);
$template->param(print => 1) if ($label_element eq 'batch');
$template->param(
op => $op,
projects / koha.git / blobdiff