loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.640, 2005/06/17 16:53:07	version 1.641, 2005/06/17 17:09:59
Line 1380 sub extract_embedded_items {	Line 1380 sub extract_embedded_items {
movie => '',	movie => '',
);	);
my $p = HTML::LCParser->new($filepath.'/'.$file);	my $p = HTML::LCParser->new($filepath.'/'.$file);
while ($t=$p->get_token()) {	while (my $t=$p->get_token()) {
if ($t->[0] eq 'S') {	if ($t->[0] eq 'S') {
my ($tagname, $attr) = ($t->[1],$t->[2]);	my ($tagname, $attr) = ($t->[1],$t->[2]);
push (@state, $tagname);	push (@state, $tagname);