loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.306, 2006/05/16 20:43:57	version 1.307, 2006/05/18 01:08:51
Line 63 use Apache::lonhomework;	Line 63 use Apache::lonhomework;
use Apache::lonxml;	use Apache::lonxml;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonnavmaps;	use Apache::lonnavmaps;
	use Apache::longroup;
use Apache::lonrss;	use Apache::lonrss;

# --- Caches local to lonparmset	# --- Caches local to lonparmset
Line 1125 sub usermenu {	Line 1126 sub usermenu {
my %sectionhash = &Apache::loncommon::get_sections();	my %sectionhash = &Apache::loncommon::get_sections();

my $groups;	my $groups;
my %grouphash = &Apache::loncommon::coursegroups();	my %grouphash = &Apache::longroup::coursegroups();

if (%sectionhash) {	if (%sectionhash) {
$sections=$lt{'se'}.': <select name="csec"';	$sections=$lt{'se'}.': <select name="csec"';
Line 1265 sub sectionmenu {	Line 1266 sub sectionmenu {

sub groupmenu {	sub groupmenu {
my ($r,$selectedgroups)=@_;	my ($r,$selectedgroups)=@_;
my %grouphash = &Apache::loncommon::coursegroups();	my %grouphash = &Apache::longroup::coursegroups();
return if (!%grouphash);	return if (!%grouphash);

$r->print('<select name="Group" multiple="true" size="8" >');	$r->print('<select name="Group" multiple="true" size="8" >');