|
version 1.34, 2010/01/30 15:47:01
|
version 1.35, 2010/01/30 22:16:50
|
|
Line 320 sub parse_coursereqs {
|
Line 320 sub parse_coursereqs {
|
| @{$$details{$num}{'users'}{$userkey}{'roles'}} = (); |
@{$$details{$num}{'users'}{$userkey}{'roles'}} = (); |
| } elsif ("@state" eq "class users user email") { |
} elsif ("@state" eq "class users user email") { |
| $$details{$num}{'users'}{$userkey}{'emailaddr'} = $text; |
$$details{$num}{'users'}{$userkey}{'emailaddr'} = $text; |
| $$details{$num}{'users'}{$userkey}{'emailenc'} = &LONCAPA:escape($text); |
$$details{$num}{'users'}{$userkey}{'emailenc'} = &LONCAPA::escape($text); |
| } elsif ("@state" eq "class users user roles role start") { |
} elsif ("@state" eq "class users user roles role start") { |
| if (grep(/^\Q$role\E$/,@possroles)) { |
if (grep(/^\Q$role\E$/,@possroles)) { |
| $$details{$num}{'users'}{$userkey}{$role}{'start'} = &process_date($text); |
$$details{$num}{'users'}{$userkey}{$role}{'start'} = &process_date($text); |
![[BACK]](/icons/back.gif){kind=icon}
Return to batchcreatecourse.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / automation