Bug 30813: Adjust TransformMarcToKoha to take kohafields parameter

[koha-ffzg.git] / C4 / Service.pm

diff --git a/C4/Service.pm b/C4/Service.pm
index fa95a61..c50051d 100644 (file)
--- a/C4/Service.pm
+++ b/C4/Service.pm
@@ -43,16 +43,10 @@ use warnings;
 
 use CGI qw ( -utf8 );
 use C4::Auth qw( check_api_auth );
-use C4::Output qw( :ajax );
+use C4::Output qw( output_with_http_headers );
 use C4::Output::JSONStream;
 use JSON;
 
-our $debug;
-
-BEGIN {
-    $debug = $ENV{DEBUG} || 0;
-}
-
 our ( $query, $cookie );
 
 sub _output {
@@ -86,7 +80,7 @@ passed to C<return_success()>.
 sub init {
     my ( $class, %needed_flags ) = @_;
 
-    our $query = new CGI;
+    our $query = CGI->new;
 
     my ( $status, $cookie_, $sessionID ) = check_api_auth( $query, \%needed_flags );
 
@@ -94,7 +88,7 @@ sub init {
 
     $class->return_error( 'auth', $status ) if ( $status ne 'ok' );
 
-    return ( $query, new C4::Output::JSONStream );
+    return ( $query, C4::Output::JSONStream->new );
 }
 
 =head2 return_error
@@ -119,7 +113,7 @@ param => value pairs.
 sub return_error {
     my ( $class, $type, $error, %flags ) = @_;
 
-    my $response = new C4::Output::JSONStream;
+    my $response = C4::Output::JSONStream->new;
 
     $response->param( message => $error ) if ( $error );
     $response->param( type => $type, %flags );
@@ -152,7 +146,7 @@ structure verbatim.
 sub return_multi {
     my ( $class, $responses, @flags ) = @_;
 
-    my $response = new C4::Output::JSONStream;
+    my $response = C4::Output::JSONStream->new;
 
     if ( !@$responses ) {
         $class->return_success( $response );
@@ -257,7 +251,6 @@ sub dispatch {
             next ROUTE if ( !defined( $query->param ( $param ) ) );
         }
 
-        $debug and warn "Using $path";
         $handler->( @match );
         return;
     }