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

Diff for /loncom/interface/loncommon.pm between versions 1.1042 and 1.1044

version 1.1042, 2011/12/21 18:01:58 version 1.1044, 2011/12/21 21:25:40
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 7189  sub LCprogressbar { Line 7193  sub LCprogressbar {
   </div>    </div>
 </p>  </p>
 ENDPROGBAR  ENDPROGBAR
     $r->print($content.&LCprogressbar_script());      &r_print($r,$content.&LCprogressbar_script());
     $r->rflush();  
 }  }
   
 sub LCprogressbarUpdate {  sub LCprogressbarUpdate {
Line 7207  sub LCprogressbarUpdate { Line 7210  sub LCprogressbarUpdate {
     $LClastpercent=$val;      $LClastpercent=$val;
     unless ($text) { $text=$val.'%'; }      unless ($text) { $text=$val.'%'; }
     $text=&js_ready($text);      $text=&js_ready($text);
     $r->print(<<ENDUPDATE);      &r_print($r,<<ENDUPDATE);
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 LCupdateProgress($val,'$text');  LCupdateProgress($val,'$text');
 // ]]>  // ]]>
 </script>  </script>
 ENDUPDATE  ENDUPDATE
     $r->rflush();  
 }  }
   
 sub LCprogressbarClose {  sub LCprogressbarClose {
     my ($r)=@_;      my ($r)=@_;
     $LClastpercent=0;      $LClastpercent=0;
     $r->print(<<ENDCLOSE);      &r_print($r,<<ENDCLOSE);
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
 \$("#progressbar").hide('slow');   \$("#progressbar").hide('slow'); 
 // ]]>  // ]]>
 </script>  </script>
 ENDCLOSE  ENDCLOSE
     $r->rflush();  }
   
   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 7237  sub html_encode { Line 7248  sub html_encode {
           
     return $result;      return $result;
 }  }
   
 sub js_ready {  sub js_ready {
     my ($result) = @_;      my ($result) = @_;
   
Removed from v.1.1042  
changed lines
  Added in v.1.1044

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