--- loncom/homework/lonhomework.pm 2005/01/28 09:48:53 1.193
+++ loncom/homework/lonhomework.pm 2005/03/16 19:09:43 1.198
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.193 2005/01/28 09:48:53 albertel Exp $
+# $Id: lonhomework.pm,v 1.198 2005/03/16 19:09:43 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -209,6 +209,10 @@ sub check_ip_acc {
}
return $allowed;
}
+
+sub check_task_access {
+ return &check_access;
+}
# JB, 9/24/2002: Any changes in this function may require a change
# in lonnavmaps::resource::getDateStatus.
sub check_access {
@@ -431,14 +435,12 @@ sub setuppermissions {
sub setupheader {
my $request=$_[0];
- if ($ENV{'browser.mathml'}) {
- &Apache::loncommon::content_type($request,'text/xml');
- } else {
- &Apache::loncommon::content_type($request,'text/html');
- }
+ &Apache::loncommon::content_type($request,'text/html');
if (!$Apache::lonxml::debug && ($ENV{'REQUEST_METHOD'} eq 'GET')) {
&Apache::loncommon::no_cache($request);
}
+# $request->set_last_modified(&Apache::lonnet::metadata($request->uri,
+# 'lastrevisiondate'));
$request->send_http_header;
return OK if $request->header_only;
return ''
@@ -494,7 +496,8 @@ sub analyze_header {
if ($ENV{'environment.remote'} eq 'off') {
$bodytag=&Apache::loncommon::bodytag();
}
- my $result.='
+ my $html=&Apache::lonxml::xmlbegin();
+ my $result.=$html.'
'.&mt("Analyzing a problem").'
'.$bodytag.&Apache::lonxml::message_location().'