loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.31, 2007/12/23 03:21:28	version 1.32, 2007/12/23 15:50:24
Line 3888 sub update_user_list {	Line 3888 sub update_user_list {
$plrole,$extent,$uname.':'.$udom,$result).'<br />');	$plrole,$extent,$uname.':'.$udom,$result).'<br />');
}	}
}	}
	$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n");
	foreach my $item ('action','sortby','roletype','showrole','Status') {
	if ($env{'form.'.$item} ne '') {
	$r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n");
	}
	}
$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>');	$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>');
if ($count > 0) {	if ($count > 0) {
if ($choice eq 'revoke' \|\| $choice eq 'drop') {	if ($choice eq 'revoke' \|\| $choice eq 'drop') {
Line 3901 sub update_user_list {	Line 3907 sub update_user_list {
$r->print(&make_dates_default($startdate,$enddate,$context));	$r->print(&make_dates_default($startdate,$enddate,$context));
}	}
}	}
	$r->print('<a href="javascript:document.studentform.submit()">'.&mt('Display User Lists').'</a></form>'."\n");
}	}

sub classlist_drop {	sub classlist_drop {