Changeset 208

Timestamp:

01/27/06 15:40:30 (18 years ago)

Author:

thauvin

Message:

• add function to collect real result

File:

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

trunk/soft/ObsData/ObsData.pm

@@ -53 +53 @@
         dry_run => $options{dry_run},
         interactive_callback => $options{interactive_callback},
+        processed_lists => [],
     };
 
@@ -335 +336 @@
 }
 
+sub processed {
+    my ($self, $obs, $archive, $datatype, $dest) = @_;
+    push(@{$self->{processed_lists}},
+        {
+            obs => $obs,
+            archive => $archive,
+            datatype => $datatype,
+            destfile => $dest,
+        }
+    );
+}
+
 1;