version 1.1, 2000/06/26 15:21:28
|
version 1.3, 2000/06/28 13:28:05
|
Line 3
|
Line 3
|
# |
# |
# last modified 06/23/00 by Alexander Sakharuk |
# last modified 06/23/00 by Alexander Sakharuk |
|
|
package Apache::lonstyleparser; |
package Apache::style; |
|
|
use strict; |
use strict; |
use HTML::TokeParser; |
use HTML::TokeParser; |
Line 54 sub styleparser {
|
Line 54 sub styleparser {
|
} |
} |
} else { |
} else { |
#--------------------------------------------------------------- outtext output |
#--------------------------------------------------------------- outtext output |
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'outtext') { |
while ($stoken = $pstyle->get_token and $stoken->[1] ne 'render') { |
if ($stoken->[1] eq 'definetag') { |
if ($stoken->[1] eq 'definetag') { |
$flag = 1; |
$flag = 1; |
last; |
last; |