|
version 1.256, 2009/12/22 06:02:44
|
version 1.257, 2009/12/22 17:27:28
|
|
Line 383 dname_hour, dname_min, and dname_sec.
|
Line 383 dname_hour, dname_min, and dname_sec.
|
| |
|
| The current setting for this time parameter. A unix format time |
The current setting for this time parameter. A unix format time |
| (time in seconds since the beginning of Jan 1st, 1970, GMT. |
(time in seconds since the beginning of Jan 1st, 1970, GMT. |
| An undefined value is taken to indicate the value is the current time. |
An undefined value is taken to indicate the value is the current time |
| |
unless it is requested to leave it empty. See $includeempty. |
| Also, to be explicit, a value of 'now' also indicates the current time. |
Also, to be explicit, a value of 'now' also indicates the current time. |
| |
|
| =item $special |
=item $special |
|
Line 393 the date_setter. See lonparmset for exa
|
Line 394 the date_setter. See lonparmset for exa
|
| |
|
| =item $includeempty |
=item $includeempty |
| |
|
| |
If it is set (true) and no date/time value is provided, |
| |
the date/time fields are left empty. |
| |
|
| =item $state |
=item $state |
| |
|
| Specifies the initial state of the form elements. Either 'disabled' or empty. |
Specifies the initial state of the form elements. Either 'disabled' or empty. |
|
Line 412 sub date_setter {
|
Line 416 sub date_setter {
|
| my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state, |
| $no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink) = @_; |
$no_hh_mm_ss,$defhour,$defmin,$defsec,$nolink) = @_; |
| my $now = time; |
my $now = time; |
| my $wasdefined=1; |
|
| |
my $tzname; |
| |
my ($sec,$min,$hour,$mday,$month,$year) = ('', '', undef,''.''.''); |
| |
#other potentially useful values: wkday,yrday,is_daylight_savings |
| |
|
| if (! defined($state) || $state ne 'disabled') { |
if (! defined($state) || $state ne 'disabled') { |
| $state = ''; |
$state = ''; |
| } |
} |
|
Line 420 sub date_setter {
|
Line 428 sub date_setter {
|
| $no_hh_mm_ss = 0; |
$no_hh_mm_ss = 0; |
| } |
} |
| if ($currentvalue eq 'now') { |
if ($currentvalue eq 'now') { |
| $currentvalue = $now; |
$currentvalue = $now; |
| } |
} |
| if ((!defined($currentvalue)) || ($currentvalue eq '')) { |
|
| $wasdefined=0; |
# Default value: Set empty date field to current time |
| if ($includeempty) { |
# unless empty inclusion is requested |
| $currentvalue = 0; |
if ((!$includeempty) && (!$currentvalue)) { |
| } else { |
$currentvalue = $now; |
| $currentvalue = $now; |
|
| } |
|
| } |
} |
| # other potentially useful values: wkday,yrday,is_daylight_savings |
# Do we have a date? Split it! |
| my $tzname; |
|
| my ($sec,$min,$hour,$mday,$month,$year)=('','',undef,'','',''); |
|
| if ($currentvalue) { |
if ($currentvalue) { |
| ($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
| } |
|
| unless ($wasdefined) { |
#No values provided for hour, min, sec? Use default 0 |
| ($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now); |
if (($defhour) || ($defmin) || ($defsec)) { |
| if (($defhour) || ($defmin) || ($defsec)) { |
$sec = ($defsec ? $defsec : 0); |
| $sec=($defsec?$defsec:0); |
$min = ($defmin ? $defmin : 0); |
| $min=($defmin?$defmin:0); |
$hour = ($defhour ? $defhour : 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; |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonhtmlcommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface