Changeset 18463 for gsdl/trunk/perllib/plugouts/DSpacePlugout.pm

Timestamp:

2009-02-05T10:06:24+13:00 (15 years ago)

Author:

davidb

Message:

Warning about file copying in event that a hard link operation is not supported altered to only appear if verbosity > 2

File:

• gsdl/trunk/perllib/plugouts/DSpacePlugout.pm (modified) (2 diffs)

gsdl/trunk/perllib/plugouts/DSpacePlugout.pm

@@ -165 +165 @@
     
     $filename = &util::filename_cat($working_dir, $tail_filename);
-    &util::hard_link ($source_filename, $filename);
+    &util::hard_link ($source_filename, $filename, $self->{'verbosity'});
              
     # set the assocfile path (even if we have no assoc files - need this for lucene)
@@ -199 +199 @@
         
         
-        &util::hard_link ($real_filename, $filename);
+        &util::hard_link ($real_filename, $filename, $self->{'verbosity'});
         
         $doc_obj->add_utf8_metadata ($doc_obj->get_top_section(),