I was getting some weird values, and started looking at them.
In add.cgi I was getting "Unknown Tag" errors on the system fields... the one's the user can't chage...
I modded the sub to show what was going on:
# This will set system fields like Validated to their proper values.
foreach my $key (keys %{$CFG->{add_system_fields}}) {
print "System Key is: ", $key, "VALUE is: ", $CFG->{add_system_fields}->{$key}, "<BR>";
my $value = $CFG->{add_system_fields}->{$key};
print "VALUE2 is: ", $value, "<BR>";
$IN->param(-name => $key, -value => $value );
print "System Key is: ", $key, " Valueof Key is: ", $IN->param($key), "<BR>";
}
And, what I see, is $value picks up the value of the $CFG->{add_system_fields}->{$key}, but it's lost in the next line, when I try to read the $in->param($key) value, it's all empty.
PUGDOGŪ
PUGDOGŪ Enterprises, Inc.
FAQ: http://postcards.com/FAQ
In add.cgi I was getting "Unknown Tag" errors on the system fields... the one's the user can't chage...
I modded the sub to show what was going on:
# This will set system fields like Validated to their proper values.
foreach my $key (keys %{$CFG->{add_system_fields}}) {
print "System Key is: ", $key, "VALUE is: ", $CFG->{add_system_fields}->{$key}, "<BR>";
my $value = $CFG->{add_system_fields}->{$key};
print "VALUE2 is: ", $value, "<BR>";
$IN->param(-name => $key, -value => $value );
print "System Key is: ", $key, " Valueof Key is: ", $IN->param($key), "<BR>";
}
And, what I see, is $value picks up the value of the $CFG->{add_system_fields}->{$key}, but it's lost in the next line, when I try to read the $in->param($key) value, it's all empty.
PUGDOGŪ
PUGDOGŪ Enterprises, Inc.
FAQ: http://postcards.com/FAQ