80 lines
2.0 KiB
Perl
80 lines
2.0 KiB
Perl
package TTXPickTime;
|
|
#
|
|
# This module is a part of Trouble Ticket Express package
|
|
# http://www.troubleticketexpress.com
|
|
#
|
|
# COPYRIGHT: 2002-2005, United Web Coders
|
|
# http://www.unitedwebcoders.com
|
|
#
|
|
# $Revision: 126 $
|
|
# $Date: 2006-02-06 05:47:42 -0500 (Mon, 06 Feb 2006) $
|
|
#
|
|
|
|
$TTXPickTime::VERSION='2.22';
|
|
BEGIN {
|
|
$TTXPickTime::REVISION = '$Revision: 126 $';
|
|
if ($TTXPickTime::REVISION =~ /(\d+)/) {
|
|
$TTXPickTime::REVISION = $1;
|
|
}
|
|
};
|
|
|
|
use strict;
|
|
|
|
# ===================================================================== picktime
|
|
|
|
sub picktime {
|
|
my ($query, $pref, $start) = @_;
|
|
my $buff;
|
|
my $sec = $query->param($pref.'sec');
|
|
my $min = $query->param($pref.'min');
|
|
my $hour = $query->param($pref.'hour');
|
|
if ($sec =~ /\D/ || $sec > 59) {
|
|
$sec = '';
|
|
}
|
|
if ($min =~ /\D/ || $min > 59) {
|
|
$min = '';
|
|
}
|
|
if ($hour =~ /\D/ || $hour > 23) {
|
|
$hour = '';
|
|
}
|
|
if ($hour eq '') {
|
|
$min = '';
|
|
$sec = '';
|
|
} else {
|
|
if ($min eq '') {
|
|
$min = $start ? 0:59;
|
|
$sec = $start ? 0:59;
|
|
} elsif ($sec eq '') {
|
|
$sec = $start ? 0:59;
|
|
}
|
|
}
|
|
$query->param(-name => $pref.'sec', -value => $sec);
|
|
$query->param(-name => $pref.'min', -value => $min);
|
|
$query->param(-name => $pref.'hour', -value => $hour);
|
|
$buff .= "<select name=$pref"."hour>\n<option></option>\n";
|
|
for (my $i = 0; $i < 24; ++$i) {
|
|
$buff .= '<option';
|
|
$buff .= ' selected' if $hour == $i;
|
|
$buff .= ">$i</option>\n";
|
|
}
|
|
$buff .= "</select>\n<select name=$pref"."min>\n<option></option>\n";
|
|
for (my $i = 0; $i < 60; $i += 5) {
|
|
if ($min < $i && $min > ($i - 5)) {
|
|
my $j = $min;
|
|
if ($j =~ /^\d$/) { $j = "0$j"; }
|
|
$buff .= "<option value=$min selected>$j</option>\n";
|
|
}
|
|
$buff .= "<option value=$i";
|
|
$buff .= ' selected' if $min ne '' && $min == $i;
|
|
my $j = $i;
|
|
if ($j =~ /^\d$/) { $j = "0$j"; }
|
|
$buff .= ">$j</option>\n";
|
|
}
|
|
$buff .= "</select>\n<input type=hidden name=$pref"."sec value=$sec>\n";
|
|
return $buff;
|
|
}
|
|
|
|
1;
|
|
#
|
|
|