version 1.385, 2007/11/02 23:30:56
|
version 1.386, 2007/11/02 23:32:31
|
Line 2752 sub listdata {
|
Line 2752 sub listdata {
|
sub date_interval_selector { |
sub date_interval_selector { |
my ($thiskey, $showval) = @_; |
my ($thiskey, $showval) = @_; |
my $result; |
my $result; |
&Apache::lonnet::logthis($showval); |
|
foreach my $which (['days', 86400, 31], |
foreach my $which (['days', 86400, 31], |
['hours', 3600, 23], |
['hours', 3600, 23], |
['minutes', 60, 59], |
['minutes', 60, 59], |
Line 2760 sub date_interval_selector {
|
Line 2759 sub date_interval_selector {
|
my ($name, $factor, $max) = @{ $which }; |
my ($name, $factor, $max) = @{ $which }; |
my $amount = int($showval/$factor); |
my $amount = int($showval/$factor); |
$showval %= $factor; |
$showval %= $factor; |
&Apache::lonnet::logthis("$amount $factor $showval"); |
|
my %select = ((map {$_ => $_} (0..$max)), |
my %select = ((map {$_ => $_} (0..$max)), |
'select_form_order' => [0..$max]); |
'select_form_order' => [0..$max]); |
$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey, |
$result .= &Apache::loncommon::select_form($amount,$name.'_'.$thiskey, |