version 1.54, 2004/02/20 16:44:43
|
version 1.59, 2004/03/03 22:55:35
|
Line 60 use Time::HiRes;
|
Line 60 use Time::HiRes;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use strict; |
use strict; |
|
|
|
|
############################################## |
############################################## |
############################################## |
############################################## |
|
|
Line 202 Also, to be explicit, a value of 'now' a
|
Line 201 Also, to be explicit, a value of 'now' a
|
Additional html/javascript to be associated with each element in |
Additional html/javascript to be associated with each element in |
the date_setter. See lonparmset for example usage. |
the date_setter. See lonparmset for example usage. |
|
|
|
=item $includeempty |
|
|
|
=item $state |
|
|
|
Specifies the initial state of the form elements. Either 'disabled' or empty. |
|
Defaults to empty, which indiciates the form elements are not disabled. |
|
|
=back |
=back |
|
|
Bugs |
Bugs |
Line 213 The method used to restrict user input w
|
Line 219 The method used to restrict user input w
|
############################################## |
############################################## |
############################################## |
############################################## |
sub date_setter { |
sub date_setter { |
my ($formname,$dname,$currentvalue,$special,$includeempty) = @_; |
my ($formname,$dname,$currentvalue,$special,$includeempty,$state) = @_; |
|
if (! defined($state) || $state ne 'disabled') { |
|
$state = ''; |
|
} |
if (! defined($currentvalue) || $currentvalue eq 'now') { |
if (! defined($currentvalue) || $currentvalue eq 'now') { |
unless ($includeempty) { |
unless ($includeempty) { |
$currentvalue = time; |
$currentvalue = time; |
Line 262 sub date_setter {
|
Line 271 sub date_setter {
|
} |
} |
} |
} |
|
|
|
function $dname\_disable() { |
|
document.$formname.$dname\_month.disabled=true; |
|
document.$formname.$dname\_day.disabled=true; |
|
document.$formname.$dname\_year.disabled=true; |
|
document.$formname.$dname\_hour.disabled=true; |
|
document.$formname.$dname\_minute.disabled=true; |
|
document.$formname.$dname\_second.disabled=true; |
|
} |
|
|
|
function $dname\_enable() { |
|
document.$formname.$dname\_month.disabled=false; |
|
document.$formname.$dname\_day.disabled=false; |
|
document.$formname.$dname\_year.disabled=false; |
|
document.$formname.$dname\_hour.disabled=false; |
|
document.$formname.$dname\_minute.disabled=false; |
|
document.$formname.$dname\_second.disabled=false; |
|
} |
|
|
function $dname\_opencalendar() { |
function $dname\_opencalendar() { |
var calwin=window.open( |
if (! document.$formname.$dname\_month.disabled) { |
|
var calwin=window.open( |
"/adm/announcements?pickdate=yes&formname=$formname&element=$dname&month="+ |
"/adm/announcements?pickdate=yes&formname=$formname&element=$dname&month="+ |
document.$formname.$dname\_month.value+"&year="+ |
document.$formname.$dname\_month.value+"&year="+ |
document.$formname.$dname\_year.value, |
document.$formname.$dname\_year.value, |
"LONCAPAcal", |
"LONCAPAcal", |
"height=350,width=350,scrollbars=yes,resizable=yes,menubar=no"); |
"height=350,width=350,scrollbars=yes,resizable=yes,menubar=no"); |
|
} |
|
|
} |
} |
</script> |
</script> |
ENDJS |
ENDJS |
$result .= " <nobr><select name=\"$dname\_month\" ".$special.' '. |
$result .= " <nobr><select name=\"$dname\_month\" ".$special.' '. |
|
$state.' '. |
"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 286 ENDJS
|
Line 316 ENDJS
|
$result .= "> ".&mt($Months[$m])." </option>\n"; |
$result .= "> ".&mt($Months[$m])." </option>\n"; |
} |
} |
$result .= " </select>\n"; |
$result .= " </select>\n"; |
$result .= " <input type=\"text\" name=\"$dname\_day\" ". |
$result .= " <input type=\"text\" name=\"$dname\_day\" ".$state.' '. |
"value=\"$mday\" size=\"3\" ".$special.' '. |
"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\" ".$state.' '. |
"value=\"$year\" size=\"5\" ".$special.' '. |
"value=\"$year\" size=\"5\" ".$special.' '. |
"onChange=\"javascript:$dname\_checkday()\" />\n"; |
"onChange=\"javascript:$dname\_checkday()\" />\n"; |
$result .= " "; |
$result .= " "; |
$result .= " <select name=\"$dname\_hour\" ".$special." >\n"; |
$result .= " <select name=\"$dname\_hour\" ".$special." ".$state.' '.">\n"; |
if ($includeempty) { $result.="<option value=''></option>"; } |
if ($includeempty) { $result.="<option value=''></option>"; } |
for (my $h = 0;$h<24;$h++) { |
for (my $h = 0;$h<24;$h++) { |
$result .= " <option value=\"$h\" "; |
$result .= " <option value=\"$h\" "; |
Line 314 ENDJS
|
Line 344 ENDJS
|
} |
} |
$result .= " </select>\n"; |
$result .= " </select>\n"; |
$result .= " <input type=\"text\" name=\"$dname\_minute\" ".$special.' '. |
$result .= " <input type=\"text\" name=\"$dname\_minute\" ".$special.' '. |
|
$state.' '. |
"value=\"$min\" size=\"3\" /> m\n"; |
"value=\"$min\" size=\"3\" /> m\n"; |
$result .= " <input type=\"text\" name=\"$dname\_second\" ".$special.' '. |
$result .= " <input type=\"text\" name=\"$dname\_second\" ".$special.' '. |
|
$state.' '. |
"value=\"$sec\" size=\"3\" /> s\n"; |
"value=\"$sec\" size=\"3\" /> s\n"; |
$result .= "<a href=\"javascript:$dname\_opencalendar()\">". |
$result .= "<a href=\"javascript:$dname\_opencalendar()\">". |
&mt('Select Date')."</a></nobr>\n<!-- end $dname date setting form -->\n"; |
&mt('Select Date')."</a></nobr>\n<!-- end $dname date setting form -->\n"; |
Line 677 sub Create_PrgWin {
|
Line 709 sub Create_PrgWin {
|
} |
} |
if (!$inputname) { |
if (!$inputname) { |
$prog_state{'inputname'}=&get_uniq_name(); |
$prog_state{'inputname'}=&get_uniq_name(); |
&r_print($r,'<input type="text" name="'.$prog_state{'inputname'}. |
&r_print($r,$heading.' <input type="text" name="'.$prog_state{'inputname'}. |
'" size="'.$width.'" />'); |
'" size="'.$width.'" />'); |
} else { |
} else { |
$prog_state{'inputname'}=$inputname; |
$prog_state{'inputname'}=$inputname; |
Line 877 returns: nothing
|
Line 909 returns: nothing
|
############################################################ |
############################################################ |
{ |
{ |
my @Crumbs; |
my @Crumbs; |
|
|
sub breadcrumbs { |
sub breadcrumbs { |
my ($color,$component,$component_help) = @_; |
my ($color,$component,$component_help,$function,$domain) = @_; |
$color = '#CCCCFF' if (! defined($color)); |
if (! defined($color)) { |
|
if (! defined($function)) { |
|
$function = &Apache::loncommon::get_users_function(); |
|
} |
|
$color = &Apache::loncommon::designparm($function.'.tabbg', |
|
$domain); |
|
} |
# |
# |
my $Str = "\n". |
my $Str = "\n". |
'<table width="100%" border="0" cellpadding="0" cellspacing="0">'. |
'<table width="100%" border="0" cellpadding="0" cellspacing="0">'. |
'<tr><td bgcolor="'.$color.'">'. |
'<tr><td bgcolor="'.$color.'">'. |
'<font size="-1">'; |
'<font size="-1">'; |
|
# |
|
# Make the faq and bug data cascade |
|
my $faq = ''; |
|
my $bug = ''; |
# The last breadcrumb does not have a link, so handle it seperately. |
# The last breadcrumb does not have a link, so handle it seperately. |
my $last = pop(@Crumbs); |
my $last = pop(@Crumbs); |
|
# |
# The first one should be the course, I guess. |
# The first one should be the course, I guess. |
if (exists($ENV{'request.course.id'})) { |
if (exists($ENV{'request.course.id'})) { |
my $cid = $ENV{'request.course.id'}; |
my $cid = $ENV{'request.course.id'}; |
unshift(@Crumbs,{href=>'/adm/menu', |
unshift(@Crumbs,{ |
|
href=>'/adm/menu', |
title=>'Go to main menu', |
title=>'Go to main menu', |
text=>$ENV{'course.'.$cid.'.description'}, |
text=>$ENV{'course.'.$cid.'.description'}, |
}); |
}); |
} |
} |
my $links .= |
my $links .= |
join('->', |
join('->', |
map { |
map { |
'<a href="'.$_->{'href'}.'" title="'.$_->{'title'}.'">'. |
$faq = $_->{'faq'} if (exists($_->{'faq'})); |
$_->{'text'}.'</a>' |
$bug = $_->{'bug'} if (exists($_->{'bug'})); |
|
'<a href="'.$_->{'href'}.'" title="'.&mt($_->{'title'}).'">'. |
|
&mt($_->{'text'}).'</a>' |
} @Crumbs |
} @Crumbs |
); |
); |
$links .= '->' if ($links ne ''); |
$links .= '->' if ($links ne ''); |
$links .= '<b>'.$last->{'text'}.'</b>'; |
$links .= '<b>'.$last->{'text'}.'</b>'; |
# |
# |
my $icons = ''; |
my $icons = ''; |
if (exists($last->{'faq'})) { |
$faq = $last->{'faq'} if (exists($last->{'faq'})); |
$icons .= &Apache::loncommon::help_open_faq($last->{'faq'}); |
$bug = $last->{'bug'} if (exists($last->{'bug'})); |
|
if ($faq ne '') { |
|
$icons .= &Apache::loncommon::help_open_faq($faq); |
} |
} |
if (exists($last->{'bug'})) { |
if ($bug ne '') { |
$icons .= &Apache::loncommon::help_open_bug($last->{'bug'}); |
$icons .= &Apache::loncommon::help_open_bug($bug); |
} |
} |
if ($icons ne '') { |
if ($icons ne '') { |
$Str .= $icons.' '; |
$Str .= $icons.' '; |
Line 921 returns: nothing
|
Line 969 returns: nothing
|
# |
# |
if (defined($component)) { |
if (defined($component)) { |
$Str .= '<td align="right" bgcolor="'.$color.'">'. |
$Str .= '<td align="right" bgcolor="'.$color.'">'. |
'<font size="+1">'.$component.'</font>'; |
'<font size="+1">'.&mt($component).'</font>'; |
if (defined($component_help)) { |
if (defined($component_help)) { |
$Str .= |
$Str .= |
&Apache::loncommon::help_open_topic($component_help); |
&Apache::loncommon::help_open_topic($component_help); |
Line 945 returns: nothing
|
Line 993 returns: nothing
|
push (@Crumbs,@_); |
push (@Crumbs,@_); |
} |
} |
|
|
} |
} # End of scope for @Crumbs |
|
|
############################################################ |
############################################################ |
############################################################ |
############################################################ |