version 1.26, 2009/03/01 01:17:20
|
version 1.34, 2023/09/28 15:56:48
|
Line 50 sub handler {
|
Line 50 sub handler {
|
|
|
&Apache::loncommon::get_unprocessed_cgi |
&Apache::loncommon::get_unprocessed_cgi |
($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement', |
($ENV{'QUERY_STRING'},['filter','form','unameelement','udomelement', |
'roles']); |
'roles','courseadv','clicker','identelement']); |
# Allowed? |
# Allowed? |
my $allowed; |
my $allowed; |
my $scope = $env{'request.course.id'}; |
if ($env{'request.course.id'}) { |
if (!($allowed = &Apache::lonnet::allowed('srm',$scope))) { |
if (!($allowed = &Apache::lonnet::allowed('srm',$env{'request.course.id'}))) { |
$scope .= '/'.$env{'request.course.sec'}; |
if ($env{'request.course.sec'}) { |
$allowed = &Apache::lonnet::allowed('srm',$scope); |
$allowed = &Apache::lonnet::allowed('srm', |
if ($allowed) { $allowed = 'section'; } |
"$env{'request.course.id'}/$env{'request.course.sec'}"); |
|
if ($allowed) { $allowed = 'section'; } |
|
} |
|
} |
} |
} |
|
|
unless (($env{'form.roles'}) || |
unless (($env{'form.roles'}) || ($allowed)) { |
(($env{'request.course.id'}) && ($allowed))) { |
|
$r->print(&mt('No context.'). |
$r->print(&mt('No context.'). |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
return OK; |
return OK; |
Line 77 sub handler {
|
Line 79 sub handler {
|
<input type="text" name="filter" value="$encoded_filter" /> |
<input type="text" name="filter" value="$encoded_filter" /> |
<input type="submit" name="Change" value="$change" /> |
<input type="submit" name="Change" value="$change" /> |
FILTER |
FILTER |
foreach my $name ('form','unameelement','udomelement','roles') { |
foreach my $name ('form','unameelement','udomelement','roles','courseadv','clicker','identelement') { |
my $value = &HTML::Entities::encode($env{"form.$name"},'<>&"'); |
my $value = &HTML::Entities::encode($env{"form.$name"},'<>&"'); |
$filterbutton .= <<HIDDEN; |
$filterbutton .= <<HIDDEN; |
<input type="hidden" name="$name" value="$value" /> |
<input type="hidden" name="$name" value="$value" /> |
HIDDEN |
HIDDEN |
} |
} |
$filtermsg = '<br />'. |
unless ($env{'form.courseadv'} eq 'only') { |
&mt('Showing users with a name starting with [_1]', |
if ($env{'request.course.id'}) { |
$filterbutton).'<br />'; |
my $crstype = &Apache::loncommon::course_type(); |
|
my $showrole = &Apache::lonnet::plaintext('st',$crstype); |
|
$filtermsg = &mt("Showing users with role of '[_1]' with name starting: [_2]", |
|
$showrole,$filterbutton); |
|
} else { |
|
$filtermsg = |
|
&mt('Showing users with a name starting with [_1]', |
|
$filterbutton); |
|
} |
|
} |
if ($filter eq '') { |
if ($filter eq '') { |
$filter = '.' |
$filter = '.' |
} |
} |
|
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $classlist=&Apache::loncoursedata::get_classlist(); |
|
my %grouplist=&Apache::lonnet::get_group_membership($cdom,$cnum); |
|
my $now = time; |
|
my %allgroups = &Apache::longroup::coursegroups($cdom,$cnum); |
|
|
|
# --------------------------------------- There is such a user, get environment |
# --------------------------------------- There is such a user, get environment |
|
|
$r->print(<<ENDSCRIPT); |
$r->print(<<ENDSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
function gochoose(uname,udom) { |
function gochoose(uname,udom) { |
opener.document.$env{'form.form'}.$env{'form.unameelement'}.value=uname; |
var form = opener.document.$env{'form.form'}; |
var slct=opener.document.$env{'form.form'}.$env{'form.udomelement'}; |
form.elements["$env{'form.unameelement'}"].value=uname; |
var i; |
var slct = form.elements['$env{"form.udomelement"}']; |
for (i=0;i<slct.length;i++) { |
if ((slct.tagName === 'INPUT') && ((slct.type === 'text') || (slct.type === 'hidden'))) { |
if (slct.options[i].value==udom) { slct.selectedIndex=i; } |
slct.value=udom; |
|
} else if (slct.tagName === 'SELECT') { |
|
var i; |
|
for (i=0;i<slct.length;i++) { |
|
if (slct.options[i].value==udom) { |
|
slct.selectedIndex=i; |
|
break; |
|
} |
|
} |
|
} |
|
var identname = "$env{'form.identelement'}"; |
|
if ((identname != undefined) && (identname != '') && (identname != 'null')) { |
|
ident = opener.document.getElementsByName("$env{'form.identelement'}"); |
|
if (ident.length > 0) { |
|
var j; |
|
for (j=0; j<ident.length; j++) { |
|
if (ident[j].value == 'uname') { |
|
if (ident[j].checked) { |
|
break; |
|
} else { |
|
ident[j].checked = true; |
|
window.opener.toggleIdentifier(form); |
|
} |
|
} else { |
|
ident[j].checked = false; |
|
} |
|
} |
|
} |
} |
} |
self.close(); |
self.close(); |
} |
} |
</script> |
</script> |
ENDSCRIPT |
ENDSCRIPT |
|
|
$r->print('<form>'); |
$r->print('<form action="">'); |
if ($allowed && (!$env{'form.roles'})) { |
if ($allowed && (!$env{'form.roles'})) { |
|
unless ($env{'form.courseadv'} eq 'none') { |
# -------------------------------------------------------- Get course personnel |
# -------------------------------------------------------- Get course personnel |
$r->print('<h3>'.$env{'course.'.$env{'request.course.id'}.'.description'}. |
$r->print('<h3>'.$env{'course.'.$env{'request.course.id'}.'.description'}. |
'</h3>'); |
'</h3>'); |
my %coursepersonnel= |
my %coursepersonnel= |
&Apache::lonnet::get_course_adv_roles(); |
&Apache::lonnet::get_course_adv_roles(); |
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::loncommon::start_data_table()); |
foreach my $role (sort(keys(%coursepersonnel))) { |
foreach my $role (sort(keys(%coursepersonnel))) { |
foreach my $user (split(/\,/,$coursepersonnel{$role})) { |
foreach my $user (split(/\,/,$coursepersonnel{$role})) { |
my ($puname,$pudom)=split(/\:/,$user); |
my ($puname,$pudom)=split(/\:/,$user); |
$r->print(&Apache::loncommon::start_data_table_row(). |
$r->print(&Apache::loncommon::start_data_table_row(). |
'<td>'. |
'<td>'. |
'<input type="button" value="'.&mt('Select').'" onClick="gochoose('. |
'<input type="button" value="'.&mt('Select').'" onclick="gochoose('. |
"'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'. |
"'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'. |
&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).'</td>'. |
&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).'</td>'. |
&Apache::loncommon::end_data_table_row()); |
&Apache::loncommon::end_data_table_row()); |
} |
} |
} |
} |
$r->print(&Apache::loncommon::end_data_table().'<p> '); |
$r->print(&Apache::loncommon::end_data_table().'<br /><hr />'); |
|
} |
|
|
|
if ($filtermsg ne '') { |
|
$r->print('<p>'.$filtermsg.'</p>'); |
|
} |
|
|
$r->print($filtermsg); |
$r->rflush(); |
|
|
$r->print('</p>'); |
unless ($env{'form.courseadv'} eq 'only') { |
|
|
# ------------------------------------------------------------------ Students |
# ------------------------------------------------------------------ Students |
my $result; |
|
foreach my $user (sort(keys(%$classlist))) { |
# Do we have a clicker? |
# the following undefs are for 'domain', and 'username' respectively. |
|
my (undef,undef,$end,$start,$id,$section,$fullname,$status)= |
my $clicker=$env{'form.clicker'}; |
@{$classlist->{$user}}; |
my @fragments=(); |
if ($allowed eq 'section' && $section ne $env{'request.course.sec'}) { |
if ($clicker) { |
next; |
$r->print('<h1>'.&mt('Clicker: [_1]',$clicker).'</h1>'); |
} |
my $clicklength=length($clicker); |
if ($user=~/^($LONCAPA::username_re)\:($LONCAPA::domain_re)$/) { |
my $maxlength=$clicklength-1; |
my ($uname,$udom)=($1,$2); |
if ($maxlength>2) { |
if (($uname=~/^$filter/) || |
my $minlength=$maxlength-2; |
($fullname=~/^$filter/i)) { |
if ($minlength<2) { $minlength=2; } |
my $grouplist = ''; |
for (my $length=$maxlength;$length>=$minlength;$length--) { |
foreach my $group (sort(keys(%allgroups))) { |
for (my $startidx=0; $startidx<=$clicklength-$length; $startidx++) { |
if (exists($grouplist{$group.':'.$uname.':'.$udom})) { |
push(@fragments,substr($clicker,$startidx,$length)); |
my ($end,$start) = split(/:/,$grouplist{$group.':'.$uname.':'.$udom}); |
} |
if (($end!=0) && ($end<$now)) { next; } |
} |
if (($start!=0) && ($start>$now)) {next; } |
} |
$grouplist .= " $group,"; |
} |
} |
|
|
my $result; |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my $classlist=&Apache::loncoursedata::get_classlist(); |
|
my %grouplist=&Apache::lonnet::get_group_membership($cdom,$cnum); |
|
my $now = time; |
|
my %allgroups = &Apache::longroup::coursegroups($cdom,$cnum); |
|
|
|
foreach my $user (sort(keys(%$classlist))) { |
|
# the following undefs are for 'domain', and 'username' respectively. |
|
my (undef,undef,$end,$start,$id,$section,$fullname,$status)= |
|
@{$classlist->{$user}}; |
|
if ($allowed eq 'section' && $section ne $env{'request.course.sec'}) { |
|
next; |
|
} |
|
if ($user=~/^($LONCAPA::username_re)\:($LONCAPA::domain_re)$/) { |
|
my ($uname,$udom)=($1,$2); |
|
if (($uname=~/^$filter/) || ($fullname=~/^$filter/i)) { |
|
my $grouplist = ''; |
|
foreach my $group (sort(keys(%allgroups))) { |
|
if (exists($grouplist{$group.':'.$uname.':'.$udom})) { |
|
my ($end,$start) = split(/:/,$grouplist{$group.':'.$uname.':'.$udom}); |
|
if (($end!=0) && ($end<$now)) { next; } |
|
if (($start!=0) && ($start>$now)) {next; } |
|
$grouplist .= " $group,"; |
|
} |
|
} |
|
$grouplist =~ s/,$//; |
|
my $markedupclicker; |
|
if ($clicker) { |
|
$markedupclicker=(&Apache::lonnet::userenvironment($udom,$uname,'clickers'))[1]; |
|
if ($markedupclicker!~/\w/) { |
|
$markedupclicker='-'; |
|
} else { |
|
foreach my $frag (@fragments) { |
|
if ($markedupclicker=~/\Q$frag\E/is) { |
|
$markedupclicker=~s/(\Q$frag\E)/<font color=\"green\" size=\"\+1\"><b>$1<\/b><\/font>/gis; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
$result .=&Apache::loncommon::start_data_table_row(). |
|
'<td>'. |
|
'<input type="button" value="'.&mt('Select').'" onclick="gochoose('. |
|
"'".$uname."','".$udom."')".'" /></td>'. |
|
'<td><tt>'.$uname.'</tt></td><td> <tt>'.$udom. |
|
'</tt></td><td>'. |
|
&Apache::loncommon::aboutmewrapper($fullname, |
|
$uname,$udom). |
|
'</td><td>'.$id.'</td><td>'.$section. |
|
'</td><td>'.$grouplist.'</td>'. |
|
($clicker?'<td>'.$markedupclicker.'</td>':''). |
|
&Apache::loncommon::end_data_table_row(); |
} |
} |
$grouplist =~ s/,$//; |
} |
$result .=&Apache::loncommon::start_data_table_row(). |
|
'<td>'. |
|
'<input type="button" value="'.&mt('Select').'" onClick="gochoose('. |
|
"'".$uname."','".$udom."')".'" /></td>'. |
|
'<td><tt>'.$uname.'</tt></td><td> <tt>'.$udom. |
|
'</tt></td><td>'. |
|
&Apache::loncommon::aboutmewrapper($fullname, |
|
$uname,$udom). |
|
'</td><td>'.$id.'</td><td>'.$section. |
|
'</td><td>'.$grouplist.'</td>'. |
|
&Apache::loncommon::end_data_table_row(); |
|
} |
|
} |
} |
} |
if (!$result) { |
if (!$result) { |
$r->print('<p>'.&mt('No students found.').'</p>'); |
$r->print('<p>'.&mt('No students found.').'</p>'); |
} else { |
} else { |
$r->print(&Apache::loncommon::start_data_table(). |
$r->print(&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::end_data_table_header_row(). |
&Apache::loncommon::end_data_table_header_row(). |
'<th> </th>'. |
'<th> </th>'. |
'<th>'.&mt('username').'</th>'. |
'<th>'.&mt('username').'</th>'. |
'<th>'.&mt('domain').'</th>'. |
'<th>'.&mt('domain').'</th>'. |
'<th>'.&mt('Name').'</th>'. |
'<th>'.&mt('Name').'</th>'. |
'<th>'.&mt('ID').'</th>'. |
'<th>'.&mt('ID').'</th>'. |
'<th>'.&mt('section').'</th>'. |
'<th>'.&mt('section').'</th>'. |
'<th>'.&mt('active group(s)').'</th>'. |
'<th>'.&mt('active group(s)').'</th>'. |
($clicker?'<th>'.&mt('clicker').'</th>':''). |
&Apache::loncommon::end_data_table_header_row(). |
&Apache::loncommon::end_data_table_header_row(). |
$result. |
$result. |
&Apache::loncommon::end_data_table()); |
&Apache::loncommon::end_data_table()); |
} |
} |
|
} |
} else { |
} else { |
$r->print('<h3>'.&mt('Users with Roles Assigned by').' '. |
$r->print('<h3>'.&mt('Users with Roles Assigned by').' '. |
&Apache::loncommon::plainname($env{'user.name'}, |
&Apache::loncommon::plainname($env{'user.name'}, |
$env{'user.domain'}).'</h3>'); |
$env{'user.domain'}).'</h3>'); |
$r->print($filtermsg); |
$r->print($filtermsg); |
|
$r->rflush(); |
|
|
$r->print('<p>'.&Apache::loncommon::start_data_table()); |
$r->print('<p>'.&Apache::loncommon::start_data_table()); |
my %user_role=&Apache::lonnet::get_my_roles(); |
my %user_role=&Apache::lonnet::get_my_roles(); |
Line 217 ENDSCRIPT
|
Line 298 ENDSCRIPT
|
my ($uname,$udom) = split(':',$user); |
my ($uname,$udom) = split(':',$user); |
$r->print(&Apache::loncommon::start_data_table_row(). |
$r->print(&Apache::loncommon::start_data_table_row(). |
'<td>'. |
'<td>'. |
'<input type="button" value="'.&mt('Select').'" onClick="gochoose('. |
'<input type="button" value="'.&mt('Select').'" onclick="gochoose('. |
"'".$uname."','".$udom."')".'" /></td>'. |
"'".$uname."','".$udom."')".'" /></td>'. |
'<td><tt>'.$uname.'</tt></td>'. |
'<td><tt>'.$uname.'</tt></td>'. |
'<td><tt>'.$udom.'</tt></td><td>'. |
'<td><tt>'.$udom.'</tt></td><td>'. |
Line 233 ENDSCRIPT
|
Line 314 ENDSCRIPT
|
} |
} |
$r->print('</form>'.&Apache::loncommon::end_page()); |
$r->print('</form>'.&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |