loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.1038, 2011/12/19 18:00:23
+version 1.1039, 2011/12/19 18:18:28
  Line 7078  function LCtoggleDisplay(id,hidetext,sho
  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;