|
version 1.137, 2012/04/25 21:05:30
|
version 1.138, 2012/04/25 21:22:01
|
|
Line 47 sub modifystudent {
|
Line 47 sub modifystudent {
|
| # this one. If $csec is defined, drop them from all other sections of |
# this one. If $csec is defined, drop them from all other sections of |
| # this course and add them to section $csec |
# this course and add them to section $csec |
| my ($cnum,$cdom) = &get_course_identity($courseid); |
my ($cnum,$cdom) = &get_course_identity($courseid); |
| my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); |
my %roles = &Apache::lonnet::dump('roles',$udom,$unam); |
| my %roles = &Apache::lonnet::dump('roles',$udom,$unam,'.',undef,$extra); |
|
| my ($tmp) = keys(%roles); |
my ($tmp) = keys(%roles); |
| # Bail out if we were unable to get the students roles |
# Bail out if we were unable to get the students roles |
| return "$1" if ($tmp =~ /^(con_lost|error|no_such_host)/i); |
return "$1" if ($tmp =~ /^(con_lost|error|no_such_host)/i); |
|
Line 1423 sub my_custom_roles {
|
Line 1422 sub my_custom_roles {
|
| my ($crstype) = @_; |
my ($crstype) = @_; |
| my %returnhash=(); |
my %returnhash=(); |
| my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); |
my $extra = &Apache::lonnet::freeze_escape({'skipcheck' => 1}); |
| my %rolehash=&Apache::lonnet::dump('roles',undef,undef,'.',undef,$extra); |
my %rolehash=&Apache::lonnet::dump('roles'); |
| foreach my $key (keys(%rolehash)) { |
foreach my $key (keys(%rolehash)) { |
| if ($key=~/^rolesdef\_(\w+)$/) { |
if ($key=~/^rolesdef\_(\w+)$/) { |
| if ($crstype eq 'Community') { |
if ($crstype eq 'Community') { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonuserutils.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface