# The LearningOnline Network with CAPA # # $Id: lonproblemanalysis.pm,v 1.34 2003/10/13 21:12:56 matthew Exp $ # # Copyright Michigan State University Board of Trustees # # This file is part of the LearningOnline Network with CAPA (LON-CAPA). # # LON-CAPA is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. # # LON-CAPA is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with LON-CAPA; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # # /home/httpd/html/adm/gpl.txt # # http://www.lon-capa.org/ # package Apache::lonproblemanalysis; use strict; use Apache::lonnet(); use Apache::loncommon(); use Apache::lonhtmlcommon(); use Apache::loncoursedata(); use Apache::lonstatistics; use Apache::lonlocal; sub BuildProblemAnalysisPage { my ($r,$c)=@_; $r->print('
'.
' |
'.&mt('Foil Number').' | '. ''.&mt('Foil Text')." |
---|---|
'.$index.' | '. ''.$Row_Label{$foilid}." |
'.$plotlink.' | '; for (my $i=1;$i<$plots_per_row;$i++) { if ($plotlink = shift(@Plots)) { $table .= ''.$plotlink.' | '; } else { $table .= ''; } } $table .= " |
'.&mt('Sections').' | '; $Str .= ''.&mt('Enrollment Status').' | '; # $Str .= ''.&mt('Sequences and Folders').' | '; $Str .= ''; $Str .= ' |
'."\n"; $Str .= &Apache::lonstatistics::SectionSelect('Section','multiple',5); $Str .= ' | '; # $Str .= ''; $Str .= &Apache::lonhtmlcommon::StatusOptions(undef,undef,5); $Str .= ' | '; # # $Str .= ''; my $only_seq_with_assessments = sub { my $s=shift; if ($s->{'num_assess'} < 1) { return 0; } else { return 1; } }; &Apache::lonstatistics::MapSelect('Maps','multiple,all',5, $only_seq_with_assessments); # $Str .= ' | '; # $Str .= '';
$Str .= ' '; # $Str .= ' | ';
#
$Str .= '
'. ''. ' | '. ''.$res->{'title'}.' '; if ($partdata->{'option'} > 1) { $seq_str .= &mt('response').' '.$respid; } $seq_str .= " |
  | '.$seq->{'title'}.' | '. "