Changeset 142
- Timestamp:
- 12/13/05 23:46:49 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/soft/ObsData/ObsData/Repository.pm
- Property cvs2svn:cvs-rev changed from 1.49 to 1.50
r141 r142 93 93 } 94 94 95 =head3 save_status 96 97 Save current information about parsed files into status file 98 99 =cut 100 101 sub save_status { 102 my ($self) = @_; 103 $self->{statusfile} or return; 95 =head3 update_global_status 96 97 Set standard information into status ini file 98 99 =cut 100 101 sub update_global_status { 102 my ($self) = @_; 104 103 $self->{status}->AddSection('.'); 105 104 $self->{status}->SetSectionComment('.', … … 131 130 'The current directory' 132 131 ); 133 134 $self->{status}->WriteConfig($self->{statusfile}) if(!$self->{dry_run}); 132 } 133 134 =head3 save_status 135 136 Save current information about parsed files into status file 137 138 =cut 139 140 sub save_status { 141 my ($self) = @_; 142 $self->{statusfile} or return; 143 if (!$self->{dry_run}) { 144 $self->update_global_status; 145 $self->{status}->WriteConfig($self->{statusfile}); 146 } 135 147 } 136 148
Note: See TracChangeset
for help on using the changeset viewer.