Changeset 64
- Timestamp:
- 11/28/05 13:07:35 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/soft/ObsData/ObsData.pm
- Property cvs2svn:cvs-rev changed from 1.19 to 1.20
r62 r64 286 286 my @destarg = split(/\s+/, $self->getvalue($datatype, 'destarg')); 287 287 my @gmtime = gmtime; 288 my %val = map { '%' . $_ => strftime('%' . $_, @gmtime) } 289 qw(a A b B c C d D e F G g h H I j k l m M n p P r R s S T t T U V W w x X y Y z Z); 288 my %val; 290 289 foreach (@matcharg) { 291 290 $val{$_} = shift(@data); … … 293 292 return ($datatype, sprintf( 294 293 $dest, 295 map { $val{$_} } @destarg,294 map { m/^%/ ? strftime($_, @gmtime) : $val{$_} } @destarg, 296 295 )); 297 296 }
Note: See TracChangeset
for help on using the changeset viewer.