--- loncom/interface/lonparmset.pm	2003/12/05 16:18:45	1.142
+++ 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.142 2003/12/05 16:18:45 raeburn 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',
@@ -1764,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='';