loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

version 1.37, 2004/04/26 14:06:00	version 1.39, 2004/10/12 20:51:54
Line 293 sub handler {	Line 293 sub handler {
# Check that the student is in their section?	# Check that the student is in their section?
if (exists($ENV{'request.course.sec'}) &&	if (exists($ENV{'request.course.sec'}) &&
$ENV{'request.course.sec'} ne '' ) {	$ENV{'request.course.sec'} ne '' ) {
my $stu_sec = &Apache::lonnet::usection($domain,$name,	my $stu_sec = &Apache::lonnet::getsection($domain,$name,
$ENV{'request.course.id'});	$ENV{'request.course.id'});
if ($stu_sec ne $ENV{'request.course.sec'}) {	if ($stu_sec ne $ENV{'request.course.sec'}) {
$ENV{'user.error.msg'}=	$ENV{'user.error.msg'}=
$r->uri.":vgr:0:0:Requested student not in your section.";	$r->uri.":vgr:0:0:Requested student not in your section.";
Line 473 ENDSCRIPT	Line 473 ENDSCRIPT
}	}
$action_message .= '.';	$action_message .= '.';
}	}
$r->print('<table><tr><td>'.$spreadsheet->html_header().'</td>'.	$r->print('<table><tr><td valign="top">'.
'<td valign="bottom">'.$html."</td></tr></table>\n");	$spreadsheet->html_header().
	'</td>'.
	'<td valign="center">'.$html."</td></tr></table>\n");
if ($action_message ne '') {	if ($action_message ne '') {
$r->print(<<END);	$r->print(<<END);
<table>	<table>