Changeset 187

Timestamp:

01/12/06 17:55:39 (18 years ago)

Author:

thauvin

Message:

• add list_archive_from_status()

Location:

trunk/soft/ObsData

Files:

• ObsData/Repository.pm (modified) (1 diff, 1 prop)
• t/OR-05.t (added)

trunk/soft/ObsData/ObsData/Repository.pm

@@ -224 +224 @@
     }
     @files
+}
+
+=head3 list_archive_from_status()
+
+Return the list of archive currently registered in status file.
+
+=cut
+
+sub list_archive_from_status {
+    my ($self) = @_;
+
+    grep { $_ ne '.' } $self->{status}->Sections
 }