--- loncom/publisher/lonpublisher.pm 2002/08/07 19:50:22 1.87 +++ loncom/publisher/lonpublisher.pm 2002/08/07 19:59:06 1.88 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpublisher.pm,v 1.87 2002/08/07 19:50:22 albertel Exp $ +# $Id: lonpublisher.pm,v 1.88 2002/08/07 19:59:06 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -316,8 +316,8 @@ sub get_all_text_unbalanced { $result.=$token->[2]; } if ($result =~ /(.*)$tag(.*)/) { - &Apache::lonnet::logthis('Got a winner with leftovers ::'.$2); - &Apache::lonnet::logthis('Result is :'.$1); + #&Apache::lonnet::logthis('Got a winner with leftovers ::'.$2); + #&Apache::lonnet::logthis('Result is :'.$1); $result=$1; my $redo=$tag.$2; push (@$pars,HTML::LCParser->new(\$redo)); @@ -381,9 +381,7 @@ sub fix_ids_and_indices { } foreach my $type ('src','href','background','bgimg') { foreach my $key (keys(%parms)) { - print $logfile "for $type, and $key\n"; if ($key =~ /^$type$/i) { - print $logfile "calling set_allow\n"; $parms{$key}=&set_allow(\%allow,$logfile, $target,$tag, $parms{$key});