version 1.109, 2005/06/18 17:23:25
|
version 1.111, 2005/08/05 18:14:40
|
Line 100 sub store_recent {
|
Line 100 sub store_recent {
|
my ($area,$name,$value)=@_; |
my ($area,$name,$value)=@_; |
my $file=&recent_filename($area); |
my $file=&recent_filename($area); |
my %recent=&Apache::lonnet::dump($file); |
my %recent=&Apache::lonnet::dump($file); |
if (scalar(keys(%recent))>10) { |
if (scalar(keys(%recent))>20) { |
# remove oldest value |
# remove oldest value |
my $oldest=time; |
my $oldest=time; |
my $delkey=''; |
my $delkey=''; |
Line 266 sub date_setter {
|
Line 266 sub date_setter {
|
if (! defined($no_hh_mm_ss)) { |
if (! defined($no_hh_mm_ss)) { |
$no_hh_mm_ss = 0; |
$no_hh_mm_ss = 0; |
} |
} |
if (! defined($currentvalue) || $currentvalue eq 'now') { |
if ($currentvalue eq 'now') { |
unless ($includeempty) { |
$currentvalue=time; |
$currentvalue = time; |
} |
$wasdefined=0; |
if ((!defined($currentvalue)) || ($currentvalue eq '')) { |
} else { |
$wasdefined=0; |
|
if ($includeempty) { |
$currentvalue = 0; |
$currentvalue = 0; |
|
} else { |
|
$currentvalue = time; |
} |
} |
} |
} |
# other potentially useful values: wkday,yrday,is_daylight_savings |
# other potentially useful values: wkday,yrday,is_daylight_savings |
Line 282 sub date_setter {
|
Line 285 sub date_setter {
|
$year += 1900; |
$year += 1900; |
} |
} |
unless ($wasdefined) { |
unless ($wasdefined) { |
$sec=($defsec?$defsec:0); |
if (($defhour) || ($defmin) || ($defsec)) { |
$min=($defmin?$defmin:0); |
($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) = |
$hour=($defhour?$defhour:0); |
localtime(time); |
|
$year += 1900; |
|
$sec=($defsec?$defsec:0); |
|
$min=($defmin?$defmin:0); |
|
$hour=($defhour?$defhour:0); |
|
} elsif (!$includeempty) { |
|
$sec=0; |
|
$min=0; |
|
$hour=0; |
|
} |
} |
} |
my $result = "\n<!-- $dname date setting form -->\n"; |
my $result = "\n<!-- $dname date setting form -->\n"; |
$result .= <<ENDJS; |
$result .= <<ENDJS; |