--- loncom/interface/lonparmset.pm	2004/04/01 15:12:27	1.152
+++ loncom/interface/lonparmset.pm	2004/04/23 23:01:36	1.154
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.152 2004/04/01 15:12:27 albertel Exp $
+# $Id: lonparmset.pm,v 1.154 2004/04/23 23:01:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1199,7 +1199,8 @@ ENDTABLEHEADFOUR
                              '><tt><font size=-1>'.
                              join(' / ',split(/\//,$uri)).
                              '</font></tt><p><b>'.
-                             "<a href=\"javascript:openWindow('/res/".$uri.
+                             "<a href=\"javascript:openWindow('".
+				  &Apache::lonnet::clutter($uri).
                              "', 'metadatafile', '450', '500', 'no', 'yes')\";".
                              " TARGET=_self>$title");
 
@@ -1499,7 +1500,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') {
@@ -1776,7 +1777,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; }
 	    }
 	}
     }