[LON-CAPA-cvs] cvs: loncom /interface lonsearchcat.pm

matthew lon-capa-cvs@mail.lon-capa.org
Mon, 08 Jul 2002 14:52:19 -0000


matthew		Mon Jul  8 10:52:19 2002 EDT

  Modified files:              
    /loncom/interface	lonsearchcat.pm 
  Log:
  Removed debugging code.
  
  
Index: loncom/interface/lonsearchcat.pm
diff -u loncom/interface/lonsearchcat.pm:1.137 loncom/interface/lonsearchcat.pm:1.138
--- loncom/interface/lonsearchcat.pm:1.137	Mon Jul  8 10:28:10 2002
+++ loncom/interface/lonsearchcat.pm	Mon Jul  8 10:52:19 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Search Catalog
 #
-# $Id: lonsearchcat.pm,v 1.137 2002/07/08 14:28:10 matthew Exp $
+# $Id: lonsearchcat.pm,v 1.138 2002/07/08 14:52:19 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1254,13 +1254,11 @@
                 if (($Fields{'copyright'} eq 'priv') && 
                     (($ENV{'user.name'} ne $resname) &&
                      ($ENV{'user.domain'} ne $resdom))) {
-$r->print("<pre>copyright = 'priv' -> Skipping $Fields{'url'}</pre>\n");
                     next;
                 }
                 # Check for domain
                 if (($Fields{'copyright'} eq 'domain') &&
                     ($ENV{'user.domain'} ne $resdom)) {
-$r->print("<pre>copyright = 'domain' -> Skipping $Fields{'url'}</pre>\n");
                     next;
                 }
                 #