loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

Diff for /loncom/homework/lonhomework.pm between versions 1.309 and 1.311

version 1.309, 2009/03/30 04:49:35	version 1.311, 2009/05/19 22:52:19
Line 689 sub analyze_header {	Line 689 sub analyze_header {
my ($request) = @_;	my ($request) = @_;
my $js = &Apache::structuretags::setmode_javascript();	my $js = &Apache::structuretags::setmode_javascript();
my $result =	my $result =
&Apache::loncommon::start_page('Analyzing a problem',$js);	&Apache::loncommon::start_page('Analyzing a problem',$js)
	.&Apache::lonhtmlcommon::breadcrumbs() # FIXME add breadcrumbs
	.&Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader());
$result .=	$result .=
&Apache::lonxml::message_location().'	&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'},'<>&"').'">'.
'<input type="hidden" name="problemmode" value="'.	'<input type="hidden" name="problemmode" value="'.
$env{'form.problemmode'}.'" />'.	$env{'form.problemmode'}.'" />'.
Line 922 sub editxmlmode {	Line 924 sub editxmlmode {
'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],	'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],
'onload' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],	'onload' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],
}});	}});
$result.=$start_page.
&renderpage($request,$file,['no_output_web'],1).	$result=$start_page
'<form '.&Apache::edit::form_change_detection().' name="lonhomework" method="POST" action="'.	.&Apache::lonhtmlcommon::breadcrumbs() # FIXME add breadcrumbs
	.&Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader());
	$result.=&renderpage($request,$file,['no_output_web'],1).
	'<form '.&Apache::edit::form_change_detection().' 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().'
<div class="LC_edit_problem_editxml_header">	<div class="LC_edit_problem_editxml_header">
Line 1136 sub newproblem {	Line 1142 sub newproblem {
my $instructions;	my $instructions;
my $start_page =	my $start_page =
&Apache::loncommon::start_page("Create New $extension");	&Apache::loncommon::start_page("Create New $extension");
$request->print("
$start_page	$request->print(
<h1>".&mt("Creating a new $extension resource.")."</h1>	$start_page
	.&Apache::lonhtmlcommon::breadcrumbs() # FIXME add breadcrumbs
	.&Apache::loncommon::head_subbox(
	&Apache::loncommon::CSTR_pageheader())
	.'<h1>'.&mt("Creating a new $extension resource.")."</h1>
$errormsg	$errormsg
".&mt("The requested file [_1] currently does not exist.",	".&mt("The requested file [_1] currently does not exist.",
'<span class="LC_filename">'.$shownurl.'</span>')."	'<span class="LC_filename">'.$shownurl.'</span>')."
<p>	<p>
<b>	<b>
".&mt("To create a new $extension, select a template from the".	".&mt("To create a new $extension, select a template from the".
" list below. Then click on the \"Create $extension\" button.")."</b>	" list below. Then click on the \"Create $extension\" button.").'</b>
</p><form action=\"$url\" method=\"POST\">");	</p><form action="'.$url.'" method="post">');

if (defined($templatelist)) {	if (defined($templatelist)) {
$request->print($templatelist);	$request->print($templatelist);

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.309
changed lines
	Added in v.1.311