version 1.25, 2003/06/19 15:02:37
|
version 1.27, 2003/07/11 16:07:20
|
Line 58 package Apache::lonhtmlcommon;
|
Line 58 package Apache::lonhtmlcommon;
|
use Time::Local; |
use Time::Local; |
use strict; |
use strict; |
|
|
|
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item textbox |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
sub textbox { |
|
my ($name,$value,$size,$special) = @_; |
|
$size = 40 if (! defined($size)); |
|
my $Str = '<input type="text" name="'.$name.'" size="'.$size.'" '. |
|
'value="'.$value.'" '.$special.' />'; |
|
return $Str; |
|
} |
|
|
|
############################################## |
|
############################################## |
|
|
|
=pod |
|
|
|
=item checkbox |
|
|
|
=cut |
|
|
|
############################################## |
|
############################################## |
|
sub checkbox { |
|
my ($name) = @_; |
|
my $Str = '<input type="checkbox" name="'.$name.'" />'; |
|
return $Str; |
|
} |
|
|
|
|
|
|
############################################## |
############################################## |
############################################## |
############################################## |
|
|
Line 85 The current setting for this time parame
|
Line 124 The current setting for this time parame
|
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. |
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 |
|
|
|
Additional html/javascript to be associated with each element in |
|
the date_setter. See lonparmset for example usage. |
|
|
=back |
=back |
|
|
Bugs |
Bugs |
Line 96 The method used to restrict user input w
|
Line 140 The method used to restrict user input w
|
############################################## |
############################################## |
############################################## |
############################################## |
sub date_setter { |
sub date_setter { |
my ($formname,$dname,$currentvalue) = @_; |
my ($formname,$dname,$currentvalue,$special) = @_; |
if (! defined($currentvalue) || $currentvalue eq 'now') { |
if (! defined($currentvalue) || $currentvalue eq 'now') { |
$currentvalue = time; |
$currentvalue = time; |
} |
} |
Line 139 sub date_setter {
|
Line 183 sub date_setter {
|
} |
} |
</script> |
</script> |
ENDJS |
ENDJS |
$result .= " <select name=\"$dname\_month\" ". |
$result .= " <nobr><select name=\"$dname\_month\" ".$special.' '. |
"onChange=\"javascript:$dname\_checkday()\" >\n"; |
"onChange=\"javascript:$dname\_checkday()\" >\n"; |
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 152 ENDJS
|
Line 196 ENDJS
|
} |
} |
$result .= " </select>\n"; |
$result .= " </select>\n"; |
$result .= " <input type=\"text\" name=\"$dname\_day\" ". |
$result .= " <input type=\"text\" name=\"$dname\_day\" ". |
"value=\"$mday\" size=\"3\" ". |
"value=\"$mday\" size=\"3\" ".$special.' '. |
"onChange=\"javascript:$dname\_checkday()\" />\n"; |
"onChange=\"javascript:$dname\_checkday()\" />\n"; |
$result .= " <input type=\"year\" name=\"$dname\_year\" ". |
$result .= " <input type=\"year\" name=\"$dname\_year\" ". |
"value=\"$year\" size=\"5\" ". |
"value=\"$year\" size=\"5\" ".$special.' '. |
"onChange=\"javascript:$dname\_checkday()\" />\n"; |
"onChange=\"javascript:$dname\_checkday()\" />\n"; |
$result .= " "; |
$result .= " "; |
$result .= " <select name=\"$dname\_hour\" >\n"; |
$result .= " <select name=\"$dname\_hour\" ".$special." >\n"; |
for (my $h = 0;$h<24;$h++) { |
for (my $h = 0;$h<24;$h++) { |
$result .= " <option value=\"$h\" "; |
$result .= " <option value=\"$h\" "; |
$result .= "selected " if ($hour == $h); |
$result .= "selected " if ($hour == $h); |
Line 175 ENDJS
|
Line 219 ENDJS
|
$result .= " </option>\n"; |
$result .= " </option>\n"; |
} |
} |
$result .= " </select>\n"; |
$result .= " </select>\n"; |
$result .= " <input type=\"text\" name=\"$dname\_minute\" ". |
$result .= " <input type=\"text\" name=\"$dname\_minute\" ".$special.' '. |
"value=\"$min\" size=\"3\" /> m\n"; |
"value=\"$min\" size=\"3\" /> m\n"; |
$result .= " <input type=\"text\" name=\"$dname\_second\" ". |
$result .= " <input type=\"text\" name=\"$dname\_second\" ".$special.' '. |
"value=\"$sec\" size=\"3\" /> s\n"; |
"value=\"$sec\" size=\"3\" /> s\n"; |
$result .= "<!-- end $dname date setting form -->\n"; |
$result .= "</nobr>\n<!-- end $dname date setting form -->\n"; |
return $result; |
return $result; |
} |
} |
|
|
Line 341 the selection box is set to document.$fo
|
Line 385 the selection box is set to document.$fo
|
|
|
$size: the size (number of lines) of the selection box. |
$size: the size (number of lines) of the selection box. |
|
|
|
$onchange: javascript to use when the value is changed. Enclosed in |
|
double quotes, ""s, not single quotes. |
|
|
Returns: a perl string as described. |
Returns: a perl string as described. |
|
|
=cut |
=cut |
Line 348 Returns: a perl string as described.
|
Line 395 Returns: a perl string as described.
|
############################################## |
############################################## |
############################################## |
############################################## |
sub StatusOptions { |
sub StatusOptions { |
my ($status, $formName,$size)=@_; |
my ($status, $formName,$size,$onchange)=@_; |
$size = 1 if (!defined($size)); |
$size = 1 if (!defined($size)); |
if (! defined($status)) { |
if (! defined($status)) { |
$status = 'Active'; |
$status = 'Active'; |
Line 365 sub StatusOptions {
|
Line 412 sub StatusOptions {
|
|
|
my $Str = ''; |
my $Str = ''; |
$Str .= '<select name="Status"'; |
$Str .= '<select name="Status"'; |
if(defined($formName) && $formName ne '') { |
if(defined($formName) && $formName ne '' && ! defined($onchange)) { |
$Str .= ' onchange="document.'.$formName.'.submit()"'; |
$Str .= ' onchange="document.'.$formName.'.submit()"'; |
} |
} |
|
if (defined($onchange)) { |
|
$Str .= ' onchange="'.$onchange.'"'; |
|
} |
$Str .= ' size="'.$size.'" '; |
$Str .= ' size="'.$size.'" '; |
$Str .= '>'."\n"; |
$Str .= '>'."\n"; |
$Str .= '<option value="Active" '.$OpSel1.'>'. |
$Str .= '<option value="Active" '.$OpSel1.'>'. |