version 1.24, 2003/09/16 15:41:16
|
version 1.25, 2003/09/29 14:00:21
|
Line 62 use Apache::assesscalc();
|
Line 62 use Apache::assesscalc();
|
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
|
use Apache::lonlocal; |
use HTML::Entities(); |
use HTML::Entities(); |
|
|
## |
## |
Line 208 sub handler {
|
Line 209 sub handler {
|
# HTML Header |
# HTML Header |
# |
# |
if ($r->header_only) { |
if ($r->header_only) { |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
Line 297 sub handler {
|
Line 298 sub handler {
|
# |
# |
# Open page, try to prevent browser cache. |
# Open page, try to prevent browser cache. |
# |
# |
$r->content_type('text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
|
|
Line 456 END
|
Line 457 END
|
# |
# |
$r->print("<table><tr>"); |
$r->print("<table><tr>"); |
if ($sheettype eq 'classcalc') { |
if ($sheettype eq 'classcalc') { |
$r->print('<td><input type="submit" value="Generate Spreadsheet" />'. |
$r->print('<td><input type="submit" value="'. |
|
&mt('Generate Spreadsheet').'" />'. |
'</td>'); |
'</td>'); |
} |
} |
if ($allowed_to_view) { |
if ($allowed_to_view) { |