--- loncom/metadata_database/searchcat.pl	2007/01/01 21:23:10	1.72
+++ loncom/metadata_database/searchcat.pl	2007/01/02 07:26:11	1.73
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # searchcat.pl "Search Catalog" batch script
 #
-# $Id: searchcat.pl,v 1.72 2007/01/01 21:23:10 raeburn Exp $
+# $Id: searchcat.pl,v 1.73 2007/01/02 07:26:11 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -330,6 +330,7 @@ sub process_portfolio_access_data {
         $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} = &LONCAPA::lonmetadata::sqltime($end);