--- loncom/homework/lonhomework.pm 2002/06/21 20:27:54 1.80
+++ loncom/homework/lonhomework.pm 2002/07/29 20:40:34 1.83
@@ -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.83 2002/07/29 20:40:34 albertel 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;
@@ -41,8 +42,15 @@ use Apache::randomlabel();
use Apache::response();
use Apache::hint();
use Apache::outputtags();
+use Apache::caparesponse();
+use Apache::radiobuttonresponse();
+use Apache::optionresponse();
+use Apache::imageresponse();
+use Apache::essayresponse();
+use Apache::externalresponse();
use Apache::Constants qw(:common);
use HTML::Entities();
+use Apache::loncommon();
#use Time::HiRes qw( gettimeofday tv_interval );
BEGIN {
@@ -81,7 +89,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 +323,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
';