--- loncom/homework/structuretags.pm 2004/06/03 16:42:02 1.255
+++ loncom/homework/structuretags.pm 2004/07/03 20:52:19 1.260
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.255 2004/06/03 16:42:02 www Exp $
+# $Id: structuretags.pm,v 1.260 2004/07/03 20:52:19 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -84,7 +84,6 @@ sub page_start {
$parstack,$parser,$safeeval);
$head_tag_start='
'.&Apache::lonmenu::registerurl(undef,$target).
&Apache::lonhtmlcommon::htmlareaheaders();
- @Apache::lonxml::htmlareafields=();
}
my $body_tag_start;
if (!defined($found{'body'})) {
@@ -192,10 +191,8 @@ sub problem_edit_header {
'.
- &Apache::loncommon::help_open_topic('Problem_Editor_XML_Index',
- 'Problem Editing Help').' | '.
- &Apache::loncommon::help_open_faq(5).
- &Apache::loncommon::help_open_bug('Authoring').' |
'.
+ &Apache::loncommon::help_open_menu('','Problem Editing Help','Problem_Editor_XML_Index','',5,'Authoring',undef,undef,undef,'Problem Editing Help')
+ .''.
'';
}
@@ -568,7 +565,7 @@ sub start_problem {
my @due_file_content = <$temp_file>;
my $due_file_content = $due_file_content[$#due_file_content];
chomp $due_file_content;
- my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval));
+ my $name_of_resourse= &Apache::lonxml::latex_special_symbols(&get_resource_name($parstack,$safeeval),'header');
if ($due_file_content ne $duedate) {
$temp_file = Apache::File->new('>'.$filename);
print $temp_file "$duedate\n";
@@ -647,6 +644,10 @@ sub end_problem {
if (not $ENV{'form.problem_split'}=~/yes/) {
$endminipage = '\end{minipage}';
}
+ if ($ENV{'form.print_discussions'} eq 'yes') {
+ $result.=&Apache::lonxml::xmlend();
+ $result=~s/<\/html>//;
+ }
$result .= '\keephidden{ENDOFPROBLEM}\vskip 0.5mm\noindent\makebox[\textwidth/$number_of_columns][b]{\hrulefill}';
if (not $ENV{'request.symb'} =~ m/\.page_/) {
$result .= $endminipage.'\end{document} ';
@@ -670,6 +671,7 @@ sub end_problem {
$result=&Apache::response::mandatory_part_meta;
}
$result.=&Apache::response::meta_part_order();
+ $result.=&Apache::response::meta_response_order();
} elsif ($target eq 'edit') {
&Apache::lonxml::debug("in end_problem with $target, edit");
$result = &problem_edit_footer();
@@ -1038,7 +1040,11 @@ sub start_part {
@Apache::inputtags::previous_version=();
$Apache::lonhomework::problemstatus=&get_problem_status($id);
my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
+ my $newtype=&Apache::lonnet::EXT("resource.$id.type");
+ if ($newtype) { $Apache::lonhomework::type=$newtype; }
+
my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
+ $expression.='$external::type=\''.$Apache::lonhomework::type.'\';';
&Apache::run::run($expression,$safeeval);
if ($target eq 'meta') {
|