version 1.81, 2002/06/26 17:20:38
|
version 1.83, 2002/07/29 20:40:34
|
Line 28
|
Line 28
|
# Guy Albertelli |
# Guy Albertelli |
# 11/30 Gerd Kortemeyer |
# 11/30 Gerd Kortemeyer |
# 6/1,8/17,8/18 Gerd Kortemeyer |
# 6/1,8/17,8/18 Gerd Kortemeyer |
|
# 7/18 Jeremy Bowers |
|
|
package Apache::lonhomework; |
package Apache::lonhomework; |
use strict; |
use strict; |
Line 41 use Apache::randomlabel();
|
Line 42 use Apache::randomlabel();
|
use Apache::response(); |
use Apache::response(); |
use Apache::hint(); |
use Apache::hint(); |
use Apache::outputtags(); |
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 Apache::Constants qw(:common); |
use HTML::Entities(); |
use HTML::Entities(); |
|
use Apache::loncommon(); |
#use Time::HiRes qw( gettimeofday tv_interval ); |
#use Time::HiRes qw( gettimeofday tv_interval ); |
|
|
BEGIN { |
BEGIN { |
Line 315 sub editxmlmode {
|
Line 323 sub editxmlmode {
|
&renderpage($request,$file); |
&renderpage($request,$file); |
} else { |
} else { |
my ($rows,$cols) = &Apache::edit::textarea_sizes(\$problem); |
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; } |
if ($cols > 80) { $cols = 80; } |
$result.='<html><body bgcolor="#FFFFFF"> |
$result.='<html><body bgcolor="#FFFFFF"> |
<form name="lonhomework" method="POST" action="'. |
<form name="lonhomework" method="POST" action="'. |
Line 327 sub editxmlmode {
|
Line 336 sub editxmlmode {
|
<input type="submit" name="submit" value="Submit Changes and View" /> |
<input type="submit" name="submit" value="Submit Changes and View" /> |
<input type="submit" name="Undo" value="undo" /> |
<input type="submit" name="Undo" value="undo" /> |
<hr /> |
<hr /> |
|
' . $xml_help . ' Problem Help<br> |
<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'. |
<textarea rows="'.$rows.'" cols="'.$cols.'" name="editxmltext">'. |
&HTML::Entities::encode($problem).'</textarea> |
&HTML::Entities::encode($problem).'</textarea> |
</form></body></html>'; |
</form></body></html>'; |