|
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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to style.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml