From: Ben Shum <bshum@biblio.org>
Date: Tue, 2 Aug 2011 15:15:57 +0000 (-0400)
Subject: #LP801961, error when running edi_fetcher.pl
X-Git-Tag: sprint4-merge-nov22~5226
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=9dc177553046e2e704a3cd62a3c608c05c325abf;p=working%2FEvergreen.git

#LP801961, error when running edi_fetcher.pl

This patch addresses an error encountered when running edi_fetcher.pl.
The method "is_dir" should be just plain "dir" in RemoteAccount.pm file.
Signed-off-by: Ben Shum <bshum@biblio.org>

Signed-off-by: Mike Rylander <mrylander@gmail.com>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm b/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm
index d8c399ca62..164e227149 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Utils/RemoteAccount.pm
@@ -612,7 +612,7 @@ sub ls_ftp {   # returns full path like: dir/path/file.ext
             next;
         }
         if ($dirtarget and $dirtarget ne '.' and $dirtarget ne './' and
-            $self->_ftp->is_dir($dirtarget)) {
+            $self->_ftp->dir($dirtarget)) {
             foreach my $file (@part) {   # we ensure full(er) path
                 $file =~ /^$dirtarget\// and next;
                 $logger->debug("ls_ftp: prepending $dirtarget/ to $file");