loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.52, 2001/10/18 17:59:41	version 1.53, 2001/12/04 15:32:57
Line 225 sub publish {	Line 225 sub publish {
}	}
my $outstring='';	my $outstring='';
my $parser=HTML::TokeParser->new(\$content);	my $parser=HTML::TokeParser->new(\$content);
	$parser->xml_mode(1);
my $token;	my $token;
while ($token=$parser->get_token) {	while ($token=$parser->get_token) {
if ($token->[0] eq 'S') {	if ($token->[0] eq 'S') {
my $counter;	my $counter;
my $tag=$token->[1];	my $tag=$token->[1];
unless ($tag eq 'allow') {	my $lctag=$tag;$lctag=~/[A-Z]/[a-z]/g;
	unless ($lctag eq 'allow') {
my %parms=%{$token->[2]};	my %parms=%{$token->[2]};
if ($counter=$addid{$tag}) {	$counter=$addid{$tag};
	if (!$counter) { $counter=$addid{$lctag}; }
	if ($counter) {
if ($counter eq 'id') {	if ($counter eq 'id') {
unless (defined($parms{'id'})) {	unless (defined($parms{'id'})) {
$maxid++;	$maxid++;
Line 261 sub publish {	Line 265 sub publish {
}	}
} ('src','href','background');	} ('src','href','background');

if ($tag eq 'applet') {	if ($lctag eq 'applet') {
my $codebase='';	my $codebase='';
if (defined($parms{'codebase'})) {	if (defined($parms{'codebase'})) {
my $oldcodebase=$parms{'codebase'};	my $oldcodebase=$parms{'codebase'};