| 
      
            Lines 1-6
          
      
      
        Link Here
      
     | 
  
        
          | 1 | 
          package C4::HTML5Media;  | 
          1 | 
          package C4::HTML5Media;  | 
        
        
          | 2 | 
           | 
          2 | 
           | 
        
          
            
              | 3 | 
              # Copyright 2012 Mirko Tietgen  | 
              3 | 
              # Copyright 2012/2015 Mirko Tietgen  | 
            
        
          | 4 | 
          #  | 
          4 | 
          #  | 
        
        
          | 5 | 
          # This file is part of Koha.  | 
          5 | 
          # This file is part of Koha.  | 
        
        
          | 6 | 
          #  | 
          6 | 
          #  | 
        
  
    | 
      
            Lines 22-28
          use warnings;
      
      
        Link Here
      
     | 
  
        
          | 22 | 
           | 
          22 | 
           | 
        
        
          | 23 | 
          use C4::Context;  | 
          23 | 
          use C4::Context;  | 
        
        
          | 24 | 
          use MARC::Field;  | 
          24 | 
          use MARC::Field;  | 
        
          
            
              | 25 | 
               | 
              25 | 
              use Koha::Upload;  | 
            
        
          | 26 | 
           | 
          26 | 
           | 
        
        
          | 27 | 
          =head1 HTML5Media  | 
          27 | 
          =head1 HTML5Media  | 
        
        
          | 28 | 
           | 
          28 | 
           | 
        
  
    | 
      
            Lines 109-115
          sub gethtml5media {
      
      
        Link Here
      
     | 
  
        
          | 109 | 
                      next; # no file to play  | 
          109 | 
                      next; # no file to play  | 
        
        
          | 110 | 
                  }  | 
          110 | 
                  }  | 
        
        
          | 111 | 
                  # extension  | 
          111 | 
                  # extension  | 
        
          
            
              | 112 | 
                      $HTML5Media{extension} = ($HTML5Media{srcblock} =~ m/([^.]+)$/)[0]; | 
              112 | 
                      # check uploaded files  | 
            
            
               | 
               | 
              113 | 
                      if ( $HTML5Media{srcblock} =~ /\Qopac-retrieve-file.pl\E/ ) { | 
            
            
              | 114 | 
                          $HTML5Media{extension} = (Koha::Upload->new->get({ hashvalue => (split(/id=/, $HTML5Media{srcblock}))[1] })->{name} =~ m/([^.]+)$/)[0]; | 
            
            
              | 115 | 
                      }  | 
            
            
              | 116 | 
                      # check remote files  | 
            
            
              | 117 | 
                      else { | 
            
            
              | 118 | 
                          $HTML5Media{extension} = ($HTML5Media{srcblock} =~ m/([^.]+)$/)[0]; | 
            
            
              | 119 | 
                      }  | 
            
        
          | 113 | 
                  if ( !grep /\Q$HTML5Media{extension}\E/, @HTML5MediaExtensions ) { | 
          120 | 
                  if ( !grep /\Q$HTML5Media{extension}\E/, @HTML5MediaExtensions ) { | 
        
        
          | 114 | 
                      next; # not a specified media file  | 
          121 | 
                      next; # not a specified media file  | 
        
        
          | 115 | 
                  }  | 
          122 | 
                  }  | 
        
            
              | 116 | 
              -   | 
               | 
               |