Gossamer Forum
Home : Products : DBMan : Installation :

$rec{'Date'} doesn't appears

Quote Reply
$rec{'Date'} doesn't appears
first: I found no solution in the archive

I have a date problem:

in html.pl there is:
input type=hidden name="Date" value="$rec{'Date'}"

when I starts the page to add a new record
the html-source shows:
input type=hidden name="Date" value=""

Here are the subs (no modify)of db.cgi

sub get_date {
my ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime(time());
my (@months) = qw!Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec!;
($day < 10) and ($day = "0$day");
$year = $year + 1900;
return "$day-$months[$mon]-$year";
}

sub date_to_unix {
my ($date) = $_[0];
my (%months) = ("Jan" => 0, "Feb" => 1, "Mar" => 2, "Apr" => 3, "May" => 4, "Jun" => 5,
"Jul" => 6, "Aug" => 7, "Sep" => 8, "Oct" => 9, "Nov" => 10,"Dec" => 11);
my ($time);
my ($day, $mon, $year) = split(/-/, $_[0]);
unless ($day and $mon and $year) { return undef; }
unless (defined($months{$mon})) { return undef; }

use Time::Local;
eval {
$day = int($day); $year = int($year) - 1900;
$time = timelocal(0,0,0,$day, $months{$mon}, $year);
};
if ($@) { return undef; } # Could return 0 if you want.
return ($time);
}

my current date is
Fri Jan 1 18:52:20 MET 1999

Can anybody help? thanks!

Hans-Peter

Quote Reply
Re: $rec{'Date'} doesn't appears In reply to
when I set
$db_auto_generate = 0;
it works! :-)
(but there is no submit-Button)

....so it must be an error in html.pl
I'm searching.....

Hans-Peter
Quote Reply
Re: $rec{'Date'} doesn't appears In reply to
everything is o.k.

a stupid bug from me

*shame*

regards,
Hans-Peter

PS: Alex! delete this thread!