version 1.55, 2004/05/04 20:43:21
|
version 1.57, 2004/05/11 06:02:58
|
Line 42 use localenroll;
|
Line 42 use localenroll;
|
|
|
# ================================================ Get course directory listing |
# ================================================ Get course directory listing |
|
|
|
#FIXME - doesn't support directories under /userfiles/ BUG#2999 |
sub crsdirlist { |
sub crsdirlist { |
my ($courseid,$which)=@_; |
my ($courseid,$which)=@_; |
unless ($which) { $which=''; } |
unless ($which) { $which=''; } |
Line 51 sub crsdirlist {
|
Line 52 sub crsdirlist {
|
&Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'})); |
&Apache::loncommon::propath($crsdata{'domain'},$crsdata{'num'})); |
my @output=(); |
my @output=(); |
foreach (@listing) { |
foreach (@listing) { |
|
#FIXME if list is a DIR need to recurse |
unless ($_=~/^\./) { |
unless ($_=~/^\./) { |
push (@output,(split(/\&/,$_))[0]); |
push (@output,(split(/\&/,$_))[0]); |
} |
} |
Line 286 sub print_course_creation_page {
|
Line 288 sub print_course_creation_page {
|
'dsuc' => "Disable student use of chatrooms", |
'dsuc' => "Disable student use of chatrooms", |
'acco' => "Access Control", |
'acco' => "Access Control", |
'snak' => "Students need access key to enter course", |
'snak' => "Students need access key to enter course", |
|
'kaut' => |
|
'Key authority (<tt>id@domain</tt>) if other than course', |
'cc' => "Course Coordinator", |
'cc' => "Course Coordinator", |
'user' => "Username", |
'user' => "Username", |
'ierc' => "Immediately expire own role as Course Coordinator", |
'ierc' => "Immediately expire own role as Course Coordinator", |
Line 411 $lt{'asov'}.
|
Line 415 $lt{'asov'}.
|
<h2>$lt{'acco'}</h2> |
<h2>$lt{'acco'}</h2> |
<p> |
<p> |
<b>$lt{'snak'}: </b> |
<b>$lt{'snak'}: </b> |
<input type="checkbox" name="setkeys" /> |
<input type="checkbox" name="setkeys" /><br /> |
|
<b>$lt{'kaut'}: </b> |
|
<input type="text" size="30" name="keyauth" /> |
</p> |
</p> |
<h2>$lt{'rshm'}</h2> |
<h2>$lt{'rshm'}</h2> |
<p> |
<p> |
Line 678 ENDENHEAD
|
Line 684 ENDENHEAD
|
$cenv{'reshome'}=$ENV{'form.reshome'}.'/'; |
$cenv{'reshome'}=$ENV{'form.reshome'}.'/'; |
$cenv{'reshome'}=~s/\/+$/\//; |
$cenv{'reshome'}=~s/\/+$/\//; |
} |
} |
|
# |
|
# course has keyed access |
|
# |
if ($ENV{'form.setkeys'}) { |
if ($ENV{'form.setkeys'}) { |
$cenv{'keyaccess'}='yes'; |
$cenv{'keyaccess'}='yes'; |
} |
} |
|
# if specified, key authority is not course, but user |
|
# only active if keyaccess is yes |
|
if ($ENV{'form.keyauth'}) { |
|
$ENV{'form.keyauth'}=~s/[^\w\@]//g; |
|
if ($ENV{'form.keyauth'}) { |
|
$cenv{'keyauth'}=$ENV{'form.keyauth'}; |
|
} |
|
} |
|
|
if ($ENV{'form.disresdis'}) { |
if ($ENV{'form.disresdis'}) { |
$cenv{'pch.roles.denied'}='st'; |
$cenv{'pch.roles.denied'}='st'; |
} |
} |