version 1.106, 2005/06/03 15:47:29
|
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 258 The method used to restrict user input w
|
Line 258 The method used to restrict user input w
|
############################################## |
############################################## |
sub date_setter { |
sub date_setter { |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
$no_hh_mm_ss) = @_; |
$no_hh_mm_ss,$defhour,$defmin,$defsec) = @_; |
|
my $wasdefined=1; |
if (! defined($state) || $state ne 'disabled') { |
if (! defined($state) || $state ne 'disabled') { |
$state = ''; |
$state = ''; |
} |
} |
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; |
} |
} else { |
if ((!defined($currentvalue)) || ($currentvalue eq '')) { |
|
$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 279 sub date_setter {
|
Line 284 sub date_setter {
|
localtime($currentvalue); |
localtime($currentvalue); |
$year += 1900; |
$year += 1900; |
} |
} |
|
unless ($wasdefined) { |
|
if (($defhour) || ($defmin) || ($defsec)) { |
|
($sec,$min,$hour,$mday,$month,$year,undef,undef,undef) = |
|
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; |
<script language="Javascript"> |
<script language="Javascript"> |
Line 506 parameter setting wizard.
|
Line 525 parameter setting wizard.
|
############################################## |
############################################## |
sub pjump_javascript_definition { |
sub pjump_javascript_definition { |
my $Str = <<END; |
my $Str = <<END; |
function pjump(type,dis,value,marker,ret,call) { |
function pjump(type,dis,value,marker,ret,call,hour,min,sec) { |
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
parmwin=window.open("/adm/rat/parameter.html?type="+escape(type) |
+"&value="+escape(value)+"&marker="+escape(marker) |
+"&value="+escape(value)+"&marker="+escape(marker) |
+"&return="+escape(ret) |
+"&return="+escape(ret) |
+"&call="+escape(call)+"&name="+escape(dis),"LONCAPAparms", |
+"&call="+escape(call)+"&name="+escape(dis) |
|
+"&defhour="+escape(hour)+"&defmin="+escape(min) |
|
+"&defsec="+escape(sec),"LONCAPAparms", |
"height=350,width=350,scrollbars=no,menubar=no"); |
"height=350,width=350,scrollbars=no,menubar=no"); |
} |
} |
END |
END |