version 1.10, 2000/11/06 16:22:59
|
version 1.11, 2000/11/06 17:03:29
|
Line 1169 sub BEGIN {
|
Line 1169 sub BEGIN {
|
|
|
# ------------------------------------------------------------------------ <param> tag |
# ------------------------------------------------------------------------ <param> tag |
|
|
sub start_img { |
sub start_param { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
if ($token->[2]->{'name'} eq 'cabbase') { |
if ($token->[2]->{'name'} eq 'cabbase') { |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
$Apache::lonxml::extlinks[$#Apache::lonxml::extlinks+1]= |
Line 1185 sub BEGIN {
|
Line 1185 sub BEGIN {
|
} |
} |
return $currentstring; |
return $currentstring; |
} |
} |
sub end_img { |
sub end_param { |
my ($target,$token) = @_; |
my ($target,$token) = @_; |
my $currentstring = ''; |
my $currentstring = ''; |
if ($target eq 'web') { |
if ($target eq 'web') { |