| Lines 24-30
          use Modern::Perl;
      
      
        Link Here | 
        
          | 24 | use CGI qw ( -utf8 ); | 24 | use CGI qw ( -utf8 ); | 
        
          | 25 | use C4::Auth qw( get_template_and_user ); | 25 | use C4::Auth qw( get_template_and_user ); | 
        
          | 26 | use C4::Output qw( output_html_with_http_headers ); | 26 | use C4::Output qw( output_html_with_http_headers ); | 
            
              | 27 | use C4::Items qw( MoveItemFromBiblio ); |  |  | 
        
          | 28 | use C4::Context; | 27 | use C4::Context; | 
        
          | 29 | use C4::ClassSource; | 28 | use C4::ClassSource; | 
        
          | 30 | use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/; | 29 | use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/; | 
            
              | 31 | -  |  |  |