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

Diff for /loncom/interface/lontrackstudent.pm between versions 1.26 and 1.29

version 1.26, 2009/01/02 23:07:55 version 1.29, 2009/05/14 14:23:56
Line 123  sub get_data { Line 123  sub get_data {
  ));   ));
  $r->print('<br />');   $r->print('<br />');
     }      }
       $r->print('<hr />');
     $text = 'Resubmit last request to check for newer data';      $text = 'Resubmit last request to check for newer data';
     $r->print(&Apache::loncommon::track_student_link($text,$sname,$sdom,undef,      $r->print(&Apache::loncommon::track_student_link($text,$sname,$sdom,undef,
      $env{'form.start'}));       $env{'form.start'}));
Line 579  sub handler { Line 580  sub handler {
     $r->print('<form name="trackstudent" method="post" action="/adm/trackstudent">');      $r->print('<form name="trackstudent" method="post" action="/adm/trackstudent">');
     $r->print('<br />');      $r->print('<br />');
     $r->print('<div name="statusline">'.      $r->print('<div name="statusline">'.
               &mt('Status:[_1]',                &mt('Status: [_1]',
                   '<input type="text" name="status" size="60" value="" />').                    '<input type="text" name="status" size="60" value="" readonly="readonly" />').
               '</div>');                '</div>');
     $r->rflush();      $r->rflush();
     my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin      my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin
Line 599  sub handler { Line 600  sub handler {
         if ($sname =~ /^$LONCAPA::username_re$/           if ($sname =~ /^$LONCAPA::username_re$/ 
     && $sdom =~ /^$LONCAPA::domain_re$/) {      && $sdom =~ /^$LONCAPA::domain_re$/) {
             $r->print('<h2>'.              $r->print('<h2>'.
                       &mt('Recent activity of [_1]:[_2]',$sname,$sdom).                        &mt('Recent activity of [_1]',$sname.':'.$sdom).
                       '</h2>');                        '</h2>');
             $r->print('<p>'.&mt(<<END).'</p>');              $r->print('<p class="LC_info">'
 Compiling student activity data can take a long time.                       .&mt('Compiling student activity data can take a long time.'
 Your request continues to be processed while results are displayed.                           .' Your request continues to be processed while results are displayed.')
 END                       .'</p>'
               );
             &get_data($r,\%prog_state,$navmap,              &get_data($r,\%prog_state,$navmap,
                       'student:'.$env{'form.selected_student'});                        'student:'.$env{'form.selected_student'});
         } else {          } else {
Removed from v.1.26  
changed lines
  Added in v.1.29

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