version 1.87, 2002/08/07 19:50:22
|
version 1.88, 2002/08/07 19:59:06
|
Line 316 sub get_all_text_unbalanced {
|
Line 316 sub get_all_text_unbalanced {
|
$result.=$token->[2]; |
$result.=$token->[2]; |
} |
} |
if ($result =~ /(.*)$tag(.*)/) { |
if ($result =~ /(.*)$tag(.*)/) { |
&Apache::lonnet::logthis('Got a winner with leftovers ::'.$2); |
#&Apache::lonnet::logthis('Got a winner with leftovers ::'.$2); |
&Apache::lonnet::logthis('Result is :'.$1); |
#&Apache::lonnet::logthis('Result is :'.$1); |
$result=$1; |
$result=$1; |
my $redo=$tag.$2; |
my $redo=$tag.$2; |
push (@$pars,HTML::LCParser->new(\$redo)); |
push (@$pars,HTML::LCParser->new(\$redo)); |
Line 381 sub fix_ids_and_indices {
|
Line 381 sub fix_ids_and_indices {
|
} |
} |
foreach my $type ('src','href','background','bgimg') { |
foreach my $type ('src','href','background','bgimg') { |
foreach my $key (keys(%parms)) { |
foreach my $key (keys(%parms)) { |
print $logfile "for $type, and $key\n"; |
|
if ($key =~ /^$type$/i) { |
if ($key =~ /^$type$/i) { |
print $logfile "calling set_allow\n"; |
|
$parms{$key}=&set_allow(\%allow,$logfile, |
$parms{$key}=&set_allow(\%allow,$logfile, |
$target,$tag, |
$target,$tag, |
$parms{$key}); |
$parms{$key}); |