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

Diff for /loncom/interface/loncommon.pm between versions 1.1040 and 1.1046

version 1.1040, 2011/12/20 22:43:34 version 1.1046, 2011/12/23 16:55:34
Line 6563  a#LC_content_toolbar_changefolder_toggle Line 6563  a#LC_content_toolbar_changefolder_toggle
   background-image:url(/res/adm/pages/open-all-folders.gif);    background-image:url(/res/adm/pages/open-all-folders.gif);
 }  }
   
   a#LC_content_toolbar_edittoplevel {
     background-image:url(/res/adm/pages/edittoplevel.gif);
   }
   
 ul#LC_toolbar li a:hover {  ul#LC_toolbar li a:hover {
   background-position: bottom center;    background-position: bottom center;
 }  }
Line 6739  sub headtag { Line 6743  sub headtag {
         $result.=&modal_window();          $result.=&modal_window();
         $result.=&togglebox_script();          $result.=&togglebox_script();
         $result.=&wishlist_window();          $result.=&wishlist_window();
           $result.=&LCprogressbarUpdate_script();
     } else {      } else {
         if ($args->{'add_modal'}) {          if ($args->{'add_modal'}) {
            $result.=&modal_window();             $result.=&modal_window();
Line 6749  sub headtag { Line 6754  sub headtag {
         if ($args->{'add_togglebox'}) {          if ($args->{'add_togglebox'}) {
            $result.=&togglebox_script();             $result.=&togglebox_script();
         }          }
           if ($args->{'add_progressbar'}) {
              $result.=&LCprogressbarUpdate_script();
           }
     }      }
     if (ref($args->{'redirect'})) {      if (ref($args->{'redirect'})) {
  my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};   my ($time,$url,$inhibit_continue) = @{$args->{'redirect'}};
Line 6965  sub end_page { Line 6973  sub end_page {
   
 sub wishlist_window {  sub wishlist_window {
     return(<<'ENDWISHLIST');      return(<<'ENDWISHLIST');
 <script type="text/javascript" lang="javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 // <!-- BEGIN LON-CAPA Internal  // <!-- BEGIN LON-CAPA Internal
 function set_wishlistlink(title, path) {  function set_wishlistlink(title, path) {
Line 6987  ENDWISHLIST Line 6995  ENDWISHLIST
   
 sub modal_window {  sub modal_window {
     return(<<'ENDMODAL');      return(<<'ENDMODAL');
 <script type="text/javascript" lang="javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 // <!-- BEGIN LON-CAPA Internal  // <!-- BEGIN LON-CAPA Internal
 var modalWindow = {  var modalWindow = {
Line 7042  sub modal_link { Line 7050  sub modal_link {
 sub modal_adhoc_script {  sub modal_adhoc_script {
     my ($funcname,$width,$height,$content)=@_;      my ($funcname,$width,$height,$content)=@_;
     return (<<ENDADHOC);      return (<<ENDADHOC);
 <script type="text/javascript" lang="javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
         var $funcname = function()          var $funcname = function()
         {          {
Line 7057  sub modal_adhoc_script { Line 7065  sub modal_adhoc_script {
 ENDADHOC  ENDADHOC
 }  }
   
   sub modal_adhoc_inner {
       my ($funcname,$width,$height,$content)=@_;
       my $innerwidth=$width-20;
       $content=&js_ready(
                  &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).
                    &start_scrollbox($width.'px',$innerwidth.'px',$height.'px').
                       $content.
                    &end_scrollbox().
                  &end_page()
                );
       return &modal_adhoc_script($funcname,$width,$height,$content);
   }
   
   sub modal_adhoc_window {
       my ($funcname,$width,$height,$content,$linktext)=@_;
       return &modal_adhoc_inner($funcname,$width,$height,$content).
              "<a href=\"javascript:$funcname();void(0);\">".$linktext."</a>";
   }
   
   sub modal_adhoc_launch {
       my ($funcname,$width,$height,$content)=@_;
       return &modal_adhoc_inner($funcname,$width,$height,$content).(<<ENDLAUNCH);
   <script type="text/javascript">
   // <![CDATA[
   $funcname();
   // ]]>
   </script>
   ENDLAUNCH
   }
   
   sub modal_adhoc_close {
       return (<<ENDCLOSE);
   <script type="text/javascript">
   // <![CDATA[
   modalWindow.close();
   // ]]>
   </script>
   ENDCLOSE
   }
   
 sub togglebox_script {  sub togglebox_script {
    return(<<ENDTOGGLE);     return(<<ENDTOGGLE);
 <script type="text/javascript">   <script type="text/javascript"> 
Line 7097  sub end_togglebox { Line 7145  sub end_togglebox {
     return '</td></tr>'.&end_data_table();      return '</td></tr>'.&end_data_table();
 }  }
   
 sub modal_adhoc_window {  sub LCprogressbar_script {
     my ($funcname,$width,$height,$content,$linktext)=@_;     my ($id)=@_;
     my $innerwidth=$width-20;     return(<<ENDPROGRESS);
     $content=&js_ready(  <script type="text/javascript">
                &start_page('Dialog',undef,{'only_body'=>1,'bgcolor'=>'#FFFFFF'}).  // <![CDATA[
                  &start_scrollbox($width.'px',$innerwidth.'px',$height.'px').  \$('#progressbar$id').progressbar({
                     $content.    value: 0,
                  &end_scrollbox().    change: function(event, ui) {
                &end_page()      var newVal = \$(this).progressbar('option', 'value');
              );      \$('.pblabel', this).text(LCprogressTxt);
     return &modal_adhoc_script($funcname,$width,$height,$content).    }
          "<a href=\"javascript:$funcname();void(0);\">".$linktext."</a>";  });
   // ]]>
   </script>
   ENDPROGRESS
   }
   
   sub LCprogressbarUpdate_script {
      return(<<ENDPROGRESSUPDATE);
   <style type="text/css">
   .ui-progressbar { position:relative; }
   .pblabel { position: absolute; width: 100%; text-align: center; line-height: 1.9em; }
   </style>
   <script type="text/javascript">
   // <![CDATA[
   var LCprogressTxt='---';
   
   function LCupdateProgress(percent,progresstext,id) {
      LCprogressTxt=progresstext;
      \$('#progressbar'+id).progressbar('value',percent);
   }
   // ]]>
   </script>
   ENDPROGRESSUPDATE
   }
   
   my $LClastpercent;
   my $LCidcnt;
   my $LCcurrentid;
   
   sub LCprogressbar {
       my ($r)=(@_);
       $LClastpercent=0;
       $LCidcnt++;
       $LCcurrentid=$$.'_'.$LCidcnt;
       my $starting=&mt('Starting');
       my $content=(<<ENDPROGBAR);
   <p>
     <div id="progressbar$LCcurrentid">
       <span class="pblabel">$starting</span>
     </div>
   </p>
   ENDPROGBAR
       &r_print($r,$content.&LCprogressbar_script($LCcurrentid));
   }
   
   sub LCprogressbarUpdate {
       my ($r,$val,$text)=@_;
       unless ($val) { 
          if ($LClastpercent) {
              $val=$LClastpercent;
          } else {
              $val=0;
          }
       }
       if ($val<0) { $val=0; }
       if ($val>100) { $val=0; }
       $LClastpercent=$val;
       unless ($text) { $text=$val.'%'; }
       $text=&js_ready($text);
       &r_print($r,<<ENDUPDATE);
   <script type="text/javascript">
   // <![CDATA[
   LCupdateProgress($val,'$text','$LCcurrentid');
   // ]]>
   </script>
   ENDUPDATE
   }
   
   sub LCprogressbarClose {
       my ($r)=@_;
       $LClastpercent=0;
       &r_print($r,<<ENDCLOSE);
   <script type="text/javascript">
   // <![CDATA[
   \$("#progressbar$LCcurrentid").hide('slow'); 
   // ]]>
   </script>
   ENDCLOSE
   }
   
   sub r_print {
       my ($r,$to_print)=@_;
       if ($r) {
         $r->print($to_print);
         $r->rflush();
       } else {
         print($to_print);
       }
 }  }
   
 sub html_encode {  sub html_encode {
Line 7118  sub html_encode { Line 7253  sub html_encode {
           
     return $result;      return $result;
 }  }
   
 sub js_ready {  sub js_ready {
     my ($result) = @_;      my ($result) = @_;
   
Removed from v.1.1040  
changed lines
  Added in v.1.1046

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