- foreach my $i (map { /stime(\d+)/ } keys(%vars)) {
- my $stime = str2wtime($vars{"stime$i"});
- my $etime = str2wtime($vars{"etime$i"});
- next if !defined($stime) or !defined($etime);
- #warn "$i: $stime-$etime";
+ foreach my $i (map { /^sd(\d+)$/ } keys(%vars)) {
+ my $stime = l2wtime(@vars{"sd$i", "sh$i", "sm$i", "sa$i"});
+ my $etime = l2wtime(@vars{"ed$i", "eh$i", "em$i", "ea$i"});
+ #warn "$i: $stime - $etime";
+ next if !defined($stime) or !defined($etime) or $etime == $stime;