Changeset 83

Timestamp:

11/30/05 17:48:25 (19 years ago)

Author:

thauvin

Message:

• add set_status

Location:

trunk/soft/ObsData

Files:

• ObsData.pm (modified) (1 diff, 1 prop)
• ObsData/Repository.pm (modified) (1 diff, 1 prop)

trunk/soft/ObsData/ObsData.pm

@@ -68 +68 @@
         close($self->{loghandle});
         $self->{loghandle} = undef;
+    }
+}
+
+sub set_status {
+    my ($self, %settings) = @_;
+    my %status_default = (
+        archive_new => 1,
+        archive_time => 0,
+        archive_size => 0,
+
+        data_new => 1,
+        data_configmtime => 0,
+
+    );
+    
+    foreach (keys %status_default) {
+        $self->{status_make_work}{$_} = defined($settings{$_}) ? $settings{$_} : $status_default{$_};
     }
 }

trunk/soft/ObsData/ObsData/Repository.pm

@@ -99 +99 @@
 
 our @ISA = qw(ObsData::Repository);
-
-my $status_default = {
-    archive_new => 1,
-    archive_time => 0,
-    archive_size => 0,
-
-    data_new => 1,
-    data_configmtime => 0,
-    
-};
 
 sub new {