Changeset 17668 for gsdl/trunk/perllib

Timestamp:

2008-11-04T06:44:19+13:00 (15 years ago)

Author:

kjdon

Message:

added a counter into the filenames for downloaded documents - sometimes thee may be two with the same file extension so we need to distinguish between them

File:

• gsdl/trunk/perllib/downloaders/OAIDownload.pm (modified) (2 diffs)

gsdl/trunk/perllib/downloaders/OAIDownload.pm

@@ -291 +291 @@
     my $strMetaTag = $1;
     my $had_valid_url = 0;
-
+    my $count = 1;
     while ($strMetaTag =~ s/<(dc:)?identifier>(.*?)<\/(dc:)?identifier>//is)
     {
@@ -396 +396 @@
 
         my $download_doc_filename = $oai_rec_filename;
-        $download_doc_filename =~ s/\.oai$/\.$id_file_ext/;
-
+        my $new_extension = "\-$count\.$id_file_ext";
+        $count++;
+        #$download_doc_filename =~ s/\.oai$/\.$id_file_ext/;
+        $download_doc_filename =~ s/\.oai$/$new_extension/;
         my ($unused,$download_doc_file) = $self->dirFileSplit($download_doc_filename);