added a few utility methods to the config system, and updated the upgrade to reflect that

lib/WebGUI/Config.pm

@@ -40,7 +40,13 @@ This package parses the WebGUI config file.
 
  my $value = $config->get($param);
  $config->set($param,$value);
+
  $config->delete($param);
+ $config->deleteFromHash($name, $key);
+ $config->deleteFromArray($name, $value);
+
+ $config->addToHash($name, $key, $value);
+ $config->addToArray($name, $value);
 
  my $configFileName = $config->getFilename;
  my $webguiRoot = $config->getWebguiRoot;
@@ -52,6 +58,63 @@ These subroutines are available from this package:
 =cut
 
 
+#-------------------------------------------------------------------
+
+=head2 addToArray ( property, value )
+
+Adds a value to an array property in the config file.
+
+=head3 property
+
+The name of the array.
+
+=head3 value
+
+The value to add.
+
+=cut
+
+sub addToArray {
+	my $self = shift;
+	my $property = shift;
+	my $value = shift;
+	my $array = $self->get($property);
+	push(@{$array}, $value);
+	$self->set($property, $array);
+}
+
+
+#-------------------------------------------------------------------
+
+=head2 addToHash ( property, key, value )
+
+Adds a value to a hash property in the config file.
+
+=head3 property
+
+The name of the hash.
+
+=head3 key
+
+The key to add.
+
+=head3 value
+
+The value to add.
+
+=cut
+
+sub addToHash {
+	my $self = shift;
+	my $property = shift;
+	my $key = shift;
+	my $value = shift;
+	my $hash = $self->get($property);
+	$hash->{$key} = $value;
+	$self->set($property, $hash);
+}
+
+
 #-------------------------------------------------------------------
 
 =head2 delete ( param ) 
@@ -75,6 +138,62 @@ sub delete {
 
 #-------------------------------------------------------------------
 
+=head2 deleteFromArray ( property, value )
+
+Deletes a value from an array property in the config file.
+
+=head3 property
+
+The name of the array.
+
+=head3 value
+
+The value to delete.
+
+=cut
+
+sub deleteFromArray {
+	my $self = shift;
+	my $property = shift;
+	my $value = shift;
+	my $array = $self->get($property);
+	for (my $i = 0; $i < scalar(@{$array}); $i++) {
+		if ($array->[$i] eq $value) {
+			splice(@{$array}, $i, 1);
+			last;
+		}
+	}
+	$self->set($property, $array);
+}
+
+
+#-------------------------------------------------------------------
+
+=head2 deleteFromHash ( property, key )
+
+Delete a key from a hash property in the config file.
+
+=head3 property
+
+The name of the hash.
+
+=head3 key
+
+The key to delete.
+
+=cut
+
+sub deleteFromHash {
+	my $self = shift;
+	my $property = shift;
+	my $key = shift;
+	my $hash = $self->get($property);
+	delete $hash->{$key};
+	$self->set($property, $hash);
+}
+
+#-------------------------------------------------------------------
+
 =head2 DESTROY ( )
 
 Deconstructor.