[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 07 Aug 2002 19:59:06 -0000


albertel		Wed Aug  7 15:59:06 2002 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - removing some debugging code
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.87 loncom/publisher/lonpublisher.pm:1.88
--- loncom/publisher/lonpublisher.pm:1.87	Wed Aug  7 15:50:22 2002
+++ loncom/publisher/lonpublisher.pm	Wed Aug  7 15:59:06 2002
@@ -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 @@
 	    $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 @@
 		}
 		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});