version 1.339, 2010/04/02 14:53:26
|
version 1.349, 2010/09/20 00:51:14
|
Line 1613 sub display_existing_roles {
|
Line 1613 sub display_existing_roles {
|
$plaintext=&Apache::lonnet::plaintext($role_code,$class) |
$plaintext=&Apache::lonnet::plaintext($role_code,$class) |
} else { |
} else { |
$plaintext= |
$plaintext= |
"Customrole '$croletitle'<br />defined by $croleuname\@$croleudom"; |
&mt('Customrole [_1][_2]defined by [_3]', |
|
'"'.$croletitle.'"', |
|
'<br />', |
|
$croleuname.':'.$croleudom); |
} |
} |
$row.= '</td><td>'.$plaintext. |
$row.= '</td><td>'.$plaintext. |
'</td><td>'.$area. |
'</td><td>'.$area. |
Line 2297 sub update_user_data {
|
Line 2300 sub update_user_data {
|
|
|
$r->print('<h3>'.&mt('User [_1] in domain [_2]', |
$r->print('<h3>'.&mt('User [_1] in domain [_2]', |
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>'); |
$env{'form.ccuname'}, $env{'form.ccdomain'}).'</h3>'); |
|
$r->print('<p class="LC_info">'.&mt('Please be patient').'</p>'); |
|
|
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my (%alerts,%rulematch,%inst_results,%curr_rules); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @userinfo = ('firstname','middlename','lastname','generation','permanentemail','id'); |
my @usertools = ('aboutme','blog','portfolio'); |
my @usertools = ('aboutme','blog','portfolio'); |
Line 2385 sub update_user_data {
|
Line 2390 sub update_user_data {
|
} |
} |
} |
} |
foreach my $item (@requestcourses) { |
foreach my $item (@requestcourses) { |
$newcustom{$item} = $env{'form.crsreq_'.$item}; |
if ($env{'form.custom'.$item} == 1) { |
if ($env{'form.crsreq_'.$item} eq 'autolimit') { |
$newcustom{$item} = $env{'form.crsreq_'.$item}; |
$newcustom{$item} .= '='; |
if ($env{'form.crsreq_'.$item} eq 'autolimit') { |
unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) { |
$newcustom{$item} .= '='; |
$newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'}; |
unless ($env{'form.crsreq_'.$item.'_limit'} =~ /\D/) { |
|
$newcustom{$item} .= $env{'form.crsreq_'.$item.'_limit'}; |
|
} |
} |
} |
|
$changed{$item} = &tool_admin($item,$newcustom{$item}, |
|
\%changeHash,'requestcourses'); |
} |
} |
$changed{$item} = &tool_admin($item,$newcustom{$item}, |
|
\%changeHash,'requestcourses'); |
|
} |
} |
} |
} |
if ($canmodify_status{'inststatus'}) { |
if ($canmodify_status{'inststatus'}) { |
Line 2436 sub update_user_data {
|
Line 2443 sub update_user_data {
|
$r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end); |
$r->print($error.&mt('You do not have the authority to modify this users authentification information').'.'.$end); |
} |
} |
} |
} |
|
|
|
$r->rflush(); # Finish display of header before time consuming actions start |
|
|
## |
## |
my (@userroles,%userupdate,$cnum,$cdom,$crstype,%namechanged); |
my (@userroles,%userupdate,$cnum,$cdom,%namechanged); |
if ($context eq 'course') { |
if ($context eq 'course') { |
($cnum,$cdom) = &Apache::lonuserutils::get_course_identity(); |
($cnum,$cdom) = &Apache::lonuserutils::get_course_identity(); |
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
Line 3435 sub update_roles {
|
Line 3445 sub update_roles {
|
} |
} |
} # End of foreach (keys(%env)) |
} # End of foreach (keys(%env)) |
# Flush the course logs so reverse user roles immediately updated |
# Flush the course logs so reverse user roles immediately updated |
&Apache::lonnet::flushcourselogs(); |
$r->register_cleanup(\&Apache::lonnet::flushcourselogs); |
if (@rolechanges == 0) { |
if (@rolechanges == 0) { |
$r->print(&mt('No roles to modify')); |
$r->print(&mt('No roles to modify')); |
} |
} |
Line 4386 sub print_main_menu {
|
Line 4396 sub print_main_menu {
|
[ |
[ |
{ |
{ |
linktext => $links{$linkcontext}{'upload'}, |
linktext => $links{$linkcontext}{'upload'}, |
icon => 'sctr.png', |
icon => 'uplusr.png', |
#help => 'Course_Create_Class_List', |
#help => 'Course_Create_Class_List', |
url => '/adm/createuser?action=upload', |
url => '/adm/createuser?action=upload', |
permission => $permission->{'cusr'}, |
permission => $permission->{'cusr'}, |
Line 4394 sub print_main_menu {
|
Line 4404 sub print_main_menu {
|
}, |
}, |
{ |
{ |
linktext => $links{$linkcontext}{'listusers'}, |
linktext => $links{$linkcontext}{'listusers'}, |
icon => 'edit-find.png', |
icon => 'mngcu.png', |
#help => 'Course_View_Class_List', |
#help => 'Course_View_Class_List', |
url => '/adm/createuser?action=listusers', |
url => '/adm/createuser?action=listusers', |
permission => ($permission->{'view'} || $permission->{'cusr'}), |
permission => ($permission->{'view'} || $permission->{'cusr'}), |
Line 4526 sub print_main_menu {
|
Line 4536 sub print_main_menu {
|
push(@{ $menu[2]->{items} }, |
push(@{ $menu[2]->{items} }, |
{ |
{ |
linktext => 'User Self-Enrollment', |
linktext => 'User Self-Enrollment', |
icon => 'cstr.png', |
icon => 'self_enroll.png', |
#help => 'Course_Self_Enrollment', |
#help => 'Course_Self_Enrollment', |
url => '/adm/createuser?action=selfenroll', |
url => '/adm/createuser?action=selfenroll', |
permission => $permission->{'cusr'}, |
permission => $permission->{'cusr'}, |
Line 4952 ENDSCRIPT
|
Line 4962 ENDSCRIPT
|
'<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'. |
'<input type="checkbox" name="selfenroll_notify"'.$notifyon.' value="'.$cc.'" />'. |
&Apache::loncommon::plainname($ccuname,$ccudom). |
&Apache::loncommon::plainname($ccuname,$ccudom). |
'</label></span></td>'; |
'</label></span></td>'; |
$count; |
$count ++; |
} |
} |
my $rem = $count%$numcols; |
my $rem = $count%$numcols; |
if ($rem) { |
if ($rem) { |
Line 4969 ENDSCRIPT
|
Line 4979 ENDSCRIPT
|
my $cid = $env{'request.course.id'}; |
my $cid = $env{'request.course.id'}; |
my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'}; |
my $currlim = $env{'course.'.$cid.'.internal.selfenroll_limit'}; |
my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'}; |
my $currcap = $env{'course.'.$cid.'.internal.selfenroll_cap'}; |
my $nolimit = ' checked="checked" '; |
$nolimit = ' checked="checked" '; |
if ($currlim eq 'allstudents') { |
if ($currlim eq 'allstudents') { |
$crslimit = ' checked="checked" '; |
$crslimit = ' checked="checked" '; |
$selflimit = ' '; |
$selflimit = ' '; |
Line 5025 sub visible_in_cat {
|
Line 5035 sub visible_in_cat {
|
dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain', |
dc_chgcat => 'Ask a domain coordinator to change the category assigned to the course, as the one currently assigned is no longer used in the domain', |
dc_addcat => 'Ask a domain coordinator to assign a category to the course.', |
dc_addcat => 'Ask a domain coordinator to assign a category to the course.', |
); |
); |
$visactions{'unhide'} = &mt('Use [_1]Set course environment[_2] to change the "Exclude from course catalog" setting.','"<a href="/adm/parmset?action=crsenv">','</a>"'); |
$visactions{'unhide'} = &mt('Use [_1]Categorize course[_2] to change the "Exclude from course catalog" setting.','<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
$visactions{'chgcat'} = &mt('Use [_1]Set course environment[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','"<a href="/adm/parmset?action=crsenv">','</a>"'); |
$visactions{'chgcat'} = &mt('Use [_1]Categorize course[_2] to change the category assigned to the course, as the one currently assigned is no longer used in the domain.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
$visactions{'addcat'} = &mt('Use [_1]Set course environment[_2] to assign a category to the course.','"<a href="/adm/parmset?action=crsenv">','</a>"'); |
$visactions{'addcat'} = &mt('Use [_1]Categorize course[_2] to assign a category to the course.','"<a href="/adm/courseprefs?phase=display&actions=courseinfo">','</a>"'); |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if (ref($domconf{'coursecategories'}) eq 'HASH') { |
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') { |
if ($domconf{'coursecategories'}{'togglecats'} eq 'crs') { |
$settable{'togglecats'} = 1; |
$settable{'togglecats'} = 1; |