--- loncom/homework/lonhomework.pm 2002/06/21 20:27:54 1.80
+++ loncom/homework/lonhomework.pm 2002/07/18 20:52:36 1.82
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.80 2002/06/21 20:27:54 albertel Exp $
+# $Id: lonhomework.pm,v 1.82 2002/07/18 20:52:36 bowersj2 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -28,6 +28,7 @@
# Guy Albertelli
# 11/30 Gerd Kortemeyer
# 6/1,8/17,8/18 Gerd Kortemeyer
+# 7/18 Jeremy Bowers
package Apache::lonhomework;
use strict;
@@ -43,6 +44,7 @@ use Apache::hint();
use Apache::outputtags();
use Apache::Constants qw(:common);
use HTML::Entities();
+use Apache::loncommon;
#use Time::HiRes qw( gettimeofday tv_interval );
BEGIN {
@@ -81,7 +83,7 @@ sub get_target {
} elsif ( $ENV{'form.problemmode'} eq 'Edit' ) {
if ( $ENV{'form.submitted'} eq 'edit' ) {
if ( $ENV{'form.submit'} eq 'Submit Changes and View' ) {
- return ('modified','web','asnwer');
+ return ('modified','web','answer');
} else {
return ('modified','edit');
}
@@ -315,6 +317,7 @@ sub editxmlmode {
&renderpage($request,$file);
} else {
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem);
+ my $xml_help = Apache::loncommon::help_open_topic("Problem_Editor_XML_Index");
if ($cols > 80) { $cols = 80; }
$result.='
+ ' . $xml_help . ' Problem Help
';