loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.10, 2001/08/06 20:33:23	version 1.11, 2001/08/13 20:51:04
Line 29 sub start_displayduedate {	Line 29 sub start_displayduedate {
} else {	} else {
$result ='<table border="on"><tr><td>No due date set.</td></tr></table>';	$result ='<table border="on"><tr><td>No due date set.</td></tr></table>';
}	}
	} elsif ( $target eq 'edit' ) {
	$result=&Apache::edit::tag_start($target,$token,
	&Apache::lonxml::description($token));
	$result.='</td></tr>';
	$result.=&Apache::edit::end_table();
}	}
return $result;	return $result;
}	}

sub end_displayduedate {	sub end_displayduedate {
return '';	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	my @result;
	if ($target eq 'edit') { @result[1]='no'; }
	return @result;
}	}

sub start_displaytitle {	sub start_displaytitle {
Line 42 sub start_displaytitle {	Line 50 sub start_displaytitle {
my $result='';	my $result='';
if ($target eq 'web') {	if ($target eq 'web') {
$result="<h1>$Apache::lonhomework::name</h1>";	$result="<h1>$Apache::lonhomework::name</h1>";
	} elsif ($target eq 'edit') {
	$result=&Apache::edit::tag_start($target,$token,
	&Apache::lonxml::description($token));
	$result.='</td></tr>';
	$result.=&Apache::edit::end_table();
}	}
return $result;	return $result;
}	}

sub end_displaytitle {	sub end_displaytitle {
return '';	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
	my @result;
	if ($target eq 'edit') { @result[1]='no'; }
	return @result;
}	}

1;	1;