version 1.61, 2001/10/31 17:44:42
|
version 1.62, 2001/11/05 22:49:14
|
Line 23 sub BEGIN {
|
Line 23 sub BEGIN {
|
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if ( $ENV{'request.state'} eq "published") { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined($ENV{'form.submitted'})) { |
return ('grade', 'web'); |
return ('grade', 'web'); |
} else { |
} else { |
return ('web'); |
return ('web'); |
} |
} |
} elsif ($ENV{'request.state'} eq "construct") { |
} elsif ($ENV{'request.state'} eq "construct") { |
if ( defined $ENV{'form.preview'}) { |
if ( defined($ENV{'form.preview'})) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined($ENV{'form.submitted'})) { |
return ('grade', 'web'); |
return ('grade', 'web'); |
} else { |
} else { |
return ('web'); |
return ('web'); |
} |
} |
} else { |
} else { |
if ( $ENV{'form.problemmode'} eq 'View' ) { |
if ( $ENV{'form.problemmode'} eq 'View' ) { |
if ( defined $ENV{'form.submitted'}) { |
if ( defined($ENV{'form.submitted'}) && |
|
(!defined($ENV{'form.resetdata'})) ) { |
return ('grade', 'web','answer'); |
return ('grade', 'web','answer'); |
} else { |
} else { |
return ('web','answer'); |
return ('web','answer'); |
Line 351 sub handler {
|
Line 352 sub handler {
|
} |
} |
|
|
if ($ENV{'request.state'} eq "construct") { |
if ($ENV{'request.state'} eq "construct") { |
|
if ($ENV{'form.resetdata'} eq 'Reset Submissions') { |
|
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
|
&Apache::lonnet::tmpreset($symb,'',$domain,$name); |
|
} |
if ( -e $file ) { |
if ( -e $file ) { |
if (!(defined $ENV{'form.problemmode'})) { |
if (!(defined $ENV{'form.problemmode'})) { |
#first visit to problem in construction space |
#first visit to problem in construction space |