version 1.75, 2002/03/29 19:19:21
|
version 1.77, 2002/04/11 16:02:32
|
Line 334 sub renderpage {
|
Line 334 sub renderpage {
|
&Apache::edit::initialize_edit; |
&Apache::edit::initialize_edit; |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'analyze') { %Apache::lonhomework::anaylze=(); } |
if ($target eq 'web') { |
if ($target eq 'web') { |
if (&Apache::lonnet::symbread() eq '') { |
my ($symb)=&Apache::lonxml::whichuser(); |
|
if ($symb eq '') { |
if ($ENV{'request.state'} eq "construct") { |
if ($ENV{'request.state'} eq "construct") { |
} else { |
} else { |
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />"); |
$request->print("Browsing or <a href=\"/adm/ambiguous\">ambiguous</a> reference, submissions ignored<br />"); |
Line 471 sub handler {
|
Line 472 sub handler {
|
# some times multiple problemmodes are submitted, need to select |
# some times multiple problemmodes are submitted, need to select |
# the last one |
# the last one |
if ( defined($ENV{'form.problemmode'}) && |
if ( defined($ENV{'form.problemmode'}) && |
defined(@{ $ENV{'form.problemmode'} })) { |
ref($ENV{'form.problemmode'}) ) { |
my $mode=$ENV{'form.problemmode'}->[-1]; |
my $mode=$ENV{'form.problemmode'}->[-1]; |
undef $ENV{'form.problemmode'}; |
undef $ENV{'form.problemmode'}; |
$ENV{'form.problemmode'}=$mode; |
$ENV{'form.problemmode'}=$mode; |