version 1.23, 2007/08/10 23:20:09
|
version 1.33, 2020/02/12 16:25:47
|
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']); |
# 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') { |
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; |
opener.document.$env{'form.form'}.elements['$env{'form.unameelement'}'].value=uname; |
var slct=opener.document.$env{'form.form'}.$env{'form.udomelement'}; |
var slct=opener.document.$env{'form.form'}.elements['$env{'form.udomelement'}']; |
var i; |
var i; |
for (i=0;i<slct.length;i++) { |
for (i=0;i<slct.length;i++) { |
if (slct.options[i].value==udom) { slct.selectedIndex=i; } |
if (slct.options[i].value==udom) { slct.selectedIndex=i; } |
Line 113 function gochoose(uname,udom) {
|
Line 117 function gochoose(uname,udom) {
|
</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); |
$role = &Apache::lonnet::plaintext($role, |
$r->print(&Apache::loncommon::start_data_table_row(). |
&Apache::loncommon::course_type()); |
'<td>'. |
$r->print(&Apache::loncommon::start_data_table_row(). |
'<input type="button" value="'.&mt('Select').'" onclick="gochoose('. |
'<td>'. |
"'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'. |
'<input type="button" value="Select" onClick="gochoose('. |
&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).'</td>'. |
"'".$puname."','".$pudom."')".'" /></td><td>'.$role.'</td><td>'. |
&Apache::loncommon::end_data_table_row()); |
&Apache::loncommon::aboutmewrapper(&Apache::loncommon::plainname($puname,$pudom),$puname,$pudom).'</td>'. |
} |
&Apache::loncommon::end_data_table_row()); |
} |
} |
$r->print(&Apache::loncommon::end_data_table().'<br /><hr />'); |
} |
} |
$r->print(&Apache::loncommon::end_data_table().'<p> '); |
|
|
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 208 ENDSCRIPT
|
Line 260 ENDSCRIPT
|
/^($LONCAPA::username_re):($LONCAPA::domain_re):(\w+)$/); |
/^($LONCAPA::username_re):($LONCAPA::domain_re):(\w+)$/); |
my ($uname,$udom,$urole)=($1,$2,$3); |
my ($uname,$udom,$urole)=($1,$2,$3); |
my $fullname=&Apache::loncommon::plainname($uname,$udom); |
my $fullname=&Apache::loncommon::plainname($uname,$udom); |
next if (($uname!~/^$filter/i) && ($fullname=~/^$filter/i)); |
next if (($uname!~/^$filter/i) && ($fullname !~/^$filter/i)); |
|
|
if (!exists($users{"$uname:$udom"})) { |
if (!exists($users{"$uname:$udom"})) { |
$users{"$uname:$udom"} = {'fullname' => $fullname }; |
$users{"$uname:$udom"} = {'fullname' => $fullname }; |
Line 219 ENDSCRIPT
|
Line 271 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="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 235 ENDSCRIPT
|
Line 287 ENDSCRIPT
|
} |
} |
$r->print('</form>'.&Apache::loncommon::end_page()); |
$r->print('</form>'.&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
|
|
1; |
1; |
__END__ |
__END__ |