Bug 32437: Add Objects for ImportAuths

[koha-ffzg.git] / svc / return_claims

diff --git a/svc/return_claims b/svc/return_claims
index 2a616f0..726b756 100755 (executable)
--- a/svc/return_claims
+++ b/svc/return_claims
@@ -22,19 +22,21 @@ use Modern::Perl;
 use CGI;
 use JSON qw(to_json);
 
-use C4::Auth qw(check_cookie_auth haspermission get_session);
+use C4::Auth qw(check_cookie_auth haspermission);
 use C4::Context;
 
 use Koha::AuthorisedValues;
-use Koha::DateUtils;
+use Koha::DateUtils qw( dt_from_string output_pref );
 use Koha::Patrons;
 
 my $input = CGI->new;
 
-my ( $auth_status, $sessionID ) =
-  check_cookie_auth( $input->cookie('CGISESSID') );
+my ( $auth_status, $session ) = check_cookie_auth( $input->cookie('CGISESSID') );
+if( $auth_status ne 'ok' ) {
+    print CGI::header( '-status' => '401' );
+    exit 0;
+}
 
-my $session = get_session($sessionID);
 my $userid  = $session->param('id');
 
 unless (