| 
      
            Lines 69-88
          else {
      
      
        Link Here
      
     | 
  
        
          | 69 | 
                  if ($change) { | 
          69 | 
                  if ($change) { | 
        
        
          | 70 | 
                      $schema->resultset('EdifactEan')->find($id)->update( | 
          70 | 
                      $schema->resultset('EdifactEan')->find($id)->update( | 
        
        
          | 71 | 
                          { | 
          71 | 
                          { | 
        
          
            
              | 72 | 
                                  branchcode        => $input->param('branchcode'), | 
              72 | 
                                  branchcode        => scalar $input->param('branchcode'), | 
            
            
              | 73 | 
                                  description       => $input->param('description'), | 
              73 | 
                                  description       => scalar $input->param('description'), | 
            
            
              | 74 | 
                                  ean               => $input->param('ean'), | 
              74 | 
                                  ean               => scalar $input->param('ean'), | 
            
            
              | 75 | 
                                  id_code_qualifier => $input->param('id_code_qualifier'), | 
              75 | 
                                  id_code_qualifier => scalar $input->param('id_code_qualifier'), | 
            
        
          | 76 | 
                          }  | 
          76 | 
                          }  | 
        
        
          | 77 | 
                      );  | 
          77 | 
                      );  | 
        
        
          | 78 | 
                  }  | 
          78 | 
                  }  | 
        
        
          | 79 | 
                  else { | 
          79 | 
                  else { | 
        
        
          | 80 | 
                      my $new_ean = $schema->resultset('EdifactEan')->new( | 
          80 | 
                      my $new_ean = $schema->resultset('EdifactEan')->new( | 
        
        
          | 81 | 
                          { | 
          81 | 
                          { | 
        
          
            
              | 82 | 
                                  branchcode        => $input->param('branchcode'), | 
              82 | 
                                  branchcode        => scalar $input->param('branchcode'), | 
            
            
              | 83 | 
                                  description       => $input->param('description'), | 
              83 | 
                                  description       => scalar $input->param('description'), | 
            
            
              | 84 | 
                                  ean               => $input->param('ean'), | 
              84 | 
                                  ean               => scalar $input->param('ean'), | 
            
            
              | 85 | 
                                  id_code_qualifier => $input->param('id_code_qualifier'), | 
              85 | 
                                  id_code_qualifier => scalar $input->param('id_code_qualifier'), | 
            
        
          | 86 | 
                          }  | 
          86 | 
                          }  | 
        
        
          | 87 | 
                      );  | 
          87 | 
                      );  | 
        
        
          | 88 | 
                      $new_ean->insert();  | 
          88 | 
                      $new_ean->insert();  | 
        
            
              | 89 | 
              -   | 
               | 
               |