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

Diff for /loncom/interface/lonhtmlcommon.pm between versions 1.296 and 1.300

version 1.296, 2011/12/11 13:23:24 version 1.300, 2012/01/03 00:28:29
Line 991  Returns: none Line 991  Returns: none
 ########################################################  ########################################################
 ########################################################  ########################################################
   
 my $uniq=0;  
 sub get_uniq_name {  
     $uniq++;  
     return 'uniquename'.$uniq;  
 }  
   
 # Create progress  # Create progress
 sub Create_PrgWin {  sub Create_PrgWin {
     my ($r, $title, $heading, $number_to_do,$type,$width,$formname,      my ($r,$number_to_do)=@_;
  $inputname)=@_;  
     if (!defined($type)) { $type='popup'; }  
     if (!defined($width)) { $width=55; }  
     my %prog_state;      my %prog_state;
     $prog_state{'type'}=$type;  
     if ($type eq 'popup') {  
  $prog_state{'window'}='popwin';  
  my $start_page =  
     &Apache::loncommon::start_page($title,undef,  
    {'only_body' => 1,  
     'bgcolor'   => '#88DDFF',  
     'js_ready'  => 1});  
  my $end_page = &Apache::loncommon::end_page({'js_ready'  => 1});  
   
  #the whole function called through timeout is due to issues  
  #in mozilla Read BUG #2665 if you want to know the whole story  
  &r_print($r,&Apache::lonhtmlcommon::scripttag(  
         "var popwin;  
          function openpopwin () {  
          popwin=open(\'\',\'popwin\',\'width=400,height=100\');".  
         "popwin.document.writeln(\'".$start_page.  
               "<h4>".&mt("$heading")."<\/h4>".  
               "<form action=\"\" name=\"popremain\" method=\"post\">".  
               '<input type="text" size="'.$width.'" name="remaining" value="'.  
       &mt('Starting').'" /><\\/form>'.$end_page.  
               "\');".  
         "popwin.document.close();}".  
         "\nwindow.setTimeout(openpopwin,0)"  
     ));  
  $prog_state{'formname'}='popremain';  
  $prog_state{'inputname'}="remaining";  
     } elsif ($type eq 'inline') {  
  $prog_state{'window'}='window';  
  if (!$formname) {  
     $prog_state{'formname'}=&get_uniq_name();  
     &r_print($r,'<form action="" name="'.$prog_state{'formname'}.'">');  
  } else {  
     $prog_state{'formname'}=$formname;  
  }  
  if (!$inputname) {  
     $prog_state{'inputname'}=&get_uniq_name();  
     &r_print($r,&mt("$heading [_1]",' <input type="text" name="'.$prog_state{'inputname'}.'" size="'.$width.'" />'));  
  } else {  
     $prog_state{'inputname'}=$inputname;  
       
  }  
  if (!$formname) { &r_print($r,'</form>'); }  
  &Update_PrgWin($r,\%prog_state,&mt('Starting'));  
     }  
   
     $prog_state{'done'}=0;      $prog_state{'done'}=0;
     $prog_state{'firststart'}=&Time::HiRes::time();      $prog_state{'firststart'}=&Time::HiRes::time();
     $prog_state{'laststart'}=&Time::HiRes::time();      $prog_state{'laststart'}=&Time::HiRes::time();
     $prog_state{'max'}=$number_to_do;      $prog_state{'max'}=$number_to_do;
           &Apache::loncommon::LCprogressbar($r); 
     return %prog_state;      return %prog_state;
 }  }
   
 # update progress  # update progress
 sub Update_PrgWin {  sub Update_PrgWin {
     my ($r,$prog_state,$displayString)=@_;      my ($r,$prog_state,$displayString)=@_;
     &r_print($r,&Apache::lonhtmlcommon::scripttag(      &Apache::loncommon::LCprogressbarUpdate($r,undef,$displayString);
         $$prog_state{'window'}.'.document.'.  
         $$prog_state{'formname'}.'.'.  
         $$prog_state{'inputname'}.'.value="'.  
         $displayString.'";'  
     ));  
     $$prog_state{'laststart'}=&Time::HiRes::time();      $$prog_state{'laststart'}=&Time::HiRes::time();
 }  }
   
Line 1112  sub Increment_PrgWin { Line 1053  sub Increment_PrgWin {
             $min,              $min,
             $sec,              $sec,
             $lasttime);              $lasttime);
       my $percent=0;
     &r_print($r,&Apache::lonhtmlcommon::scripttag(      if ($$prog_state{'max'}) {
         $$prog_state{'window'}.'.document.'.         $percent=int(100.*$current/$$prog_state{'max'});
         $$prog_state{'formname'}.'.'.      }
         $$prog_state{'inputname'}.'.value="'.$timeinfo.'";'      &Apache::loncommon::LCprogressbarUpdate($r,$percent,$timeinfo);
     ));  
     $$prog_state{'laststart'}=&Time::HiRes::time();      $$prog_state{'laststart'}=&Time::HiRes::time();
 }  }
   
 # close Progress Line  # close Progress Line
 sub Close_PrgWin {  sub Close_PrgWin {
     my ($r,$prog_state)=@_;      my ($r,$prog_state)=@_;
     if ($$prog_state{'type'} eq 'popup') {      &Apache::loncommon::LCprogressbarClose($r);
         &r_print($r,&Apache::lonhtmlcommon::scripttag(  
             'popwin.close()'  
         ));  
     } elsif ($$prog_state{'type'} eq 'inline') {  
  &Update_PrgWin($r,$prog_state,&mt('Done'));  
     }  
     undef(%$prog_state);      undef(%$prog_state);
 }  }
   
 sub r_print {  
     my ($r,$to_print)=@_;  
     if ($r) {  
  $r->print($to_print);  
  $r->rflush();  
     } else {  
  print($to_print);  
     }  
 }  
   
 # ------------------------------------------------------- Puts directory header  # ------------------------------------------------------- Puts directory header
   
 sub crumbs {  sub crumbs {
Line 1538  returns: nothing Line 1462  returns: nothing
         }          }
         my $links;          my $links;
         if ((&show_return_link) && (!$CourseBreadcrumbs)) {          if ((&show_return_link) && (!$CourseBreadcrumbs)) {
            $links=&htmltag( 'a',"<img src='/res/adm/pages/reload.png' border='0' style='vertical-align:middle;' />",              my $alttext = &mt('Go Back');
               $links=&htmltag( 'a',"<img src='/res/adm/pages/reload.png' border='0' style='vertical-align:middle;' alt='$alttext' />",
                             { href => '/adm/flip?postdata=return:',                              { href => '/adm/flip?postdata=return:',
                               title => &mt("Back to most recent content resource") });                                title => &mt("Back to most recent content resource") });
               $links=&htmltag('li',$links);
         }          }
         $links.= join "",           $links.= join "", 
              map {               map {
Line 2077  sub course_custom_roles { Line 2003  sub course_custom_roles {
   
   
 sub resource_info_box {  sub resource_info_box {
    my ($symb,$onlyfolderflag)=@_;     my ($symb,$onlyfolderflag,$stuvcurrent,$stuvdisp)=@_;
    my $return='';     my $return='';
      if ($stuvcurrent ne '') {
          $return = '<div class="LC_left_float">';
      }
    if ($symb) {     if ($symb) {
        $return=&Apache::loncommon::start_data_table();         $return.=&Apache::loncommon::start_data_table();
        my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb);         my ($map,$id,$resource)=&Apache::lonnet::decode_symb($symb);
        my $folder=&Apache::lonnet::gettitle($map);         my $folder=&Apache::lonnet::gettitle($map);
        $return.=&Apache::loncommon::start_data_table_row().         $return.=&Apache::loncommon::start_data_table_row().
                     '<th>'.&mt('Folder:').'</th><td>'.$folder.'</td>'.                      '<th align="left">'.&mt('Folder:').'</th><td>'.$folder.'</td>'.
                     &Apache::loncommon::end_data_table_row();                      &Apache::loncommon::end_data_table_row();
        unless ($onlyfolderflag) {         unless ($onlyfolderflag) {
           $return.=&Apache::loncommon::start_data_table_row().            $return.=&Apache::loncommon::start_data_table_row().
                     '<th>'.&mt('Resource:').'</th><td>'.&Apache::lonnet::gettitle($symb).'</td>'.                      '<th align="left">'.&mt('Resource:').'</th><td>'.&Apache::lonnet::gettitle($symb).'</td>'.
                       &Apache::loncommon::end_data_table_row();
          }
          if ($stuvcurrent ne '') {
              $return .= &Apache::loncommon::start_data_table_row().
                       '<th align="left">'.&mt("Student's current version:").'</th><td>'.$stuvcurrent.'</td>'.
                       &Apache::loncommon::end_data_table_row();
          }
          if ($stuvdisp ne '') {
              $return .= &Apache::loncommon::start_data_table_row().
                       '<th align="left">'.&mt("Student's version displayed:").'</th><td>'.$stuvdisp.'</td>'.
                     &Apache::loncommon::end_data_table_row();                      &Apache::loncommon::end_data_table_row();
        }         }
        $return.=&Apache::loncommon::end_data_table();         $return.=&Apache::loncommon::end_data_table();
     } else {      } else {
        $return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>';         $return='<p><span class="LC_error">'.&mt('No context provided.').'</span></p>';
     }      }
       if ($stuvcurrent ne '') {
           $return .= '</div>';
       }
     return $return;      return $return;
   
 }  }
   
 ##############################################  ##############################################
Removed from v.1.296  
changed lines
  Added in v.1.300

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