[LON-CAPA-cvs] cvs: loncom(version_2_3_X) /metadata_database searchcat.pl

[albertel]

albertel		Tue Jan  2 22:59:48 2007 EDT

  Modified files:              (Branch: version_2_3_X)
    /loncom/metadata_database	searchcat.pl 
  Log:
  - backport 1.73
  
  
  
Index: loncom/metadata_database/searchcat.pl
diff -u loncom/metadata_database/searchcat.pl:1.70.2.1 loncom/metadata_database/searchcat.pl:1.70.2.2
--- loncom/metadata_database/searchcat.pl:1.70.2.1	Tue Jan  2 22:58:34 2007
+++ loncom/metadata_database/searchcat.pl	Tue Jan  2 22:59:48 2007
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.70.2.1 2007/01/03 03:58:34 albertel Exp $
+# $Id: searchcat.pl,v 1.70.2.2 2007/01/03 03:59:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -330,6 +330,7 @@
         $acc_data->{keynum} = $key;
         my ($num,$scope,$end,$start) =
                         ($key =~ /^([^:]+):([a-z]+)_(\d*)_?(\d*)$/);
+        next if (($scope ne 'public') && ($scope ne 'guest'));
         $acc_data->{scope} = $scope;
         if ($end != 0) {
             $acc_data->{end} = &sqltime($end);