Changeset 142

Timestamp:

12/13/05 23:46:49 (18 years ago)

Author:

thauvin

Message:

• split save_status()

File:

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

trunk/soft/ObsData/ObsData/Repository.pm

@@ -93 +93 @@
 }
 
-=head3 save_status
-
-Save current information about parsed files into status file
-
-=cut
-
-sub save_status {
-    my ($self) = @_;
-    $self->{statusfile} or return;
+=head3 update_global_status
+
+Set standard information into status ini file
+
+=cut
+
+sub update_global_status {
+    my ($self) = @_;
     $self->{status}->AddSection('.');
     $self->{status}->SetSectionComment('.',
@@ -131 +130 @@
         'The current directory'
     );
-   
-    $self->{status}->WriteConfig($self->{statusfile}) if(!$self->{dry_run});
+}
+
+=head3 save_status
+
+Save current information about parsed files into status file
+
+=cut
+
+sub save_status {
+    my ($self) = @_;
+    $self->{statusfile} or return;
+    if (!$self->{dry_run}) {
+        $self->update_global_status;
+        $self->{status}->WriteConfig($self->{statusfile});
+    }
 }