version 1.150, 2013/03/01 04:55:34
|
version 1.153, 2013/07/15 14:55:14
|
Line 1578 sub print_userlist {
|
Line 1578 sub print_userlist {
|
@statuses = ('future'); |
@statuses = ('future'); |
} |
} |
|
|
# if ($context eq 'course') { |
|
# $r->print(&display_adv_courseroles()); |
|
# } |
|
# |
|
# Interface output |
# Interface output |
$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n". |
$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n". |
'<input type="hidden" name="action" value="'. |
'<input type="hidden" name="action" value="'. |
Line 1635 sub print_userlist {
|
Line 1631 sub print_userlist {
|
|
|
my @cols = &infocolumns($context,$mode,$showcredits); |
my @cols = &infocolumns($context,$mode,$showcredits); |
if (!@cols) { |
if (!@cols) { |
$r->print('<hr clear="all" /><span class="LC_warning">'. |
$r->print('<hr style="clear:both;" /><span class="LC_warning">'. |
&mt('No user information selected for display.').'</span>'. |
&mt('No user information selected for display.').'</span>'. |
'<input type="hidden" name="phase" value="display" /></form>'."\n"); |
'<input type="hidden" name="phase" value="display" /></form>'."\n"); |
return; |
return; |
Line 1678 sub print_userlist {
|
Line 1674 sub print_userlist {
|
$r->print('<hr />'.&mt('Searching ...').'<br /> <br />'); |
$r->print('<hr />'.&mt('Searching ...').'<br /> <br />'); |
} |
} |
} else { |
} else { |
$r->print('<hr clear="all" /><div id="searching">'.&mt('Searching ...').'</div>'); |
$r->print('<hr style="clear:both;" /><div id="searching">'.&mt('Searching ...').'</div>'); |
} |
} |
$r->rflush(); |
$r->rflush(); |
if ($context eq 'course') { |
if ($context eq 'course') { |
Line 2380 sub instcode_from_coursefilter {
|
Line 2376 sub instcode_from_coursefilter {
|
return $instcode; |
return $instcode; |
} |
} |
|
|
sub display_adv_courseroles { |
|
my $output; |
|
# |
|
# List course personnel |
|
my %coursepersonnel = |
|
&Apache::lonnet::get_course_adv_roles($env{'request.course.id'}); |
|
# |
|
$output = '<br />'.&Apache::loncommon::start_data_table(); |
|
foreach my $role (sort(keys(%coursepersonnel))) { |
|
next if ($role =~ /^\s*$/); |
|
$output .= &Apache::loncommon::start_data_table_row(). |
|
'<td>'.$role.'</td><td>'; |
|
foreach my $user (split(',',$coursepersonnel{$role})) { |
|
my ($puname,$pudom)=split(':',$user); |
|
$output .= ' '.&Apache::loncommon::aboutmewrapper( |
|
&Apache::loncommon::plainname($puname,$pudom), |
|
$puname,$pudom); |
|
} |
|
$output .= '</td>'.&Apache::loncommon::end_data_table_row(); |
|
} |
|
$output .= &Apache::loncommon::end_data_table(); |
|
} |
|
|
|
sub make_keylist_array { |
sub make_keylist_array { |
my ($index,$keylist); |
my ($index,$keylist); |
$index->{'domain'} = &Apache::loncoursedata::CL_SDOM(); |
$index->{'domain'} = &Apache::loncoursedata::CL_SDOM(); |
Line 4645 sub upfile_drop_add {
|
Line 4618 sub upfile_drop_add {
|
# Get current classlist |
# Get current classlist |
my $classlist = &Apache::loncoursedata::get_classlist(); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
if (! defined($classlist)) { |
if (! defined($classlist)) { |
$r->print('<form name="studentform" method="post" action="/adm/createuser" />'. |
$r->print('<form name="studentform" method="post" action="/adm/createuser">'. |
'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'. |
'<input type="hidden" name="action" value="'.$env{'form.action'}.'" />'. |
'<p class="LC_info">'.&mt('There are no students with current/future access to the course.').'</p>'. |
'<p class="LC_info">'.&mt('There are no students with current/future access to the course.').'</p>'. |
'</form>'."\n"); |
'</form>'."\n"); |
Line 4768 sub print_drop_menu {
|
Line 4741 sub print_drop_menu {
|
$heading = &mt("Drop Students"); |
$heading = &mt("Drop Students"); |
} |
} |
$r->print('<h3>'.$heading.'</h3>'."\n". |
$r->print('<h3>'.$heading.'</h3>'."\n". |
'<form name="studentform" method="post">'."\n"); |
'<form name="studentform" method="post" action="">'."\n"); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
my $classlist = &Apache::loncoursedata::get_classlist(); |
if (! defined($classlist)) { |
if (! defined($classlist)) { |
my $msg = ''; |
my $msg = ''; |