--- loncom/homework/structuretags.pm 2007/10/31 01:37:52 1.408
+++ loncom/homework/structuretags.pm 2007/11/13 23:33:01 1.413
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.408 2007/10/31 01:37:52 albertel Exp $
+# $Id: structuretags.pm,v 1.413 2007/11/13 23:33:01 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -199,7 +199,7 @@ sub page_start {
}
}
- if (!defined($found{'body'})) {
+ if (!defined($found{'body'}) && $env{'request.state'} ne 'construct') {
$page_start .= &Apache::lonxml::message_location();
}
@@ -317,14 +317,29 @@ sub problem_edit_header {
+'.&Apache::lonxml::message_location().'
'.
'';
}
sub problem_edit_footer {
- return ' |
- '.
+ return '
+
+'.
+
&Apache::lonhtmlcommon::htmlareaselectactive(&Apache::lonhtmlcommon::get_htmlareafields()).
"\n\n".&Apache::loncommon::end_page();
}
@@ -460,9 +475,9 @@ $show_all
$result.='';
$result .= '';
$result .= '';
-
$result.='
+ '.&Apache::lonxml::message_location().'
';
return $result;
}
@@ -722,7 +737,7 @@ sub start_problem {
if ($target ne 'analyze') {
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
if (($env{'request.state'} eq 'construct') &&
- defined($env{'form.problemtype'})) {
+ $env{'form.problemtype'} =~ /\S/) {
$Apache::lonhomework::type=$env{'form.problemtype'};
}
&Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");