version 1.237, 2006/03/24 17:34:11
|
version 1.238, 2006/04/11 21:05:54
|
Line 622 sub handle_save_or_undo {
|
Line 622 sub handle_save_or_undo {
|
|
|
sub analyze_header { |
sub analyze_header { |
my ($request) = @_; |
my ($request) = @_; |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef, |
my $result = |
($env{'environment.remote'} ne 'off')); |
&Apache::loncommon::start_page('Analyzing a problem',undef, |
my $html=&Apache::lonxml::xmlbegin(); |
{'only_body' => ($env{'environment.remote'} ne 'off'),}); |
my $result.=$html.' |
$result .= |
<head><title>'.&mt("Analyzing a problem").'</title></head> |
&Apache::lonxml::message_location().' |
'.$bodytag.&Apache::lonxml::message_location().' |
|
<form name="lonhomework" method="POST" action="'. |
<form name="lonhomework" method="POST" action="'. |
&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'. |
&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'. |
&Apache::structuretags::remember_problem_state().' |
&Apache::structuretags::remember_problem_state().' |
Line 755 sub editxmlmode {
|
Line 754 sub editxmlmode {
|
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; } |
my $bodytag=&Apache::loncommon::bodytag(undef,undef,undef, |
my $start_page = |
($env{'environment.remote'} ne 'off')); |
&Apache::loncommon::start_page("EditXML $file", |
my $html=&Apache::lonxml::xmlbegin(); |
&Apache::edit::js_change_detection(), |
my $head="<head><title>EditXML $file</title>". |
{'only_body' => |
&Apache::edit::js_change_detection()."</head>"; |
($env{'environment.remote'} ne 'off')}); |
|
|
$result.=$html.$head.$bodytag. |
$result.=$start_page. |
&renderpage($request,$file,['no_output_web'],1). |
&renderpage($request,$file,['no_output_web'],1). |
&Apache::lonxml::message_location().' |
&Apache::lonxml::message_location().' |
<form '.&Apache::edit::form_change_detection().' name="lonhomework" method="POST" action="'. |
<form '.&Apache::edit::form_change_detection().' name="lonhomework" method="POST" action="'. |
Line 780 sub editxmlmode {
|
Line 779 sub editxmlmode {
|
&HTML::Entities::encode($problem,'<>&"').'</textarea><br /> |
&HTML::Entities::encode($problem,'<>&"').'</textarea><br /> |
<input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes').'" /> |
<input type="submit" name="submit" accesskey="s" value="'.&mt('Submit Changes').'" /> |
<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /> |
<input type="submit" name="submit" accesskey="v" value="'.&mt('Submit Changes and View').'" /> |
</form></body></html>'; |
</form>'.&Apache::loncommon::end_page(); |
&Apache::lonxml::add_messages(\$result); |
&Apache::lonxml::add_messages(\$result); |
$request->print($result); |
$request->print($result); |
} |
} |
Line 937 ENDNEWPROBLEM
|
Line 936 ENDNEWPROBLEM
|
$request->print("<select name=\"template\">$templatelist</select>"); |
$request->print("<select name=\"template\">$templatelist</select>"); |
} |
} |
$request->print("<br /><input type=\"submit\" name=\"newfile\" value=\"".&mt('Create')." $extension\" />"); |
$request->print("<br /><input type=\"submit\" name=\"newfile\" value=\"".&mt('Create')." $extension\" />"); |
$request->print("</form></p></body>"); |
$request->print("</form></p>".&Apache::loncommon::end_page()); |
} |
} |
return ''; |
return ''; |
} |
} |