Changeset 228

Timestamp:

04/10/06 11:38:51 (18 years ago)

Author:

nanardon

Message:

• add ORDA->archive() to return current archive

Location:

trunk/soft/ObsData

Files:

• ObsData/Repository.pm (modified) (2 diffs)
• ourplugins (added)
• ourplugins/cr_lid_lor.pl (added)

trunk/soft/ObsData/ObsData/Repository.pm

@@ -372 +372 @@
 }
 
+=head2 archive()
+
+Return the ObsData::Archive object handle by the object, load it if need.
+Return undef if failed.
+
+=cut
+
+sub archive {
+    my ($self) = @_;
+    if ($self->load_archive()) {
+        return $self->{Oarchive};
+    } else {
+        return undef;
+    }
+}
+
 =head2 getvalue($var, $default)
 
@@ -499 +515 @@
 sub list_archive {
     my ($self) = @_;
-    $self->load_archive or return;
-    
-    return $self->{Oarchive}->ls;
+    if (my $archive = $self->archive) {
+        return $archive->ls();
+    } else {
+        return undef;
+    }
 }