loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.238, 2006/04/11 21:05:54	version 1.239, 2006/04/11 21:08:29
Line 941 ENDNEWPROBLEM	Line 941 ENDNEWPROBLEM
return '';	return '';
}	}

sub view_or_edit_menu {
my ($request) = @_;
my $url=&HTML::Entities::encode($request->uri,'<>&"');
my %lt=&Apache::lonlocal::texthash( 'would' => 'Would you like to',
'view' => 'View',
'Edit' => 'edit',
'or' => 'or',
'the problem' => 'the problem');
$request->print(<<EDITMENU);
<body bgcolor="#FFFFFF">
<form action="$url" method="POST">
$lt{'would'} <input type="submit" name="problemmode" accesskey="v" value="&lt{'view'}">
&lt{'or'} <input type="submit" name="problemmode" accesskey="e" value="&lt{'Edit'}">
&lt{'the problem'}.
</form>
</body>
EDITMENU
}

sub handler {	sub handler {
#my $t0 = [&gettimeofday()];	#my $t0 = [&gettimeofday()];
my $request=$_[0];	my $request=$_[0];
Line 997 sub handler {	Line 978 sub handler {
['problemmode']);	['problemmode']);
if (!(defined $env{'form.problemmode'})) {	if (!(defined $env{'form.problemmode'})) {
#first visit to problem in construction space	#first visit to problem in construction space
#&view_or_edit_menu($request);
$env{'form.problemmode'}='View';	$env{'form.problemmode'}='View';
&renderpage($request,$file);	&renderpage($request,$file);
} elsif ($env{'form.problemmode'} eq &mt('EditXML') \|\|	} elsif ($env{'form.problemmode'} eq &mt('EditXML') \|\|