version 1.175, 2016/10/04 21:02:16
|
version 1.179, 2016/11/13 21:09:56
|
Line 2563 $verify_action_js
|
Line 2563 $verify_action_js
|
|
|
function username_display_launch(username,domain) { |
function username_display_launch(username,domain) { |
var target; |
var target; |
for (var i=0; i<document.$formname.usernamelink.length; i++) { |
if (!document.$formname.usernamelink.length) { |
if (document.$formname.usernamelink[i].checked) { |
target = document.$formname.usernamelink.value; |
target = document.$formname.usernamelink[i].value; |
} else { |
|
for (var i=0; i<document.$formname.usernamelink.length; i++) { |
|
if (document.$formname.usernamelink[i].checked) { |
|
target = document.$formname.usernamelink[i].value; |
|
} |
} |
} |
} |
} |
if (target == 'modify') { |
if ((target == 'modify') || (target == 'activity')) { |
|
var nextaction = 'singleuser'; |
|
if (target == 'activity') { |
|
nextaction = 'accesslogs'; |
|
} |
if (document.$formname.userwin.checked == true) { |
if (document.$formname.userwin.checked == true) { |
var url = '/adm/createuser?srchterm='+username+'&srchdomain='+domain+'&phase=get_user_info&action=singleuser&srchin=dom&srchby=uname&srchtype=exact&popup=1'; |
var url = '/adm/createuser?srchterm='+username+'&srchdomain='+domain+'&phase=get_user_info&srchin=dom&srchby=uname&srchtype=exact&popup=1&action='+nextaction; |
var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'; |
var options = 'height=600,width=800,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no'; |
modifywin = window.open(url,'',options,1); |
modifywin = window.open(url,'',options,1); |
modifywin.focus(); |
modifywin.focus(); |
Line 2579 function username_display_launch(usernam
|
Line 2587 function username_display_launch(usernam
|
document.$formname.srchterm.value=username; |
document.$formname.srchterm.value=username; |
document.$formname.srchdomain.value=domain; |
document.$formname.srchdomain.value=domain; |
document.$formname.phase.value='get_user_info'; |
document.$formname.phase.value='get_user_info'; |
document.$formname.action.value = 'singleuser'; |
document.$formname.action.value = nextaction; |
document.$formname.submit(); |
document.$formname.submit(); |
} |
} |
} |
} |
Line 2625 END
|
Line 2633 END
|
'owin' => "Open in a new window", |
'owin' => "Open in a new window", |
'modify' => "Modify a user's information", |
'modify' => "Modify a user's information", |
'track' => "View a user's recent activity", |
'track' => "View a user's recent activity", |
|
'activity' => "View a user's access log", |
); |
); |
my %lt = (%coltxt,%acttxt); |
my %lt = (%coltxt,%acttxt); |
my $rolefilter = $env{'form.showrole'}; |
my $rolefilter = $env{'form.showrole'}; |
Line 2715 END
|
Line 2724 END
|
if ($permission->{'cusr'}) { |
if ($permission->{'cusr'}) { |
unshift (@linkdests,'modify'); |
unshift (@linkdests,'modify'); |
} |
} |
if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) || |
if ($context eq 'course') { |
&Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'. |
if (&Apache::lonnet::allowed('vsa', $env{'request.course.id'}) || |
$env{'request.course.sec'})) { |
&Apache::lonnet::allowed('vsa', $env{'request.course.id'}.'/'. |
push(@linkdests,'track'); |
$env{'request.course.sec'})) { |
|
push(@linkdests,'track'); |
|
} |
|
} elsif ($context eq 'domain') { |
|
if (&Apache::lonnet::allowed('vac',$env{'request.role.domain'})) { |
|
push(@linkdests,'activity'); |
|
} |
} |
} |
|
|
$output .= '<td>'; |
$output .= '<td>'; |
my $usernamelink = $env{'form.usernamelink'}; |
my $usernamelink = $env{'form.usernamelink'}; |
if ($usernamelink eq '') { |
if ($usernamelink eq '') { |
Line 2989 END
|
Line 3003 END
|
} (keys(%$userlist)); |
} (keys(%$userlist)); |
} |
} |
my $rowcount = 0; |
my $rowcount = 0; |
|
my $disabled; |
|
if ($mode eq 'autoenroll') { |
|
unless ($permission->{'cusr'}) { |
|
$disabled = ' disabled="disabled"'; |
|
} |
|
} |
foreach my $user (@sorted_users) { |
foreach my $user (@sorted_users) { |
my %in; |
my %in; |
my $sdata = $userlist->{$user}; |
my $sdata = $userlist->{$user}; |
Line 3025 END
|
Line 3045 END
|
if ($mode eq 'autoenroll') { |
if ($mode eq 'autoenroll') { |
my $cellentry; |
my $cellentry; |
if ($in{'type'} eq 'auto') { |
if ($in{'type'} eq 'auto') { |
$cellentry = '<b>'.&mt('auto').'</b> <label><input type="checkbox" name="chgauto" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Change').'</label>'; |
$cellentry = '<b>'.&mt('auto').'</b> <label><input type="checkbox" name="chgauto" value="'.$in{'username'}.':'.$in{'domain'}.'"'.$disabled.' /> '.&mt('Change').'</label>'; |
$autocount ++; |
$autocount ++; |
} else { |
} else { |
$cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><span class="LC_nobreak"><label><input type="checkbox" name="chgmanual" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Change').'</label></span></td></tr><tr><td><span class="LC_nobreak">'; |
$cellentry = '<table border="0" cellspacing="0"><tr><td rowspan="2"><b>'.&mt('manual').'</b></td><td><span class="LC_nobreak"><label><input type="checkbox" name="chgmanual" value="'.$in{'username'}.':'.$in{'domain'}.'"'.$disabled.' /> '.&mt('Change').'</label></span></td></tr><tr><td><span class="LC_nobreak">'; |
$manualcount ++; |
$manualcount ++; |
if ($in{'lockedtype'}) { |
if ($in{'lockedtype'}) { |
$cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Unlock').'</label>'; |
$cellentry .= '<label><input type="checkbox" name="unlockchg" value="'.$in{'username'}.':'.$in{'domain'}.'"'.$disabled.' /> '.&mt('Unlock').'</label>'; |
$unlockcount ++; |
$unlockcount ++; |
} else { |
} else { |
$cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$in{'username'}.':'.$in{'domain'}.'" /> '.&mt('Lock').'</label>'; |
$cellentry .= '<label><input type="checkbox" name="lockchg" value="'.$in{'username'}.':'.$in{'domain'}.'"'.$disabled.' /> '.&mt('Lock').'</label>'; |
$lockcount ++; |
$lockcount ++; |
} |
} |
$cellentry .= '</span></td></tr></table>'; |
$cellentry .= '</span></td></tr></table>'; |
Line 5412 sub set_login {
|
Line 5432 sub set_login {
|
} |
} |
|
|
sub course_sections { |
sub course_sections { |
my ($sections_count,$role,$current_sec) = @_; |
my ($sections_count,$role,$current_sec,$disabled) = @_; |
my $output = ''; |
my $output = ''; |
my @sections = (sort {$a <=> $b} keys(%{$sections_count})); |
my @sections = (sort {$a <=> $b} keys(%{$sections_count})); |
my $numsec = scalar(@sections); |
my $numsec = scalar(@sections); |
my $is_selected = ' selected="selected"'; |
my $is_selected = ' selected="selected"'; |
if ($numsec <= 1) { |
if ($numsec <= 1) { |
$output = '<select name="currsec_'.$role.'" >'."\n". |
$output = '<select name="currsec_'.$role.'"'.$disabled.'>'."\n". |
' <option value="">'.&mt('Select').'</option>'."\n"; |
' <option value="">'.&mt('Select').'</option>'."\n"; |
if ($current_sec eq 'none') { |
if ($current_sec eq 'none') { |
$output .= |
$output .= |
Line 5441 sub course_sections {
|
Line 5461 sub course_sections {
|
my $multiple = 4; |
my $multiple = 4; |
if (scalar(@sections) < 4) { $multiple = scalar(@sections); } |
if (scalar(@sections) < 4) { $multiple = scalar(@sections); } |
if ($role eq 'st') { |
if ($role eq 'st') { |
$output .= '>'."\n". |
$output .= $disabled.'>'."\n". |
' <option value="">'.&mt('Select').'</option>'."\n"; |
' <option value="">'.&mt('Select').'</option>'."\n"; |
if ($current_sec eq 'none') { |
if ($current_sec eq 'none') { |
$output .= |
$output .= |
Line 5451 sub course_sections {
|
Line 5471 sub course_sections {
|
' <option value="">'.&mt('No section')."</option>\n"; |
' <option value="">'.&mt('No section')."</option>\n"; |
} |
} |
} else { |
} else { |
$output .= 'multiple="multiple" size="'.$multiple.'">'."\n"; |
$output .= 'multiple="multiple" size="'.$multiple.'"'.$disabled.'>'."\n"; |
} |
} |
foreach my $sec (@sections) { |
foreach my $sec (@sections) { |
if ($current_sec eq $sec) { |
if ($current_sec eq $sec) { |
Line 5668 sub can_create_user {
|
Line 5688 sub can_create_user {
|
my $cancreate = 1; |
my $cancreate = 1; |
if (&Apache::lonnet::allowed('mau',$dom)) { |
if (&Apache::lonnet::allowed('mau',$dom)) { |
return $cancreate; |
return $cancreate; |
|
} elsif ($context eq 'domain') { |
|
$cancreate = 0; |
|
return $cancreate; |
} |
} |
if (ref($domconf{'usercreation'}) eq 'HASH') { |
if (ref($domconf{'usercreation'}) eq 'HASH') { |
if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') { |
if (ref($domconf{'usercreation'}{'cancreate'}) eq 'HASH') { |
Line 5887 sub get_permission {
|
Line 5910 sub get_permission {
|
if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) { |
if (&Apache::lonnet::allowed('ccr',$env{'request.role.domain'})) { |
$permission{'custom'} = 1; |
$permission{'custom'} = 1; |
} |
} |
$permission{'view'} = $permission{'cusr'}; |
if (&Apache::lonnet::allowed('vac',$env{'request.role.domain'})) { |
|
$permission{'activity'} = 1; |
|
} |
|
if (&Apache::lonnet::allowed('vur',$env{'request.role.domain'})) { |
|
$permission{'view'} = 1; |
|
} |
} |
} |
my $allowed = 0; |
my $allowed = 0; |
foreach my $perm (values(%permission)) { |
foreach my $perm (values(%permission)) { |