--- loncom/interface/loncommon.pm 2006/04/18 20:50:30 1.340 +++ loncom/interface/loncommon.pm 2006/04/18 20:55:14 1.341 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.340 2006/04/18 20:50:30 albertel Exp $ +# $Id: loncommon.pm,v 1.341 2006/04/18 20:55:14 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -3126,6 +3126,38 @@ sub font_settings { return $headerstring; } +=pod + +=over 4 + +=item * &xml_begin() + +Returns the needed doctype and + +Inputs: none + +=back + +=cut + +sub xml_begin { + my $output=''; + + @Apache::lonxml::htmlareafields=(); + if ($env{'browser.mathml'}) { + $output='' + #.''."\n" +# .'] >' + .'' + .''; + } else { + $output=''; + } + return $output; +} =pod @@ -3219,7 +3251,7 @@ sub start_page { my $result; if (! exists($args->{'skip_phases'}{'head'}) ) { $result.= - &Apache::lonxml::xmlbegin(). + &xml_begin(). &headtag($title,$head_extra,\%head_args).&endheadtag(); }