--- loncom/homework/lonhomework.pm 2005/01/31 21:57:32 1.196 +++ loncom/homework/lonhomework.pm 2005/03/17 21:20:23 1.199 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # The LON-CAPA Homework handler # -# $Id: lonhomework.pm,v 1.196 2005/01/31 21:57:32 albertel Exp $ +# $Id: lonhomework.pm,v 1.199 2005/03/17 21:20:23 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,11 +435,7 @@ 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); } @@ -496,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().'
'. &Apache::structuretags::remember_problem_state().' @@ -636,7 +638,7 @@ sub editxmlmode {
' . $xml_help . ' -
'; &Apache::lonxml::add_messages(\$result);