version 1.74, 2003/11/11 22:14:28
|
version 1.75, 2003/11/20 20:21:17
|
Line 54 use Apache::lonstatistics;
|
Line 54 use Apache::lonstatistics;
|
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::loncoursedata; |
use Apache::loncoursedata; |
use Apache::lonnet; # for logging porpoises |
use Apache::lonnet; # for logging porpoises |
|
use Apache::lonlocal; |
use Spreadsheet::WriteExcel; |
use Spreadsheet::WriteExcel; |
|
|
####################################################### |
####################################################### |
Line 316 sub CreateInterface {
|
Line 317 sub CreateInterface {
|
# $Str .= &CreateLegend(); |
# $Str .= &CreateLegend(); |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<table cellspacing="5">'."\n"; |
$Str .= '<tr>'; |
$Str .= '<tr>'; |
$Str .= '<td align="center"><b>Sections</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sections').'</b></td>'; |
$Str .= '<td align="center"><b>Student Data</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Student Data</b>').'</td>'; |
$Str .= '<td align="center"><b>Enrollment Status</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Enrollment Status').'</b></td>'; |
$Str .= '<td align="center"><b>Sequences and Folders</b></td>'; |
$Str .= '<td align="center"><b>'.&mt('Sequences and Folders').'</b></td>'; |
$Str .= '<td align="center"><b>Output Format</b>'. |
$Str .= '<td align="center"><b>'.&mt('Output Format').'</b>'. |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
&Apache::loncommon::help_open_topic("Chart_Output_Formats"). |
'</td>'; |
'</td>'; |
$Str .= '<td align="center"><b>Output Data</b>'. |
$Str .= '<td align="center"><b>'.&mt('Output Data').'</b>'. |
&Apache::loncommon::help_open_topic("Chart_Output_Data"). |
&Apache::loncommon::help_open_topic("Chart_Output_Data"). |
'</td>'; |
'</td>'; |
$Str .= '</tr>'."\n"; |
$Str .= '</tr>'."\n"; |
Line 352 sub CreateInterface {
|
Line 353 sub CreateInterface {
|
$Str .= &CreateAndParseOutputDataSelector(); |
$Str .= &CreateAndParseOutputDataSelector(); |
$Str .= '</td></tr>'."\n"; |
$Str .= '</td></tr>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '</table>'."\n"; |
$Str .= '<input type="submit" value="Generate Chart" />'; |
$Str .= '<input type="submit" name="Generate Chart" value="'. |
|
&mt('Generate Chart').'" />'; |
$Str .= ' 'x5; |
$Str .= ' 'x5; |
$Str .= '<input type="submit" name="selectstudent" '. |
$Str .= '<input type="submit" name="selectstudent" value="'. |
'value="Select One Student" />'; |
&mt('Select One Student').'" />'; |
$Str .= ' 'x5; |
$Str .= ' 'x5; |
$Str .= '<input type="submit" name="ClearCache" value="Clear Caches" />'; |
$Str .= '<input type="submit" name="ClearCache" value="'. |
|
&mt('Clear Caches').'" />'; |
$Str .= ' 'x5; |
$Str .= ' 'x5; |
$Str .= '<br />'; |
$Str .= '<br />'; |
return $Str; |
return $Str; |
Line 458 sub CreateAndParseOutputSelector {
|
Line 461 sub CreateAndParseOutputSelector {
|
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 " if ($option->{'value'} eq $selected); |
$Str .= ">".$option->{'name'}."<\/option>"; |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
} |
} |
$Str .= "\n</select>"; |
$Str .= "\n</select>"; |
return $Str; |
return $Str; |
Line 566 sub CreateAndParseOutputDataSelector {
|
Line 569 sub CreateAndParseOutputDataSelector {
|
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 $data); |
$Str .= " selected " if ($option->{'value'} eq $data); |
$Str .= ">".$option->{'name'}."<\/option>"; |
$Str .= ">".&mt($option->{'name'})."<\/option>"; |
} |
} |
$Str .= "\n</select>"; |
$Str .= "\n</select>"; |
return $Str; |
return $Str; |