--- loncom/interface/lonparmset.pm	2004/02/24 23:22:27	1.151
+++ loncom/interface/lonparmset.pm	2004/04/12 20:03:31	1.153
@@ -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.153 2004/04/12 20:03:31 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"';
@@ -1496,7 +1499,7 @@ sub crsenv {
         }
         #
         # Let the user know we made the changes
-        if ($name) {
+        if ($name && defined($value)) {
             my $put_result = &Apache::lonnet::put('environment',
                                                   {$name=>$value},$dom,$crs);
             if ($put_result eq 'ok') {
@@ -1773,7 +1776,7 @@ ENDOVER
 		push (@deldata,$thiskey);
 	    } elsif ($cmd eq 'datepointer') {
 		my $data=&Apache::lonhtmlcommon::get_date_from_form($ENV{$_});
-		if ($olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
+		if (defined($data) and $olddata{$thiskey} ne $data) { $newdata{$thiskey}=$data; }
 	    }
 	}
     }