loncom/automation/batchcreatecourse.pm - diff

Return to batchcreatecourse.pm CVS log

Up to [LON-CAPA] / loncom / automation

version 1.11, 2006/05/23 18:34:40	version 1.12, 2006/05/26 15:37:14
Line 629 sub process_date {	Line 629 sub process_date {
if ($timestr !~ /:/) {	if ($timestr !~ /:/) {
$timestamp = '';	$timestamp = '';
} else {	} else {
my @entries = split/:/,$timestr;	my @entries = split(/:/,$timestr);
for (my $j=0; $j<@entries; $j++) {	for (my $j=0; $j<@entries; $j++) {
if ( length($entries[$j]) > 1 ) {	if ( length($entries[$j]) > 1 ) {
$entries[$j] =~ s/^0//;	$entries[$j] =~ s/^0//;
Line 668 sub process_date {	Line 668 sub process_date {
$entries[2] = 29;	$entries[2] = 29;
}	}
if ($entries[2] == 29) {	if ($entries[2] == 29) {
unless ($entries[0]%4 == 0) {	if ($entries[0]%4 != 0) {
$entries[2] == 28;	$entries[2] == 28;
}	} elsif ( $entries[0]%100 == 0
	&& $entries[0]%400 != 0) {
	$entries[2] == 28;
	}
}	}
}	}
$timestamp = timelocal($entries[5],$entries[4],$entries[3],$entries[2],$entries[1],$entries[0]);	$timestamp = timelocal($entries[5],$entries[4],$entries[3],$entries[2],$entries[1],$entries[0]);