loncom/enrollment/Enrollment.pm - diff

Return to Enrollment.pm CVS log

Up to [LON-CAPA] / loncom / enrollment

-version 1.41, 2009/08/19 18:43:31
+version 1.42, 2009/10/31 17:55:01
  Line 92  sub update_LC {
      open(FILE,"<$$configvars{'lonTabDir'}.'/rolesplain.tab");
      my @rolesplain = <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;
+                 }
+             }
          }
      }