version 1.123, 2003/05/09 22:24:05
|
version 1.124, 2003/05/12 21:22:57
|
Line 61 BEGIN {
|
Line 61 BEGIN {
|
} |
} |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if (($ENV{'request.state'} eq "published") || |
|
($ENV{'request.state'} eq "uploaded")) { |
if ( defined($ENV{'form.grade_target'} ) |
if ( defined($ENV{'form.grade_target'} ) |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
return ($ENV{'form.grade_target'}); |
return ($ENV{'form.grade_target'}); |