--- loncom/interface/loncommon.pm 2011/12/12 02:46:12 1.1037 +++ loncom/interface/loncommon.pm 2011/12/19 18:00:23 1.1038 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.1037 2011/12/12 02:46:12 www Exp $ +# $Id: loncommon.pm,v 1.1038 2011/12/19 18:00:23 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -6737,6 +6737,7 @@ sub headtag { && !$args->{'frameset'}) { $result .= &help_menu_js(); $result.=&modal_window(); + $result.=&togglebox_script(); $result.=&wishlist_window(); } else { if ($args->{'add_modal'}) { @@ -6745,6 +6746,9 @@ sub headtag { if ($args->{'add_wishlist'}) { $result.=&wishlist_window(); } + if ($args->{'add_togglebox'}) { + $result.=&togglebox_script(); + } } if (ref($args->{'redirect'})) { my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}}; @@ -7053,6 +7057,27 @@ sub modal_adhoc_script { ENDADHOC } +sub togglebox_script { + return(< +// + +ENDTOGGLE +} + sub modal_adhoc_window { my ($funcname,$width,$height,$content,$linktext)=@_; my $innerwidth=$width-20;