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

Diff for /loncom/interface/statistics/lonproblemanalysis.pm between versions 1.89 and 1.90

version 1.89, 2004/09/28 20:45:40 version 1.90, 2004/09/29 14:38:35
Line 1376  sub CreateInterface { Line 1376  sub CreateInterface {
     ##      ##
     ##      ##
     $Str .= '<td>';      $Str .= '<td>';
     { # These braces are here to organize the code, not scope it.      my $analyze_selector = '<select name="AnalyzeOver" >';
         {      $analyze_selector .= '<option value="Tries" ';
             $Str .= '<nobr>'.&mt('Analyze Over ');      if (! exists($ENV{'form.AnalyzeOver'}) || 
             $Str .= &Apache::loncommon::help_open_topic          $ENV{'form.AnalyzeOver'} eq 'Tries'){
                                                   ('Analysis_Analyze_Over');          # Default to Tries
             $Str .='<select name="AnalyzeOver" >';          $analyze_selector .= ' selected ';
             $Str .= '<option value="Tries" ';      }
             if (! exists($ENV{'form.AnalyzeOver'}) ||       $analyze_selector .= '>'.&mt('Tries').'</option>';
                 $ENV{'form.AnalyzeOver'} eq 'Tries'){      $analyze_selector .= '<option value="Time" ';
                 # Default to Tries      $analyze_selector .= ' selected ' if ($ENV{'form.AnalyzeOver'} eq 'Time');
                 $Str .= ' selected ';      $analyze_selector .= '>'.&mt('Time').'</option>';
             }      $analyze_selector .= '</select>';
             $Str .= '>'.&mt('Tries').'</option>';      $Str .= '<nobr>'.
             $Str .= '<option value="Time" ';          &mt('Analyze Over [_1] [_2]',
             $Str .= ' selected ' if ($ENV{'form.AnalyzeOver'} eq 'Time');              $analyze_selector,
             $Str .= '>'.&mt('Time').'</option>';              &Apache::loncommon::help_open_topic('Analysis_Analyze_Over')).
             $Str .= '</select>';              '</nobr><br />'.$/;
             $Str .= '</nobr><br />';      ##
         }      my $numplots_selector = '<select name="NumPlots">';
         {      if (! exists($ENV{'form.NumPlots'}) 
             $Str .= '<nobr>'.&mt('Number of Plots:');          || $ENV{'form.NumPlots'} < 1 
             $Str .= '<select name="NumPlots">';          || $ENV{'form.NumPlots'} > 20) {
             if (! exists($ENV{'form.NumPlots'})           $ENV{'form.NumPlots'} = 5;
                 || $ENV{'form.NumPlots'} < 1       }
                 || $ENV{'form.NumPlots'} > 20) {      foreach my $i (1,2,3,4,5,6,7,8,10,15,20) {
                 $ENV{'form.NumPlots'} = 5;          $numplots_selector .= '<option value="'.$i.'" ';
             }          if ($ENV{'form.NumPlots'} == $i) { $numplots_selector.=' selected '; }
             foreach my $i (1,2,3,4,5,6,7,8,10,15,20) {          $numplots_selector .= '>'.$i.'</option>';
                 $Str .= '<option value="'.$i.'" ';      }
                 if ($ENV{'form.NumPlots'} == $i) { $Str.=' selected '; }      $numplots_selector .= '</select></nobr><br />';
                 $Str .= '>'.$i.'</option>';      $Str .= '<nobr><label>'.&mt('Number of Plots [_1]',$numplots_selector).
             }          '</label></nobr>';
             $Str .= '</select></nobr><br />';      ##
         }      $Str .= '<nobr><label>'.&mt('Status: [_1]',
         {  
             $Str .= '<nobr>'.&mt('Status: [_1]',  
                                  '<input type="text" '.                                   '<input type="text" '.
                                  'name="stats_status" size="60" value="" />'                                   'name="stats_status" size="60" value="" />'
                                  ).                                   ).
                     '</nobr><br />';                      '</label></nobr>';
         }  
     }  
     $Str .= '</td>';      $Str .= '</td>';
     ##      ##
     ##      ##
Removed from v.1.89  
changed lines
  Added in v.1.90

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