loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

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,