loncom/interface/loncreateuser.pm - diff

Return to loncreateuser.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.94, 2004/12/28 22:30:28	version 1.96, 2005/01/11 21:46:52
Line 1237 END	Line 1237 END
$r->print(&commit_standardrole($url,$2,$start,$end,$1,undef,''));	$r->print(&commit_standardrole($url,$2,$start,$end,$1,undef,''));
}	}
}	}
# Assign the role and report it.
$r->print(&mt('Assigning').' '.$2.' in '.$url.': '.
($start?', '.&mt('starting').' '.localtime($start):'').
($end?', '.&mt('ending').' '.localtime($end):'').': <b>'.
&Apache::lonnet::assignrole(
$ENV{'form.ccdomain'},$ENV{'form.ccuname'},
$url,$2,$end,$start)
.'</b><br>');
} else {	} else {
$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>');	$r->print('<p>'.&mt('ERROR').': '.&mt('Unknown command').' <tt>'.$_.'</tt></p><br>');
}	}
Line 1722 sub course_sections {	Line 1714 sub course_sections {
$output = '<select name="currsec_'.$role.'" ';	$output = '<select name="currsec_'.$role.'" ';
my $multiple = 4;	my $multiple = 4;
if ($num_sections <4) { $multiple = $num_sections; }	if ($num_sections <4) { $multiple = $num_sections; }
$output .= '"multiple size="'.$multiple.'" >'."\n";	$output .= '"multiple" size="'.$multiple.'">'."\n";
foreach (@sections) {	foreach (@sections) {
$output .= '<option value="'.$_.'">'.$_."</option>\n";	$output .= '<option value="'.$_.'">'.$_."</option>\n";
}	}