loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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});