version 1.32, 2003/10/15 18:01:10
|
version 1.35, 2003/12/29 17:11:53
|
Line 288 sub get_date_from_form {
|
Line 288 sub get_date_from_form {
|
} |
} |
if (defined($ENV{'form.'.$dname.'_hour'})) { |
if (defined($ENV{'form.'.$dname.'_hour'})) { |
my $tmphour = $ENV{'form.'.$dname.'_hour'}; |
my $tmphour = $ENV{'form.'.$dname.'_hour'}; |
if (($tmphour =~ /^\d+$/) && ($tmphour > 0) && ($tmphour < 32)) { |
if (($tmphour =~ /^\d+$/) && ($tmphour >= 0) && ($tmphour < 24)) { |
$hour = $tmphour; |
$hour = $tmphour; |
} |
} |
} |
} |
Line 311 sub get_date_from_form {
|
Line 311 sub get_date_from_form {
|
} |
} |
} |
} |
if (($year<70) || ($year>137)) { return undef; } |
if (($year<70) || ($year>137)) { return undef; } |
if (eval(&timelocal($sec,$min,$hour,$day,$month,$year))) { |
if (defined($sec) && defined($min) && defined($hour) && |
|
defined($day) && defined($month) && defined($year) && |
|
eval(&timelocal($sec,$min,$hour,$day,$month,$year))) { |
return &timelocal($sec,$min,$hour,$day,$month,$year); |
return &timelocal($sec,$min,$hour,$day,$month,$year); |
} else { |
} else { |
return undef; |
return undef; |
Line 833 sub Close_PrgWin {
|
Line 835 sub Close_PrgWin {
|
$r->rflush(); |
$r->rflush(); |
} |
} |
|
|
|
|
|
# ------------------------------------------------------- Puts directory header |
|
|
|
sub crumbs { |
|
my ($uri,$target,$prefix)=@_; |
|
my $output='<br /><tt><b><font size="+2">'.$prefix.'/'; |
|
if ($ENV{'user.adv'}) { |
|
my $path=$prefix.'/'; |
|
foreach (split('/',$uri)) { |
|
unless ($_) { next; } |
|
$path.=$_.'/'; |
|
$output.='<a href="'.$path.'"'.($target?' target="'.$target.'"':'').'>'.$_.'</a>/'; |
|
} |
|
} else { |
|
$output.=$uri; |
|
} |
|
return $output.'</font></b></tt><br />'; |
|
} |
|
|
|
|
1; |
1; |
|
|
__END__ |
__END__ |