--- loncom/interface/lonparmset.pm	2003/12/04 21:45:18	1.141
+++ loncom/interface/lonparmset.pm	2003/12/12 15:03:26	1.144
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.141 2003/12/04 21:45:18 sakharuk Exp $
+# $Id: lonparmset.pm,v 1.144 2003/12/12 15:03:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1099,9 +1099,9 @@ sub assessparms {
                                   'rl'     => "Resource Level",
 				  'ic'     => 'in Course',
 				  'aut'    => "Assessment URL and Title",
-				  'type'   => &mt('Type'),
+				  'type'   => 'Type',
 				  'emof'   => "Enclosing Map or Folder",
-				  'part'   => &mt('Part'),
+				  'part'   => 'Part',
                                   'pn'     => 'Parameter Name',
 				  'def'    => 'default',
 				  'femof'  => 'from Enclosing Map or Folder',
@@ -1616,10 +1616,12 @@ sub crsenv {
                              'default_enrollment_end_date',
                              );
 	foreach my $parameter (sort(keys(%values))) {
-	    if (! $descriptions{$parameter}) {
-                $descriptions{$parameter}=$parameter;
-                push(@Display_Order,$parameter);
-	    }
+            unless ($parameter =~ m/^internal\./) {
+                if (! $descriptions{$parameter}) {
+                    $descriptions{$parameter}=$parameter;
+                    push(@Display_Order,$parameter);
+                }
+            }
 	}
         foreach my $parameter (@Display_Order) {
             my $description = $descriptions{$parameter};
@@ -1762,8 +1764,25 @@ ENDOVER
 	}
     }
 # Store
-    &Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);
-    &Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);
+    my $delentries=$#deldata+1;
+    my @newdatakeys=keys %newdata;
+    my $putentries=$#newdatakeys+1;
+    if ($delentries) {
+	if (&Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs) eq 'ok') {
+	    $r->print('<h2>'.&mt('Deleted [_1] parameter(s)</h2>',$delentries));
+	} else {
+	    $r->print('<h2><font color="red">'.
+		      &mt('Error deleting parameters').'</font></h2>');
+	}
+    }
+    if ($putentries) {
+	if (&Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs) eq 'ok') {
+	    $r->print('<h2>'.&mt('Stored [_1] parameter(s)</h2>',$putentries));
+	} else {
+	    $r->print('<h2><font color="red">'.
+		      &mt('Error storing parameters').'</font></h2>');
+	}
+    }
 # Read and display
     my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
     my $oldsection='';