[BACK]Return to loncommon.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/loncommon.pm between versions 1.1037 and 1.1038

version 1.1037, 2011/12/12 02:46:12 version 1.1038, 2011/12/19 18:00:23
Line 6737  sub headtag { Line 6737  sub headtag {
  && !$args->{'frameset'}) {   && !$args->{'frameset'}) {
  $result .= &help_menu_js();   $result .= &help_menu_js();
         $result.=&modal_window();          $result.=&modal_window();
           $result.=&togglebox_script();
         $result.=&wishlist_window();          $result.=&wishlist_window();
     } else {      } else {
         if ($args->{'add_modal'}) {          if ($args->{'add_modal'}) {
Line 6745  sub headtag { Line 6746  sub headtag {
         if ($args->{'add_wishlist'}) {          if ($args->{'add_wishlist'}) {
            $result.=&wishlist_window();             $result.=&wishlist_window();
         }          }
           if ($args->{'add_togglebox'}) {
              $result.=&togglebox_script();
           }
     }      }
     if (ref($args->{'redirect'})) {      if (ref($args->{'redirect'})) {
  my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};   my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};
Line 7053  sub modal_adhoc_script { Line 7057  sub modal_adhoc_script {
 ENDADHOC  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 modal_adhoc_window {  sub modal_adhoc_window {
     my ($funcname,$width,$height,$content,$linktext)=@_;      my ($funcname,$width,$height,$content,$linktext)=@_;
     my $innerwidth=$width-20;      my $innerwidth=$width-20;
Removed from v.1.1037  
changed lines
  Added in v.1.1038

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>