--- loncom/interface/loncommon.pm	2011/12/12 02:46:12	1.1037
+++ loncom/interface/loncommon.pm	2011/12/19 18:18:28	1.1039
@@ -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.1039 2011/12/19 18:18:28 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,46 @@ sub modal_adhoc_script {
 ENDADHOC
 }
 
+sub togglebox_script {
+   return(<<ENDTOGGLE);
+<script type="text/javascript"> 
+// <![CDATA[
+function LCtoggleDisplay(id,hidetext,showtext) {
+   link = document.getElementById(id + "link").childNodes[0];
+   with (document.getElementById(id).style) {
+      if (display == "none" ) {
+          display = "inline";
+          link.nodeValue = hidetext;
+        } else {
+          display = "none";
+          link.nodeValue = showtext;
+       }
+   }
+}
+// ]]>
+</script>
+ENDTOGGLE
+}
+
+sub start_togglebox {
+    my ($id,$heading,$headerbg,$hidetext,$showtext)=@_;
+    unless ($heading) { $heading=''; } else { $heading.=' '; }
+    unless ($showtext) { $showtext=&mt('show'); }
+    unless ($hidetext) { $hidetext=&mt('hide'); }
+    unless ($headerbg) { $headerbg='#FFFFFF'; }
+    return &start_data_table().
+           &start_data_table_header_row().
+           '<td bgcolor="'.$headerbg.'">'.$heading.
+           '[<a id="'.$id.'link" href="javascript:LCtoggleDisplay(\''.$id.'\',\''.$hidetext.'\',\''.
+           $showtext.'\')">'.$showtext.'</a>]</td>'.
+           &end_data_table_header_row().
+           '<tr id="'.$id.'" style="display:none""><td>';
+}
+
+sub end_togglebox {
+    return '</td></tr>'.&end_data_table();
+}
+
 sub modal_adhoc_window {
     my ($funcname,$width,$height,$content,$linktext)=@_;
     my $innerwidth=$width-20;