version 1.41, 2009/08/19 18:43:31
|
version 1.42, 2009/10/31 17:55:01
|
Line 92 sub update_LC {
|
Line 92 sub update_LC {
|
open(FILE,"<$$configvars{'lonTabDir'}.'/rolesplain.tab"); |
open(FILE,"<$$configvars{'lonTabDir'}.'/rolesplain.tab"); |
my @rolesplain = <FILE>; |
my @rolesplain = <FILE>; |
close(FILE); |
close(FILE); |
foreach (@rolesplain) { |
foreach my $item (@rolesplain) { |
if ($_ =~ /^(st|ta|ex|ad|in|cc):([\w\s]+)$/) { |
if ($_ =~ /^(st|ta|ex|ad|in|cc|co):([\w\s]+):?([\w\s]*)/) { |
$longroles{$1} = $2; |
if ($courseinfo{'type'} eq 'Community') { |
|
unless($1 eq 'cc') { |
|
$longroles{$1} = $3; |
|
} |
|
} else { |
|
unless($1 eq 'co') { |
|
$longroles{$1} = $2; |
|
} |
|
} |
} |
} |
} |
} |
|
|