loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.89, 2002/09/23 17:29:37	version 1.93, 2002/10/14 16:43:58
Line 59 BEGIN {	Line 59 BEGIN {

sub get_target {	sub get_target {
if ( $ENV{'request.state'} eq "published") {	if ( $ENV{'request.state'} eq "published") {
if ( defined($ENV{'form.grade_target'})	if ( defined($ENV{'form.grade_target'} )
	&& ($ENV{'form.grade_target'} eq 'tex')) {
	return ($ENV{'form.grade_target'});
	} elsif ( defined($ENV{'form.grade_target'} )
&& ($Apache::lonhomework::viewgrades == 'F' )) {	&& ($Apache::lonhomework::viewgrades == 'F' )) {
return ($ENV{'form.grade_target'});	return ($ENV{'form.grade_target'});
}	}

if ( defined($ENV{'form.submitted'})) {	if ( defined($ENV{'form.submitted'})) {
return ('grade', 'web');	return ('grade', 'web');
} else {	} else {
Line 135 sub send_footer {	Line 139 sub send_footer {

$Apache::lonxml::browse='';	$Apache::lonxml::browse='';

	# JB, 9/24/2002: Any changes in this function may require a change
	# in lonnavmaps::resource::getDateStatus.
sub check_access {	sub check_access {
my ($id) = @_;	my ($id) = @_;
my $date ='';	my $date ='';