From 5f5415fc98a14f9c11320413f9c48daad670ea3d 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 Content-Type: text/plain; charset=utf-8 Signed-off-by: David Nind Signed-off-by: Marcel de Rooy --- 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.30.2