| 
      
            Lines 40-46
          my ( $template, $loggedinuser, $cookie, $userflags ) = get_template_and_user(
      
      
        Link Here
      
     | 
  
        
          | 40 | 
          my $schema = Koha::Database->new()->schema();  | 
          40 | 
          my $schema = Koha::Database->new()->schema();  | 
        
        
          | 41 | 
          my $cmd    = $q->param('op'); | 
          41 | 
          my $cmd    = $q->param('op'); | 
        
        
          | 42 | 
          if ( $cmd && $cmd == 'delete' ) { | 
          42 | 
          if ( $cmd && $cmd == 'delete' ) { | 
        
          
            
              | 43 | 
                  my $id  = $q->param->('message_id'); | 
              43 | 
                  my $id  = $q->param('message_id'); | 
            
        
          | 44 | 
              my $msg = $schema->resultset('EdifactMessage')->find($id); | 
          44 | 
              my $msg = $schema->resultset('EdifactMessage')->find($id); | 
        
        
          | 45 | 
              $msg->deleted(1);  | 
          45 | 
              $msg->deleted(1);  | 
        
        
          | 46 | 
              $msg->update;  | 
          46 | 
              $msg->update;  | 
        
            
              | 47 | 
              -   | 
               | 
               |