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="<{'view'}"> |
|
<{'or'} <input type="submit" name="problemmode" accesskey="e" value="<{'Edit'}"> |
|
<{'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') || |