version 1.109, 2003/02/25 18:49:05
|
version 1.113, 2003/03/07 23:43:21
|
Line 429 sub editxmlmode {
|
Line 429 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"); |
my $xml_help = '<table><tr><td>'. |
|
&Apache::loncommon::help_open_topic("Problem_Editor_XML_Index",'Problem Editing Help') |
|
.'</td><td>'. |
|
&Apache::loncommon::help_open_topic("Greek_Symbols",'Greek Symbols', |
|
undef,undef,600) |
|
.'</td><td>'. |
|
&Apache::loncommon::help_open_topic("Other_Symbols",'Other Symbols', |
|
undef,undef,600) |
|
.'</td></tr></table>'; |
if ($cols > 80) { $cols = 80; } |
if ($cols > 80) { $cols = 80; } |
if ($cols < 70) { $cols = 70; } |
if ($cols < 70) { $cols = 70; } |
if ($rows < 20) { $rows = 20; } |
if ($rows < 20) { $rows = 20; } |
Line 444 sub editxmlmode {
|
Line 452 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> |
' . $xml_help . ' |
<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>'; |
Line 475 sub renderpage {
|
Line 483 sub renderpage {
|
&Apache::lonxml::debug("Should be parsing now"); |
&Apache::lonxml::debug("Should be parsing now"); |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
$result = &Apache::lonxml::xmlparse($request, $target, $problem, |
&setup_vars($target),%mystyle); |
&setup_vars($target),%mystyle); |
|
undef($Apache::lonhomework::parsing_a_problem); |
#$request->print("Result follows:"); |
#$request->print("Result follows:"); |
if ($target eq 'modified') { |
if ($target eq 'modified') { |
&handle_save_or_undo($request,\$problem,\$result); |
&handle_save_or_undo($request,\$problem,\$result); |
Line 490 sub renderpage {
|
Line 498 sub renderpage {
|
#$result.="<br />Spent $td seconds processing target $target\n</body>"; |
#$result.="<br />Spent $td seconds processing target $target\n</body>"; |
#} |
#} |
$request->print($result); |
$request->print($result); |
|
$request->rflush(); |
} |
} |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
#my $td=&tv_interval($t0); |
#my $td=&tv_interval($t0); |