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') || |