--- loncom/interface/lonparmset.pm	2004/02/24 23:22:27	1.151
+++ loncom/interface/lonparmset.pm	2004/04/01 15:12:27	1.152
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.151 2004/02/24 23:22:27 albertel Exp $
+# $Id: lonparmset.pm,v 1.152 2004/04/01 15:12:27 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -587,7 +587,8 @@ sub extractResourceInformation {
 	    my $resid=$2;
 	    my $id=$mapid.'.'.$resid;
 	    my $srcf=$$bighash{$_};
-	    if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+#	    if ($srcf=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+	    if (1) {
 		$$ids[$#$ids+1]=$id;
 		$$typep{$id}=$1;
 		$$keyp{$id}='';
@@ -1151,8 +1152,10 @@ ENDTABLEHEADFOUR
                 my $rid=$_;
                 my ($inmapid)=($rid=~/\.(\d+)$/);
 
-                if (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid}) ||
-                    ($pssymb eq $symbp{$rid})) {
+                if ((!$pssymb && 
+		     (($pschp eq 'all') || ($allmaps{$pschp} eq $mapp{$rid})))
+		    ||
+		    ($pssymb && $pssymb eq $symbp{$rid})) {
 # ------------------------------------------------------ Entry for one resource
                     if ($defbgone eq '"E0E099"') {
                         $defbgone='"E0E0DD"';