loncom/interface/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.100, 2002/08/16 18:25:24	version 1.101, 2002/08/21 17:18:08
Line 2529 $tmpdir=$r->dir_config('lonDaemons').'/t	Line 2529 $tmpdir=$r->dir_config('lonDaemons').'/t

</script>	</script>
ENDSCRIPT	ENDSCRIPT
$r->print('</head><body bgcolor="#FFFFFF">'.	$r->print('</head>'.&Apache::loncommon::bodytag('Grades Spreadsheet').
'<img align=right src=/adm/lonIcons/lonlogos.gif>'.
'<h1>LON-CAPA Spreadsheet</h1>'.
'<form action="'.$r->uri.'" name=sheet method=post>'.	'<form action="'.$r->uri.'" name=sheet method=post>'.
&hiddenfield('uname',$ENV{'form.uname'}).	&hiddenfield('uname',$ENV{'form.uname'}).
&hiddenfield('udom',$ENV{'form.udom'}).	&hiddenfield('udom',$ENV{'form.udom'}).
Line 2595 ENDSCRIPT	Line 2593 ENDSCRIPT
}	}
}	}

# ---------------------------------------------------------------- Course title

$r->print('<h1>'.
$ENV{'course.'.$ENV{'request.course.id'}.'.description'}.
'</h1><h3>'.localtime().'</h3>');

# ---------------------------------------------------- See if user can see this	# ---------------------------------------------------- See if user can see this

if ((&gettype($asheet) eq 'classcalc') \|\|	if ((&gettype($asheet) eq 'classcalc') \|\|