version 1.169.2.3, 2013/02/21 21:56:09
|
version 1.169.2.5, 2013/08/08 16:53:53
|
Line 279 sub next_and_previous_buttons {
|
Line 279 sub next_and_previous_buttons {
|
# Build the 'all students' button |
# Build the 'all students' button |
my $all = ''; |
my $all = ''; |
$all .= '<input type="button" value="'.&mt('All Students').'" '. |
$all .= '<input type="button" value="'.&mt('All Students').'" '. |
'" onclick="document.Statistics.SelectedStudent.value='. |
' onclick="document.Statistics.SelectedStudent.value='. |
"''".';'.'document.Statistics.submit();" />'; |
"''".';'.'document.Statistics.submit();" />'; |
$Str .= $previousbutton.(' 'x5).$all.(' 'x5).$nextbutton; |
$Str .= $previousbutton.(' 'x5).$all.(' 'x5).$nextbutton; |
return $Str; |
return $Str; |
Line 462 sub CreateAndParseOutputSelector {
|
Line 462 sub CreateAndParseOutputSelector {
|
$Str = qq/<select size="5" name="$elementname">/; |
$Str = qq/<select size="5" name="$elementname">/; |
foreach my $option (@OutputOptions) { |
foreach my $option (@OutputOptions) { |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= " selected " if ($option->{'value'} eq $selected); |
$Str .= ' selected="selected"' if ($option->{'value'} eq $selected); |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
} |
} |
$Str .= "\n</select>"; |
$Str .= "\n</select>"; |
Line 579 sub CreateAndParseOutputDataSelector {
|
Line 579 sub CreateAndParseOutputDataSelector {
|
$Str = qq/<select size="5" name="$elementname">/; |
$Str = qq/<select size="5" name="$elementname">/; |
foreach my $option (@OutputDataOptions) { |
foreach my $option (@OutputDataOptions) { |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= "\n".' <option value="'.$option->{'value'}.'"'; |
$Str .= " selected " if ($option->{'value'} eq $chosen_output->{'value'}); |
$Str .= ' selected="selected"' if ($option->{'value'} eq $chosen_output->{'value'}); |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
} |
} |
$Str .= "\n</select>"; |
$Str .= "\n</select>"; |
Line 1118 sub excel_initialize {
|
Line 1118 sub excel_initialize {
|
my $too_many_cols_error_message = |
my $too_many_cols_error_message = |
'<h2>'.&mt('Unable to Complete Request').'</h2>'.$/. |
'<h2>'.&mt('Unable to Complete Request').'</h2>'.$/. |
'<p class="LC_warning">'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns. Excel allows only 255 columns in a spreadsheet.').'</p>'.$/. |
'<p class="LC_warning">'.&mt('LON-CAPA is unable to produce your Excel spreadsheet because your selections will result in more than 255 columns. Excel allows only 255 columns in a spreadsheet.').'</p>'.$/. |
'<p>'.&mt('You may consider reducing the number of <b>Sequences or Folders</b> you have selected.').'</p>'.$/. |
'<p>'.&mt('You may consider reducing the number of [_1]Sequences or Folders[_2] you have selected.','<b>','</b>').'</p>'.$/. |
'<p>'.&mt('LON-CAPA can produce <b>CSV</b> files of this data or Excel files of the <b>Scores Summary</b> data.').'</p>'.$/; |
'<p>'.&mt('LON-CAPA can produce [_1]CSV[_2] files of this data or Excel files of the [_1]Scores Summary[_2] data.','<b>','</b>').'</p>'.$/; |
if ($chosen_output->{'base'} eq 'tries' && $total_columns > 255) { |
if ($chosen_output->{'base'} eq 'tries' && $total_columns > 255) { |
$r->print($too_many_cols_error_message); |
$r->print($too_many_cols_error_message); |
$request_aborted = 1; |
$request_aborted = 1; |
Line 1968 sub student_tries_on_sequence {
|
Line 1968 sub student_tries_on_sequence {
|
($links eq 'all')) { |
($links eq 'all')) { |
my $link = '/adm/grades'. |
my $link = '/adm/grades'. |
'?symb='.&escape($resource->shown_symb). |
'?symb='.&escape($resource->shown_symb). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&userdom='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission'; |
'&command=submission'; |
$symbol = &link($symbol, $link); |
$symbol = &link($symbol, $link); |
} |
} |
$value .= $symbol; |
$value .= $symbol; |
Line 2126 sub student_performance_on_sequence {
|
Line 2126 sub student_performance_on_sequence {
|
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
if ( ($links eq 'yes' && $symbol ne ' ') || ($links eq 'all')) { |
my $link = '/adm/grades' . |
my $link = '/adm/grades' . |
'?symb='.&escape($resource->shown_symb). |
'?symb='.&escape($resource->shown_symb). |
'&student='.$student->{'username'}. |
'&student='.$student->{'username'}. |
'&userdom='.$student->{'domain'}. |
'&userdom='.$student->{'domain'}. |
'&command=submission'; |
'&command=submission'; |
$symbol = &link($symbol, $link); |
$symbol = &link($symbol, $link); |
} |
} |
$Str .= $symbol; |
$Str .= $symbol; |