sub get_defaults {
# --------------------------------------------------------
# Returns a hash of the defaults used for a new record.

my (%default, $field);

foreach $field (keys %db_defaults) {
if (($db_defaults{$field} eq "now") and ($db_def{$field}[1] eq "DATE")) {
$default{$field} = &get_date;
}
elsif (($db_defaults{$field} eq "now") and ($db_def{$field}[1] eq "TIME")) {
$default{$field} = &get_time;
}
else {
$default{$field} = $db_defaults{$field};
}
}
return %default;
}