loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.143, 2003/12/08 23:17:52
+version 1.144, 2003/12/12 15:03:26
  Line 1764  ENDOVER
  	}
      }
  # Store
-     &Apache::lonnet::del('resourcedata',\@deldata,$dom,$crs);
+     my $delentries=$#deldata+1;
-     &Apache::lonnet::put('resourcedata',\%newdata,$dom,$crs);
+     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='';