--- loncom/interface/lonhtmlcommon.pm 2004/02/24 23:19:15 1.56 +++ loncom/interface/lonhtmlcommon.pm 2004/03/08 17:31:37 1.60 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common html routines # -# $Id: lonhtmlcommon.pm,v 1.56 2004/02/24 23:19:15 albertel Exp $ +# $Id: lonhtmlcommon.pm,v 1.60 2004/03/08 17:31:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -201,6 +201,13 @@ Also, to be explicit, a value of 'now' a Additional html/javascript to be associated with each element in 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 Bugs @@ -212,7 +219,10 @@ The method used to restrict user input w ############################################## ############################################## 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') { unless ($includeempty) { $currentvalue = time; @@ -261,18 +271,39 @@ 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() { - var calwin=window.open( + if (! document.$formname.$dname\_month.disabled) { + var calwin=window.open( "/adm/announcements?pickdate=yes&formname=$formname&element=$dname&month="+ document.$formname.$dname\_month.value+"&year="+ document.$formname.$dname\_year.value, "LONCAPAcal", "height=350,width=350,scrollbars=yes,resizable=yes,menubar=no"); + } } ENDJS $result .= " \n"; - $result .= " \n"; - $result .= " \n"; $result .= "  "; - $result .= " \n"; if ($includeempty) { $result.=""; } for (my $h = 0;$h<24;$h++) { $result .= " \n\n"; @@ -876,7 +909,7 @@ returns: nothing ############################################################ { my @Crumbs; - + sub breadcrumbs { my ($color,$component,$component_help,$function,$domain) = @_; if (! defined($color)) { @@ -891,32 +924,42 @@ returns: nothing ''. '
'. ''; - # The last breadcrumb does not have a link, so handle it seperately. + # + # Make the faq and bug data cascade + my $faq = ''; + my $bug = ''; + # The last breadcrumb does not have a link, so handle it separately. my $last = pop(@Crumbs); + # # The first one should be the course, I guess. if (exists($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', text=>$ENV{'course.'.$cid.'.description'}, - }); + }); } my $links .= join('->', map { - ''. - $_->{'text'}.'' + $faq = $_->{'faq'} if (exists($_->{'faq'})); + $bug = $_->{'bug'} if (exists($_->{'bug'})); + ''. + &mt($_->{'text'}).'' } @Crumbs ); $links .= '->' if ($links ne ''); $links .= ''.$last->{'text'}.''; # my $icons = ''; - if (exists($last->{'faq'})) { - $icons .= &Apache::loncommon::help_open_faq($last->{'faq'}); + $faq = $last->{'faq'} if (exists($last->{'faq'})); + $bug = $last->{'bug'} if (exists($last->{'bug'})); + if ($faq ne '') { + $icons .= &Apache::loncommon::help_open_faq($faq); } - if (exists($last->{'bug'})) { - $icons .= &Apache::loncommon::help_open_bug($last->{'bug'}); + if ($bug ne '') { + $icons .= &Apache::loncommon::help_open_bug($bug); } if ($icons ne '') { $Str .= $icons.' '; @@ -926,7 +969,7 @@ returns: nothing # if (defined($component)) { $Str .= ''. - ''.$component.''; + ''.&mt($component).''; if (defined($component_help)) { $Str .= &Apache::loncommon::help_open_topic($component_help); @@ -950,7 +993,7 @@ returns: nothing push (@Crumbs,@_); } -} +} # End of scope for @Crumbs ############################################################ ############################################################