Changeset 93 for trunk

Timestamp:

12/02/05 14:31:03 (19 years ago)

Author:

thauvin

Message:

• fix undef data, aka use proper value
• use new function

File:

• trunk/soft/ObsData/ObsData/Repository.pm (modified) (2 diffs, 1 prop)

trunk/soft/ObsData/ObsData/Repository.pm

@@ -313 +313 @@
     $self->loging(0, "%s/%s file, datatype %s, destination %s",
         $self->{archivefile},
-        $self->{datafile},
+        $datafile,
         $t || '(none)',
         $d || '(none)',
@@ -402 +402 @@
     }
 
-    if ($self->file_need_parse) {
-        if (!$self->parse_archive) {
-            return 0;
-        }
-    }
-
+    foreach my $data ($self->list_archive) {
+        $self->extract_data($data, $self->get_data_dest($data));
+    }
+    
     $self->update_status;