[14/40] Work on batch management interface.

[koha.git] / labels / label-manage.pl

diff --git a/labels/label-manage.pl b/labels/label-manage.pl
index adabe53..3d155b0 100755 (executable)
--- a/labels/label-manage.pl
+++ b/labels/label-manage.pl
@@ -23,6 +23,7 @@ use warnings;
 use vars qw($debug);
 
 use Sys::Syslog qw(syslog);
+use Switch qw(Perl6);
 use CGI;
 use HTML::Template::Pro;
 use Data::Dumper;
@@ -30,11 +31,13 @@ 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_barcode_types get_label_types get_column_names get_table_names SELECT);
+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;
 
 my $cgi = new CGI;
 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
@@ -50,9 +53,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
 
 my $error = 0;
 my $db_rows = {};
-my $column_names = [];
-my $table_names = [];
-
 my $display_columns = { layout =>   [  #db column       => display column 
                                         {layout_id       => 'Layout ID'},
                                         {layout_name     => 'Layout'},
@@ -72,16 +72,20 @@ my $display_columns = { layout =>   [  #db column       => display column
                                         {_template_code  => 'Template Name'},     # this display column does not have a corrisponding db column in the profile table, hence the underscore
                                         {select          => 'Select'},
                                     ],
+                        batch =>    [   {batch_id        => 'Batch ID'},
+                                        {_item_count     => 'Item Count'},
+                                        {select          => 'Select'},
+                                    ],
 };
 
 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')) : '');
 
 sub _build_table {
     my $headers = shift;
     my $data = shift;
-    my $element = shift;
     my $table = [];
     my $fields = [];
     my @db_columns = ();
@@ -107,15 +111,18 @@ sub _build_table {
         my $element_id = 0;
         POPULATE_ROW:
         foreach my $db_column (@db_columns) {
-            if ($db_column =~ m/^_((.*)_(.*$))/) {
-                my $table_name = get_table_names($2);
-                my $record_set = SELECT($1, @$table_name[0], $2 . "_id = " . $db_row->{$2 . "_id"});
-                $db_row->{$db_column} = $$record_set[0]{$1};
-            }
             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};
@@ -128,20 +135,27 @@ sub _build_table {
 }
 
 if ($op eq 'delete') {
-    $error = C4::Labels::Layout::delete(layout_id => $element_id) if $label_element eq 'layout';
-    $error = C4::Labels::Template::delete(template_id => $element_id) if $label_element eq 'template';
-    $error = C4::Labels::Profile::delete(profile_id => $element_id) if $label_element eq 'profile';
+    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); last;}
+        default         {}      # FIXME: Some error trapping code 
+    }
 }
 
-$table_names = get_table_names($label_element);
-$column_names = get_column_names(@$table_names[0]);
-$db_rows = get_all_layouts() if $label_element eq 'layout';
-$db_rows = get_all_templates() if $label_element eq 'template';
-$db_rows = get_all_profiles() if $label_element eq 'profile';
+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
+}
 
-my $table = _build_table($display_columns->{$label_element}, $db_rows, $label_element);
+my $table = _build_table($display_columns->{$label_element}, $db_rows);
 
 $template->param(error => $error) if ($error ne 0);
+$template->param(print => 1) if ($label_element eq 'batch');
 $template->param(
                 op              => $op,
                 element_id      => $element_id,
@@ -149,7 +163,8 @@ $template->param(
                 label_element   => $label_element,
                 label_element_title     => ($label_element eq 'layout' ? 'Layouts' :
                                             $label_element eq 'template' ? 'Templates' :
-                                            $label_element eq  'profile' ? 'Profiles' :
+                                            $label_element eq 'profile' ? 'Profiles' :
+                                            $label_element eq 'batch' ? 'Batches' :
                                             ''
                                             ),
 );