version 1.10, 2006/05/11 22:41:38
|
version 1.14, 2006/05/31 12:57:26
|
Line 166 use strict;
|
Line 166 use strict;
|
# |
# |
# Directory for retrieval of files listed in @$requests is: |
# Directory for retrieval of files listed in @$requests is: |
# /home/httpd/perl/tmp/addcourse/$dom/auto/pending if $context = auto |
# /home/httpd/perl/tmp/addcourse/$dom/auto/pending if $context = auto |
# /home/httpd/perl/tmp/addcourse/$dom/web/$udom_$uname if $context = web |
# /home/httpd/perl/tmp/addcourse/$dom/web/$uname_$udom/pending if $context = web |
# |
# |
# inputs (five) - requests - ref to array of filename(s) containing course requests |
# inputs (five) - requests - ref to array of filename(s) containing course requests |
# courseids - ref to hash to store LON-CAPA course ids of new courses |
# courseids - ref to hash to store LON-CAPA course ids of new courses |
Line 201 sub create_courses {
|
Line 201 sub create_courses {
|
$newcoursedir .= '/pending'; |
$newcoursedir .= '/pending'; |
} else { |
} else { |
if ($uname && $udom) { |
if ($uname && $udom) { |
$newcoursedir .= '/'.$udom.'_'.$uname; |
$newcoursedir .= '/'.$uname.'_'.$udom.'/pending'; |
} else { |
} else { |
$logmsg = "batchcreatecourse::create_courses() called without username and/or domain of requesting Domain Coordinator"; |
$logmsg = "batchcreatecourse::create_courses() called without username and/or domain of requesting Domain Coordinator"; |
} |
} |
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]); |