First I have to say that I have customized a lot of things in my DBMan SQL installation. The problem described in this thread doesn't allways occur - only for some databases (configurations).
I'm really glad that TheStone has sent me a solution that worked for all configurations on our servers. Replace sub modify_success in Home.pm with the following code:
sub modify_success {
#----------------------------------------------------------------------
my ($self, $id) = @_;
my $lookup = {};
my $pk = $self->{db}->pk;
foreach (@$pk) { $lookup->{$_} = $self->{cgi}->{$_}; }
my $hsh = $self->{db}->get ($lookup, 'HASH');
return ('modify_success.html', {
header => $self->_language('HEA_MODED'),
msg => $self->_language('MOD_SUCCESSFULLY'),
values => $hsh,
($hsh) ? %$hsh : hsh => 1
});
}
Many thanks to TheStne
liver
I'm really glad that TheStone has sent me a solution that worked for all configurations on our servers. Replace sub modify_success in Home.pm with the following code:
Code:
sub modify_success {
#----------------------------------------------------------------------
my ($self, $id) = @_;
my $lookup = {};
my $pk = $self->{db}->pk;
foreach (@$pk) { $lookup->{$_} = $self->{cgi}->{$_}; }
my $hsh = $self->{db}->get ($lookup, 'HASH');
return ('modify_success.html', {
header => $self->_language('HEA_MODED'),
msg => $self->_language('MOD_SUCCESSFULLY'),
values => $hsh,
($hsh) ? %$hsh : hsh => 1
});
}
Many thanks to TheStne
liver