comparison lib/hr.pm @ 2:23970530a518 draft

master branch Updating with tag :CI_COMMIT_TAG - - Fxx
author fgiacomoni
date Tue, 17 Jan 2023 10:31:32 +0000
parents e2cbcf6fa22e
children 78afd7f439f3
comparison
equal deleted inserted replaced
1:e2cbcf6fa22e 2:23970530a518
75 else { print "*** $atom not recognized***\n" ; } 75 else { print "*** $atom not recognized***\n" ; }
76 } 76 }
77 77
78 # suppl. atoms case 78 # suppl. atoms case
79 foreach my $atom ( (split(",", $atomsupp )) ) { 79 foreach my $atom ( (split(",", $atomsupp )) ) {
80 print "*** $atom***\n" ; 80 #print "*** $atom***\n" ;
81 if ( exists $atomsconfig->{$atom} ) { $atomsconfig->{$atom}{'max'} = $CONF->{'DEFAULT_MAX'} ; } 81 if ( exists $atomsconfig->{$atom} ) { $atomsconfig->{$atom}{'max'} = $CONF->{'DEFAULT_MAX'} ; }
82 else { print "*** $atom not recognized***\n" ; } 82 else { print "*** $atom not recognized***\n" ; }
83 83
84 } 84 }
85 85