--- loncom/interface/loncreateuser.pm 2012/12/21 14:49:50 1.369
+++ loncom/interface/loncreateuser.pm 2013/02/06 16:10:27 1.373
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.369 2012/12/21 14:49:50 bisitz Exp $
+# $Id: loncreateuser.pm,v 1.373 2013/02/06 16:10:27 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1672,7 +1672,7 @@ sub display_existing_roles {
}
}
if ($area=~m{^/($match_domain)/($match_courseid)/(\w+)}) {
- $carea.='
Section: '.$3;
+ $carea.='
'.&mt('Section: [_1]',$3);
$sortkey.="\0$3";
if (!$allowed) {
if ($env{'request.course.sec'} eq $3) {
@@ -3062,7 +3062,7 @@ sub display_userinfo {
ref($newsetting) eq 'HASH' &&
ref($newsettingtext) eq 'HASH');
my %lt=&Apache::lonlocal::texthash(
- 'ui' => 'User Information (unchanged)',
+ 'ui' => 'User Information',
'uic' => 'User Information Changed',
'firstname' => 'First Name',
'middlename' => 'Middle Name',
@@ -3083,10 +3083,8 @@ sub display_userinfo {
'prvs' => 'Previous Value:',
'chto' => 'Changed To:'
);
- my $title = $lt{'ui'};
if ($changed) {
- $title = $lt{'uic'};
- $r->print('
'.&mt('No changes made to user information').'
'); } return; } @@ -3345,7 +3346,7 @@ sub update_roles { $r->print(&Apache::lonhtmlcommon::confirm_success( &mt('Revoking [_1] in [_2]', &Apache::lonnet::plaintext($role), - '"'.&cid_to_cname($scope).'"'), + &Apache::loncommon::show_role_extent($scope,$context,$role)), $result ne "ok").''.&mt('No roles to modify').'
'); } return @rolechanges; } @@ -4604,7 +4608,8 @@ function updateCols(caller) { } } if (caller == 'showrole') { - if (document.studentform.showrole.options[document.studentform.showrole.selectedIndex].value == 'Any') { + if ((document.studentform.showrole.options[document.studentform.showrole.selectedIndex].value == 'Any') || + (document.studentform.showrole.options[document.studentform.showrole.selectedIndex].value == 'cr')) { document.getElementById('showcolrole').checked = true; document.getElementById('showcolrole').disabled = ''; } else { @@ -4854,6 +4859,7 @@ sub print_main_menu { ); } } elsif ($context eq 'author') { + push(@{ $menu[2]->{items} }, #Category: Administration { linktext => 'Change Log', icon => 'document-properties.png', @@ -4862,6 +4868,7 @@ sub print_main_menu { permission => $permission->{'cusr'}, linktitle => 'View change log.', }, + ); } return Apache::lonhtmlcommon::generate_menu(@menu); # { text => 'View Log-in History', @@ -6973,12 +6980,7 @@ sub get_selfenroll_titles { #--------------------------------- functions for &phase_two and &phase_three #--------------------------end of functions for &phase_two and &phase_three -sub cid_to_cname(){ - my $courseid = shift; - $courseid =~ s/^\///; - $courseid =~ s/\//_/; - return $env{'course.'.$courseid.'.description'}; -} + 1; __END__