version 1.21, 2007/07/21 00:48:55
|
version 1.22, 2007/08/02 01:39:26
|
Line 70 sub handler {
|
Line 70 sub handler {
|
# See if filter present |
# See if filter present |
my $filter=$env{'form.filter'}; |
my $filter=$env{'form.filter'}; |
my $filtermsg; |
my $filtermsg; |
if ($filter eq '') { |
my $encoded_filter = &HTML::Entities::encode($filter,'<>&"'); |
$filter = '.' |
$filter = quotemeta($filter); |
} else { |
my $change = &mt('Change'); |
my $encoded_filter = &HTML::Entities::encode($filter,'<>&"'); |
my $filterbutton =<<FILTER; |
$filter = quotemeta($filter); |
|
my $change = &mt('Change'); |
|
my $filterbutton =<<FILTER; |
|
<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') { |
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 />'. |
$filtermsg = '<br />'. |
&mt('Showing users with a name starting with [_1]', |
&mt('Showing users with a name starting with [_1]', |
$filterbutton).'<br />'; |
$filterbutton).'<br />'; |
|
if ($filter eq '') { |
|
$filter = '.' |
} |
} |
|
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
Line 139 ENDSCRIPT
|
Line 138 ENDSCRIPT
|
|
|
$r->print($filtermsg); |
$r->print($filtermsg); |
|
|
$r->print('</p><p>'. |
$r->print('</p>'); |
&Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row(). |
|
&Apache::loncommon::end_data_table_header_row(). |
|
'<th> </th>'. |
|
'<th>'.&mt('username').'</th>'. |
|
'<th>'.&mt('domain').'</th>'. |
|
'<th>'.&mt('Name').'</th>'. |
|
'<th>'.&mt('ID').'</th>'. |
|
'<th>'.&mt('section').'</th>'. |
|
'<th>'.&mt('active group(s)').'</th>'. |
|
&Apache::loncommon::end_data_table_header_row()); |
|
# ------------------------------------------------------------------ Students |
# ------------------------------------------------------------------ Students |
|
my $result; |
foreach my $user (sort(keys(%$classlist))) { |
foreach my $user (sort(keys(%$classlist))) { |
# the following undefs are for 'domain', and 'username' respectively. |
# the following undefs are for 'domain', and 'username' respectively. |
my (undef,undef,$end,$start,$id,$section,$fullname,$status)= |
my (undef,undef,$end,$start,$id,$section,$fullname,$status)= |
Line 173 ENDSCRIPT
|
Line 163 ENDSCRIPT
|
} |
} |
} |
} |
$grouplist =~ s/,$//; |
$grouplist =~ s/,$//; |
$r->print(&Apache::loncommon::start_data_table_row(). |
$result .=&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>'. |
Line 183 ENDSCRIPT
|
Line 173 ENDSCRIPT
|
$uname,$udom). |
$uname,$udom). |
'</td><td>'.$id.'</td><td>'.$section. |
'</td><td>'.$id.'</td><td>'.$section. |
'</td><td>'.$grouplist.'</td>'. |
'</td><td>'.$grouplist.'</td>'. |
&Apache::loncommon::end_data_table_row()); |
&Apache::loncommon::end_data_table_row(); |
} |
} |
} |
} |
} |
} |
|
if (!$result) { |
$r->print(&Apache::loncommon::end_data_table().'</p>'); |
$r->print('<p>'.&mt('No students found.').'</p>'); |
|
} else { |
|
$r->print(&Apache::loncommon::start_data_table(). |
|
&Apache::loncommon::start_data_table_header_row(). |
|
&Apache::loncommon::end_data_table_header_row(). |
|
'<th> </th>'. |
|
'<th>'.&mt('username').'</th>'. |
|
'<th>'.&mt('domain').'</th>'. |
|
'<th>'.&mt('Name').'</th>'. |
|
'<th>'.&mt('ID').'</th>'. |
|
'<th>'.&mt('section').'</th>'. |
|
'<th>'.&mt('active group(s)').'</th>'. |
|
&Apache::loncommon::end_data_table_header_row(). |
|
$result. |
|
&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'}, |