Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.49 and 1.52

version 1.49, 2003/11/11 22:14:28 version 1.52, 2003/12/15 16:23:00
Line 1403  sub CreateInterface { Line 1403  sub CreateInterface {
     { # These braces are here to organize the code, not scope it.      { # These braces are here to organize the code, not scope it.
         {          {
             $Str .= '<nobr>'.&mt('Analyze Over ');              $Str .= '<nobr>'.&mt('Analyze Over ');
               $Str .= &Apache::loncommon::help_open_topic
                                                     ('Analysis_Analyze_Over');
             $Str .='<select name="AnalyzeOver" >';              $Str .='<select name="AnalyzeOver" >';
             $Str .= '<option value="Tries" ';              $Str .= '<option value="Tries" ';
             if (! exists($ENV{'form.AnalyzeOver'}) ||               if (! exists($ENV{'form.AnalyzeOver'}) || 
Line 1414  sub CreateInterface { Line 1416  sub CreateInterface {
             $Str .= '<option value="Time" ';              $Str .= '<option value="Time" ';
             $Str .= ' selected ' if ($ENV{'form.AnalyzeOver'} eq 'Time');              $Str .= ' selected ' if ($ENV{'form.AnalyzeOver'} eq 'Time');
             $Str .= '>'.&mt('Time').'</option>';              $Str .= '>'.&mt('Time').'</option>';
             $Str .= '</select></nobr><br />';              $Str .= '</select>';
               $Str .= '</nobr><br />';
         }          }
         {          {
             $Str .= '<nobr>'.&mt('Analyze as ');              $Str .= '<nobr>'.&mt('Analyze as ');
               $Str .= &Apache::loncommon::help_open_topic
                                                     ('Analysis_Analyze_as');
             $Str .='<select name="AnalyzeAs" >';              $Str .='<select name="AnalyzeAs" >';
             $Str .= '<option value="Concepts" ';              $Str .= '<option value="Concepts" ';
             if (! exists($ENV{'form.AnalyzeAs'}) ||               if (! exists($ENV{'form.AnalyzeAs'}) || 
Line 1433  sub CreateInterface { Line 1438  sub CreateInterface {
         }          }
         {          {
             $Str .= '<br /><nobr>'.&mt('Number of Plots:');              $Str .= '<br /><nobr>'.&mt('Number of Plots:');
               $Str .= &Apache::loncommon::help_open_topic
                                                     ('Analysis_num_plots');
             $Str .= '<select name="NumPlots">';              $Str .= '<select name="NumPlots">';
             if (! exists($ENV{'form.NumPlots'})               if (! exists($ENV{'form.NumPlots'}) 
                 || $ENV{'form.NumPlots'} < 1                   || $ENV{'form.NumPlots'} < 1 
Line 1491  sub ProblemSelector { Line 1498  sub ProblemSelector {
                         if ($ENV{'form.problemchoice'} eq $value) {                          if ($ENV{'form.problemchoice'} eq $value) {
                             $checked = 'checked ';                              $checked = 'checked ';
                         }                          }
                           my $title = $res->{'title'};
                           if (! defined($title) || $title eq '') {
                               ($title) = ($res->{'src'} =~ m:/([^/]*)$:);
                           }
                         $seq_str .= '<tr><td>'.                          $seq_str .= '<tr><td>'.
   '<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.    '<input type="radio" name="problemchoice" value="'.$value.'" '.$checked.'/>'.
   '</td><td>'.    '</td><td>'.
   '<a href="'.$res->{'src'}.'">'.$res->{'title'}.'</a> ';    '<a href="'.$res->{'src'}.'">'.$title.'</a> ';
 #  '<a href="'.$res->{'src'}.'">'.$resptype.' '.$res->{'title'}.'</a> ';  #  '<a href="'.$res->{'src'}.'">'.$resptype.' '.$res->{'title'}.'</a> ';
                         if ($partdata->{'option'} > 1) {                          if ($partdata->{'option'} > 1) {
                             $seq_str .= &mt('response').' '.$respid;                              $seq_str .= &mt('response').' '.$respid;

Removed from v.1.49  
changed lines
  Added in v.1.52


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