loncom/xml/londefdef.pm - diff

Return to londefdef.pm CVS log

Up to [LON-CAPA] / loncom / xml

version 1.167, 2003/08/26 15:05:43	version 1.168, 2003/08/26 21:31:19
Line 1421 sub start_a {	Line 1421 sub start_a {
}	}

sub end_a {	sub end_a {
my ($target,$token,$tagstack,$parstack,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring .= $token->[2];	$currentstring .= $token->[2];
Line 1431 sub end_a {	Line 1431 sub end_a {

#-- <li> tag	#-- <li> tag
sub start_li {	sub start_li {
my ($target,$token,$tagstack,$parstack,$safeeval) = @_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval) = @_;
my $currentstring = '';	my $currentstring = '';
if ($target eq 'web') {	if ($target eq 'web') {
$currentstring = $token->[4];	$currentstring = $token->[4];