Changeset 86


Ignore:
Timestamp:
12/01/05 13:03:49 (19 years ago)
Author:
thauvin
Message:
  • add global new and comment
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/soft/ObsData/ObsData/Repository.pm

    • Property cvs2svn:cvs-rev changed from 1.24 to 1.25
    r85 r86  
    3232 
    3333=cut 
     34 
     35sub new { 
     36    my ($class, $infos) = @_; 
     37 
     38    # $infos-> 
     39    # obsdata ObsData object 
     40    $infos->{obsdata} or die "Error #1de8d015, please insult programmer"; 
     41    # datatype search directly fot it 
     42    # obs station, informationnal only 
     43    # status Config::IniFile object to store extraction info 
     44     
     45    bless($infos, $class); 
     46} 
    3447 
    3548sub DESTROY { 
Note: See TracChangeset for help on using the changeset viewer.