--- loncom/interface/lonparmset.pm	2003/12/08 23:17:52	1.143
+++ 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.143 2003/12/08 23:17:52 albertel Exp $
+# $Id: lonparmset.pm,v 1.144 2003/12/12 15:03:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -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='';