';
- $Str .= 'Course: '; - $Str .= $ENV{'course.'.$ENV{'request.course.id'}.'.description'}; - $Str .= ' | '."\n"; - $Str .= ''; - $Str .= ' |
'."\n"; - $Str .= ' | Analysis Reports: | '."\n"; - $Str .= 'Student Status: | |
{'reportSelected'} eq $reports->{$_}) { - $Str .= ' selected=""'; - } - $Str .= '>'.$reports->{$_}.''."\n"; - } - $Str .= ' | '."\n"; - - $Str .= ''; - $Str .= &StatusOptions($status, 'Statistics'); - $Str .= ' | '."\n"; + my $time_est= (&Time::HiRes::time() - $$prog_state{'firststart'})/ + $current * $last; + $time_est = int($time_est); + # + my $min = int($time_est/60); + my $sec = $time_est % 60; + + my $lasttime = &Time::HiRes::time()-$$prog_state{'laststart'}; + if ($lasttime > 9) { + $lasttime = int($lasttime); + } elsif ($lasttime < 0.01) { + $lasttime = 0; + } else { + $lasttime = sprintf("%3.2f",$lasttime); + } - $Str .= '
'.$$codetitles[0].' '."\n". + ' | ';
+ for (my $i=1; $i<$numtitles; $i++) {
+ $output .= ''.$$codetitles[$i].' '."\n". + ''."\n". + ' | ';
+ }
+ $output .= '
'.&mt('No context provided.').'
'; + } + if ($stuvcurrent ne '') { + $return .= '