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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.182.4.5 and 1.182.4.6

version 1.182.4.5, 2009/08/13 16:12:51 version 1.182.4.6, 2009/08/13 16:19:13
Line 978  sub Create_PrgWin { Line 978  sub Create_PrgWin {
   
  #the whole function called through timeout is due to issues   #the whole function called through timeout is due to issues
  #in mozilla Read BUG #2665 if you want to know the whole story   #in mozilla Read BUG #2665 if you want to know the whole story
  &r_print($r,'<script type="text/javascript">'.   &r_print($r,'<script type="text/javascript">'."\n".
         '// <![CDATA['.          '// <![CDATA['."\n".
         "var popwin;          "var popwin;
          function openpopwin () {           function openpopwin () {
          popwin=open(\'\',\'popwin\',\'width=400,height=100\');".           popwin=open(\'\',\'popwin\',\'width=400,height=100\');".
Line 990  sub Create_PrgWin { Line 990  sub Create_PrgWin {
       &mt('Starting').'" /><\\/form>'.$end_page.        &mt('Starting').'" /><\\/form>'.$end_page.
               "\');".                "\');".
         "popwin.document.close();}".          "popwin.document.close();}".
         "\nwindow.setTimeout(openpopwin,0).          "\nwindow.setTimeout(openpopwin,0)."\n".
         '// ]]>'.          '// ]]>'."\n".
         '</script>");          '</script>");
  $prog_state{'formname'}='popremain';   $prog_state{'formname'}='popremain';
  $prog_state{'inputname'}="remaining";   $prog_state{'inputname'}="remaining";
Line 1025  sub Create_PrgWin { Line 1025  sub Create_PrgWin {
 # update progress  # update progress
 sub Update_PrgWin {  sub Update_PrgWin {
     my ($r,$prog_state,$displayString)=@_;      my ($r,$prog_state,$displayString)=@_;
     &r_print($r,'<script type="text/javascript">'.      &r_print($r,'<script type="text/javascript">'."\n".
              '// <![CDATA['.               '// <![CDATA['."\n".
              $$prog_state{'window'}.'.document.'.               $$prog_state{'window'}.'.document.'.
      $$prog_state{'formname'}.'.'.       $$prog_state{'formname'}.'.'.
      $$prog_state{'inputname'}.'.value="'.       $$prog_state{'inputname'}.'.value="'.
      $displayString.'";'.       $displayString.'";'."\n".
              '// ]]>'.               '// ]]>'."\n".
              '</script>');               '</script>');
     $$prog_state{'laststart'}=&Time::HiRes::time();      $$prog_state{'laststart'}=&Time::HiRes::time();
 }  }
Line 1085  sub Increment_PrgWin { Line 1085  sub Increment_PrgWin {
     if ($user_browser eq 'explorer' && $user_os =~ 'mac') {      if ($user_browser eq 'explorer' && $user_os =~ 'mac') {
         $lasttime = '';          $lasttime = '';
     }      }
     &r_print($r,'<script>'.      &r_print($r,'<script>'."\n".
              '// <![CDATA['.               '// <![CDATA['."\n".
              $$prog_state{'window'}.'.document.'.               $$prog_state{'window'}.'.document.'.
      $$prog_state{'formname'}.'.'.       $$prog_state{'formname'}.'.'.
      $$prog_state{'inputname'}.'.value="'.       $$prog_state{'inputname'}.'.value="'.
      $$prog_state{'done'}.'/'.$$prog_state{'max'}.       $$prog_state{'done'}.'/'.$$prog_state{'max'}.
      ': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'.       ': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'."\n".
              '// ]]>'.               '// ]]>'."\n".
              '</script>');               '</script>');
     $$prog_state{'laststart'}=&Time::HiRes::time();      $$prog_state{'laststart'}=&Time::HiRes::time();
 }  }
Line 1101  sub Increment_PrgWin { Line 1101  sub Increment_PrgWin {
 sub Close_PrgWin {  sub Close_PrgWin {
     my ($r,$prog_state)=@_;      my ($r,$prog_state)=@_;
     if ($$prog_state{'type'} eq 'popup') {      if ($$prog_state{'type'} eq 'popup') {
  &r_print($r,'<script>'.   &r_print($r,'<script>'."\n".
                  '// <![CDATA['.                   '// <![CDATA['."\n".
                  'popwin.close()'.                   'popwin.close()'."n".
                  '// ]]>'.                   '// ]]>'."\n".
                  '</script>'."\n");                   '</script>'."\n");
     } elsif ($$prog_state{'type'} eq 'inline') {      } elsif ($$prog_state{'type'} eq 'inline') {
  &Update_PrgWin($r,$prog_state,&mt('Done'));   &Update_PrgWin($r,$prog_state,&mt('Done'));
Line 1287  sub htmlareaselectactive { Line 1287  sub htmlareaselectactive {
 }";  }";
     }      }
     $output.="\nwindow.status='Activated Editfields';\n".      $output.="\nwindow.status='Activated Editfields';\n".
              '// ]]>'.               '// ]]>'."\n".
              '</script><br />'.               '</script><br />'.
  &disablelink(@fields);   &disablelink(@fields);
     return $output;      return $output;
Removed from v.1.182.4.5  
changed lines
  Added in v.1.182.4.6

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