version 1.12, 2006/05/26 15:37:14
|
version 1.13, 2006/05/30 20:05:10
|
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"; |
} |
} |