| 
      
            Lines 37-48
          my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
      
      
        Link Here
      
     | 
  
        
          | 37 | 
          );  | 
          37 | 
          );  | 
        
        
          | 38 | 
           | 
          38 | 
           | 
        
        
          | 39 | 
          my $schema = Koha::Database->new()->schema();  | 
          39 | 
          my $schema = Koha::Database->new()->schema();  | 
        
          
            
              | 40 | 
              my $op     = $input->param('op'); | 
              40 | 
               | 
            
            
              | 41 | 
              $op ||= 'display';  | 
              41 | 
              my $id = scalar $input->param('id'); | 
            
            
               | 
               | 
              42 | 
              my $op = scalar $input->param('op') || 'display'; | 
            
        
          | 42 | 
           | 
          43 | 
           | 
        
        
          | 43 | 
          if ( $op eq 'ean_form' ) { | 
          44 | 
          if ( $op eq 'ean_form' ) { | 
        
          
            
              | 44 | 
                  show_ean();  | 
              45 | 
                  my $e        = $schema->resultset('EdifactEan')->find($id); | 
            
            
              | 45 | 
                  $template->param( ean_form => 1 );  | 
               | 
               | 
            
        
          | 46 | 
              my @branches = $schema->resultset('Branch')->search( | 
          46 | 
              my @branches = $schema->resultset('Branch')->search( | 
        
        
          | 47 | 
                  undef,  | 
          47 | 
                  undef,  | 
        
        
          | 48 | 
                  { | 
          48 | 
                  { | 
        
  
    | 
      
            Lines 50-73
          if ( $op eq 'ean_form' ) {
      
      
        Link Here
      
     | 
  
        
          | 50 | 
                      order_by => 'branchname',  | 
          50 | 
                      order_by => 'branchname',  | 
        
        
          | 51 | 
                  }  | 
          51 | 
                  }  | 
        
        
          | 52 | 
              );  | 
          52 | 
              );  | 
        
          
            
              | 53 | 
                  $template->param( branches => \@branches );  | 
              53 | 
                  $template->param(  | 
            
            
               | 
               | 
              54 | 
                      ean_form => 1,  | 
            
            
              | 55 | 
                      branches => \@branches,  | 
            
            
              | 56 | 
                      ean      => $e,  | 
            
            
              | 57 | 
                  );  | 
            
        
          | 54 | 
          }  | 
          58 | 
          }  | 
        
        
          | 55 | 
          elsif ( $op eq 'delete_confirm' ) { | 
          59 | 
          elsif ( $op eq 'delete_confirm' ) { | 
        
          
            
              | 56 | 
                  show_ean();  | 
              60 | 
                  my $e = $schema->resultset('EdifactEan')->find($id); | 
            
            
              | 57 | 
                  $template->param( delete_confirm => 1 );  | 
              61 | 
                  $template->param(  | 
            
            
               | 
               | 
              62 | 
                      delete_confirm => 1,  | 
            
            
              | 63 | 
                      ean            => $e,  | 
            
            
              | 64 | 
                  );  | 
            
        
          | 58 | 
          }  | 
          65 | 
          }  | 
        
        
          | 59 | 
          else { | 
          66 | 
          else { | 
        
        
          | 60 | 
              if ( $op eq 'save' ) { | 
          67 | 
              if ( $op eq 'save' ) { | 
        
          
            
              | 61 | 
                      my $change = $input->param('id'); | 
              68 | 
                      my $change = $id;  | 
            
        
          | 62 | 
                  if ($change) { | 
          69 | 
                  if ($change) { | 
        
          
            
              | 63 | 
                          editsubmit();  | 
              70 | 
                          $schema->resultset('EdifactEan')->find($id)->update( | 
            
            
               | 
               | 
              71 | 
                              { | 
            
            
              | 72 | 
                                  branchcode        => $input->param('branchcode'), | 
            
            
              | 73 | 
                                  description       => $input->param('description'), | 
            
            
              | 74 | 
                                  ean               => $input->param('ean'), | 
            
            
              | 75 | 
                                  id_code_qualifier => $input->param('id_code_qualifier'), | 
            
            
              | 76 | 
                              }  | 
            
            
              | 77 | 
                          );  | 
            
        
          | 64 | 
                  }  | 
          78 | 
                  }  | 
        
        
          | 65 | 
                  else { | 
          79 | 
                  else { | 
        
          
            
              | 66 | 
                          addsubmit();  | 
              80 | 
                          my $new_ean = $schema->resultset('EdifactEan')->new( | 
            
            
               | 
               | 
              81 | 
                              { | 
            
            
              | 82 | 
                                  branchcode        => $input->param('branchcode'), | 
            
            
              | 83 | 
                                  description       => $input->param('description'), | 
            
            
              | 84 | 
                                  ean               => $input->param('ean'), | 
            
            
              | 85 | 
                                  id_code_qualifier => $input->param('id_code_qualifier'), | 
            
            
              | 86 | 
                              }  | 
            
            
              | 87 | 
                          );  | 
            
            
              | 88 | 
                          $new_ean->insert();  | 
            
        
          | 67 | 
                  }  | 
          89 | 
                  }  | 
        
        
          | 68 | 
              }  | 
          90 | 
              }  | 
        
        
          | 69 | 
              elsif ( $op eq 'delete_confirmed' ) { | 
          91 | 
              elsif ( $op eq 'delete_confirmed' ) { | 
        
          
            
              | 70 | 
                      delsubmit();  | 
              92 | 
                      my $e = $schema->resultset('EdifactEan')->find($id); | 
            
            
               | 
               | 
              93 | 
                      $e->delete if $e;  | 
            
        
          | 71 | 
              }  | 
          94 | 
              }  | 
        
        
          | 72 | 
              my @eans = $schema->resultset('EdifactEan')->search( | 
          95 | 
              my @eans = $schema->resultset('EdifactEan')->search( | 
        
        
          | 73 | 
                  {}, | 
          96 | 
                  {}, | 
        
  
    | 
      
            Lines 101-143
          $template->param(
      
      
        Link Here
      
     | 
  
        
          | 101 | 
          );  | 
          124 | 
          );  | 
        
        
          | 102 | 
           | 
          125 | 
           | 
        
        
          | 103 | 
          output_html_with_http_headers( $input, $cookie, $template->output );  | 
          126 | 
          output_html_with_http_headers( $input, $cookie, $template->output );  | 
        
            
              | 104 | 
               | 
               | 
               | 
            
            
              | 105 | 
              sub delsubmit { | 
            
            
              | 106 | 
                  my $id = $input->param('id'); | 
            
            
              | 107 | 
                  my $e = $schema->resultset('EdifactEan')->find( $id ); | 
            
            
              | 108 | 
                  $e->delete if $e;  | 
            
            
              | 109 | 
                  return;  | 
            
            
              | 110 | 
              }  | 
            
            
              | 111 | 
               | 
            
            
              | 112 | 
              sub addsubmit { | 
            
            
              | 113 | 
               | 
            
            
              | 114 | 
                  my $new_ean = $schema->resultset('EdifactEan')->new( | 
            
            
              | 115 | 
                      { | 
            
            
              | 116 | 
                          branchcode        => $input->param('branchcode'), | 
            
            
              | 117 | 
                          description       => $input->param('description'), | 
            
            
              | 118 | 
                          ean               => $input->param('ean'), | 
            
            
              | 119 | 
                          id_code_qualifier => $input->param('id_code_qualifier'), | 
            
            
              | 120 | 
                      }  | 
            
            
              | 121 | 
                  );  | 
            
            
              | 122 | 
                  $new_ean->insert();  | 
            
            
              | 123 | 
                  return;  | 
            
            
              | 124 | 
              }  | 
            
            
              | 125 | 
               | 
            
            
              | 126 | 
              sub editsubmit { | 
            
            
              | 127 | 
                  $schema->resultset('EdifactEan')->find( $input->param('id') )->update( | 
            
            
              | 128 | 
                      { | 
            
            
              | 129 | 
                          branchcode        => $input->param('branchcode'), | 
            
            
              | 130 | 
                          description       => $input->param('description'), | 
            
            
              | 131 | 
                          ean               => $input->param('ean'), | 
            
            
              | 132 | 
                          id_code_qualifier => $input->param('id_code_qualifier'), | 
            
            
              | 133 | 
                      }  | 
            
            
              | 134 | 
                  );  | 
            
            
              | 135 | 
                  return;  | 
            
            
              | 136 | 
              }  | 
            
            
              | 137 | 
               | 
            
            
              | 138 | 
              sub show_ean { | 
            
            
              | 139 | 
                  my $id = $input->param('id'); | 
            
            
              | 140 | 
                  my $e = $schema->resultset('EdifactEan')->find( $id ); | 
            
            
              | 141 | 
                  $template->param( ean => $e );  | 
            
            
              | 142 | 
                  return;  | 
            
            
              | 143 | 
              }  | 
            
            
              | 144 | 
              -   |