From b2fcb1a8754446d5324013aff78f2d7cd1aab584 Mon Sep 17 00:00:00 2001 From: David Cook Date: Fri, 2 Aug 2024 02:02:10 +0000 Subject: [PATCH] Bug 37553: Tidy to make QA tools happy Signed-off-by: David Nind Signed-off-by: Marcel de Rooy Signed-off-by: Katrin Fischer (cherry picked from commit 1a747ddcb7645b7eb3bdb042175ff798339e7135) Signed-off-by: Lucas Gass --- misc/migration_tools/koha-svc.pl | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/misc/migration_tools/koha-svc.pl b/misc/migration_tools/koha-svc.pl index 929380fa87..396f9e73ea 100755 --- a/misc/migration_tools/koha-svc.pl +++ b/misc/migration_tools/koha-svc.pl @@ -95,15 +95,15 @@ Specified user must have C permission. sub new { my $class = shift; - my $self = {@_}; + my $self = {@_}; bless $self, $class; - my $url = $self->{url} || die "no url found"; - my $user = $self->{user} || die "no user specified"; + my $url = $self->{url} || die "no url found"; + my $user = $self->{user} || die "no user specified"; my $password = $self->{password} || die "no password"; my $ua = LWP::UserAgent->new(); - $ua->cookie_jar({}); + $ua->cookie_jar( {} ); my $get_resp = $ua->get("$url/authentication"); my $csrf_token = $get_resp->header('CSRF-TOKEN'); @@ -149,11 +149,11 @@ sub get { =cut sub post { - my ($self,$biblionumber,$marcxml) = @_; + my ( $self, $biblionumber, $marcxml ) = @_; my $url = $self->{url}; warn "# post $url/bib/$biblionumber\n" if $self->{debug}; my $csrf_token = $self->{csrf_token}; - my $resp = $self->{ua}->post( + my $resp = $self->{ua}->post( "$url/bib/$biblionumber", 'Content_type' => 'text/xml', 'Csrf_Token' => $csrf_token, -- 2.39.5