--- loncom/interface/lonparmset.pm	2007/02/27 20:35:22	1.360
+++ loncom/interface/lonparmset.pm	2007/03/17 02:14:26	1.362
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.360 2007/02/27 20:35:22 www Exp $
+# $Id: lonparmset.pm,v 1.362 2007/03/17 02:14:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -554,7 +554,8 @@ sub valout {
             }
             $result=~s/\s+$//;
         } elsif (&isdateparm($type)) {
-            $result = localtime($value).&date_sanity_info($value);
+            $result = &Apache::lonlocal::locallocaltime($value).
+		&date_sanity_info($value);
         } else {
             $result = $value;
         }
@@ -2881,6 +2882,11 @@ ENDOVER
 		      '<td><input type="checkbox" name="del_'.$thiskey.'" /></td>'		      );
 	    
 	    $r->print('<td>');
+	    my $display_value = $resourcedata->{$thiskey};
+	    if (&isdateparm($resourcedata->{$thiskey.'.type'})) {
+		$display_value = 
+		    &Apache::lonlocal::locallocaltime($display_value);
+	    }
 	    $r->print(&mt('Parameter: "[_1]" with value: "[_2]"',
 			  &standard_parameter_names($data{'parameter_name'}),
 			  $resourcedata->{$thiskey}));
@@ -2905,7 +2911,7 @@ ENDOVER
 		$r->print(&mt('Resource: [_1] <br />&nbsp;&nbsp;&nbsp;with ID: [_2] <br />&nbsp;&nbsp;&nbsp;in folder [_3]',
 			      $url,$resid,$map));
 	    }
-	    $r->print(&mt('Part: [_1]',$data{'parameter_part'}));
+	    $r->print(' <br />&nbsp;&nbsp;&nbsp;'.&mt('Part: [_1]',$data{'parameter_part'}));
 	    $r->print('</td></tr>');
 	
 	}
@@ -3379,8 +3385,8 @@ sub addmetafield {
         $r->print('<hr /><strong>Or</strong> you may enter a new metadata field name.<form method="post" action="/adm/parmset?action=addmetadata"');
         $r->print('<input type="text" name="fieldname" /><br />');
         $r->print('<input type="submit" value="Add Metadata Field" />');
-        $r->print('</form>');
     }
+    $r->print('</form>');
 }
 sub setrestrictmeta {
     my ($r)=@_;