- my ($table, @values) = @_;
- &DEBUG("dbSetRow(@_);");
- my $key = lc $values[0];
-
- my @format = &dbGetColInfo($table);
- if (!scalar @format) {
- return 0;
- }
-
- if (defined ${$table}{$key}) {
- &WARN("dbSetRow: $table {$key} already exists?");
- }
-
- if (scalar @values != scalar @format) {
- &WARN("dbSetRow: scalar values != scalar ${table} format.");
- }
-
- for (0 .. $#format) {
- # @array? this is not defined anywhere. please fix, timriker!!!
- if (defined $array[$_] and $array[$_] ne "") {
- &DEBUG("dbSetRow: array[$_] != NULL($array[$_]).");
- }
- $array[$_] = $values[$_];
- }
-
- ${$table}{$key} = join $;, @array;