Changeset 28087 for main/trunk/greenstone2/perllib/buildcolutils.pm

Timestamp:

2013-08-19T23:35:28+12:00 (11 years ago)

Author:

davidb

Message:

Minor tweak to the formatting of the message produced about the RSS file generated by buildcol.pl

File:

• main/trunk/greenstone2/perllib/buildcolutils.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/buildcolutils.pm

@@ -27 +27 @@
 
 package buildcolutils;
+
+use File::Basename;
 
 use colcfg;
@@ -717 +719 @@
     if ($self->{'verbosity'} >= 1)
     {
-      &gsprintf::gsprintf($self->{'out'}, "{buildcol.copying_rss_items_rdf}\n");
+    my $archivedir_tail = "'".basename($self->{'archivedir'})."'";
+    my $builddir_tail =  "'".basename($self->{'builddir'})."'";
+
+    &gsprintf::gsprintf($self->{'out'}, "{buildcol.copying_rss_items_rdf}\n", $archivedir_tail, $builddir_tail);
     }
     &FileUtils::copyFiles($rss_items_rdf_file, $self->{'builddir'});