foreach $pair (@pairs) {
    ($key, $value) = split (/=/, $pair);

    # Convert plusses to spaces
    $key =~ tr/+/ /;

    # Convert Hex values to ASCII
    $key =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
    
    # Eliminiate SSI's
    $value =~s/<!--(.|\n)*-->//g;
    
    # If we already have a key with this name, allow for
    # multiple values!!!
    if ($formdata{$key}) {
        $formdata{$key} .= ", $value";
    } else {
        $formdata{$key} = $value;
    }
}

##</code><code>##

open DATA, $data;

##</code><code>##

function changeLoc(formNum) {
    if ( document.forms[0].elements[formNum].options[document.forms[0].elements[formNum].selectedIndex].value == "Corporate Home" ) {
        parent.location.href = "http://www.somesite.com/";
    } else if ( document.forms[0].elements[formNum].options[document.forms[0].elements[formNum].selectedIndex].value != "nogo" || page != "") {
        top.i3.location.href = document.forms[0].elements[formNum].options[document.forms[0].elements[formNum].selectedIndex].value;
    }
    document.forms[0].elements[formNum].selectedIndex = 0;
}

##</code><code>##

function changeLoc(formNum) {
    page = document.forms[0].elements[formNum].options[document.forms[0].elements[formNum].selectedIndex].value;

    if ( page == "Corporate Home" ) {
        parent.location.href = "http://www.somesite.com/";
    } else if ( page != "nogo" || page != "") {
        top.i3.location.href = page;
    }
    document.forms[0].elements[formNum].selectedIndex = 0;
}

##</code><code>##

sub update_foo {
    my ( $self, $data ) = @_;
    my $id = $data->{ textID };
    delete $data->{ textID };	
    if ( $id !~ /^\d+$/ ) {
        croak "textID '$id' in update_foo must be numeric.";
	}
    my ( $field_values, $values ) = $self->_format_update_data( $data );
    my $sql = "UPDATE giText SET $field_values WHERE textID = ?";
    push @$values, $id;
    my $return = $self->_update_database( $sql, $values );
    $self->{ _dbh }->commit if ! $self->{ _error };
    return $return;
}