From 1cc06ccad10770d2cccc5aeabeb9ae9949a914b1 Mon Sep 17 00:00:00 2001 From: Emily Lamancusa Date: Fri, 16 May 2025 16:14:22 -0400 Subject: [PATCH] Bug 39904: (QA follow-up) Fix a few other cases Signed-off-by: Emily Lamancusa --- Koha/Edifact/Transport.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Koha/Edifact/Transport.pm b/Koha/Edifact/Transport.pm index 72979924ba..ec59ae4110 100644 --- a/Koha/Edifact/Transport.pm +++ b/Koha/Edifact/Transport.pm @@ -233,7 +233,7 @@ sub ftp_download { "Cannot connect to " . $self->{account}->host . ": $EVAL_ERROR" ); $ftp->login( $self->{account}->username, Koha::Encryption->new->decrypt_hex( $self->{account}->password ) ) - or return $self->_abort_download( $ftp, "Cannot login: $ftp->message()" ); + or return $self->_abort_download( $ftp, "Cannot login: " . $ftp->message() ); $ftp->cwd( $self->{account}->download_directory ) or return $self->_abort_download( $ftp, @@ -249,7 +249,7 @@ sub ftp_download { if ( !$ftp->get( $filename, "$self->{working_dir}/$filename" ) ) { $self->_abort_download( $ftp, - "Error retrieving $filename: $ftp->message" + "Error retrieving $filename: " . $ftp->message ); last; } @@ -281,7 +281,7 @@ sub ftp_upload { "Cannot connect to " . $self->{account}->host . ": $EVAL_ERROR" ); $ftp->login( $self->{account}->username, Koha::Encryption->new->decrypt_hex( $self->{account}->password ) ) - or return $self->_abort_download( $ftp, "Cannot login: $ftp->message()" ); + or return $self->_abort_download( $ftp, "Cannot login: " . $ftp->message() ); $ftp->cwd( $self->{account}->upload_directory ) or return $self->_abort_download( $ftp, @@ -361,7 +361,7 @@ sub file_upload { $m->status('sent'); $m->update; } else { - carp "Could not transfer $m->filename : $ERRNO"; + carp "Could not transfer " . $m->filename . " : $ERRNO"; next; } } -- 2.34.1