version 1.95, 2004/11/11 18:19:41
|
version 1.96, 2004/11/19 19:31:13
|
Line 127 sub select_recent {
|
Line 127 sub select_recent {
|
my ($area,$fieldname,$event)=@_; |
my ($area,$fieldname,$event)=@_; |
my %recent=&Apache::lonnet::dump(&recent_filename($area)); |
my %recent=&Apache::lonnet::dump(&recent_filename($area)); |
my $return="\n<select name='$fieldname'". |
my $return="\n<select name='$fieldname'". |
($event?" onChange='$event'":''). |
($event?" onchange='$event'":''). |
">\n<option value=''>--- ".&mt('Recent')." ---</option>"; |
">\n<option value=''>--- ".&mt('Recent')." ---</option>"; |
foreach (sort keys %recent) { |
foreach (sort keys %recent) { |
unless ($_=~/^error\:/) { |
unless ($_=~/^error\:/) { |
Line 320 document.$formname.$dname\_year.value,
|
Line 320 document.$formname.$dname\_year.value,
|
</script> |
</script> |
ENDJS |
ENDJS |
$result .= ' <nobr>'; |
$result .= ' <nobr>'; |
my $monthselector = qq{<select name="$dname\_month" $special $state onChange="javascript:$dname\_checkday()" >}; |
my $monthselector = qq{<select name="$dname\_month" $special $state onchange="javascript:$dname\_checkday()" >}; |
# Month |
# Month |
my @Months = qw/January February March April May June |
my @Months = qw/January February March April May June |
July August September October November December/; |
July August September October November December/; |
Line 334 ENDJS
|
Line 334 ENDJS
|
} |
} |
$monthselector.= ' </select>'; |
$monthselector.= ' </select>'; |
# Day |
# Day |
my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onChange="javascript:$dname\_checkday()" />}; |
my $dayselector = qq{<input type="text" name="$dname\_day" $state value="$mday" size="3" $special onchange="javascript:$dname\_checkday()" />}; |
# Year |
# Year |
my $yearselector = qq{<input type="year" name="$dname\_year" $state value="$year" size="5" $special onChange="javascript:$dname\_checkday()" />}; |
my $yearselector = qq{<input type="year" name="$dname\_year" $state value="$year" size="5" $special onchange="javascript:$dname\_checkday()" />}; |
# |
# |
my $hourselector = qq{<select name="$dname\_hour" $special $state >}; |
my $hourselector = qq{<select name="$dname\_hour" $special $state >}; |
if ($includeempty) { |
if ($includeempty) { |