--- loncom/interface/lonmeta.pm 2007/03/12 19:10:48 1.204 +++ loncom/interface/lonmeta.pm 2007/06/15 23:01:07 1.209 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Metadata display handler # -# $Id: lonmeta.pm,v 1.204 2007/03/12 19:10:48 banghart Exp $ +# $Id: lonmeta.pm,v 1.209 2007/06/15 23:01:07 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -265,7 +265,7 @@ sub fieldnames { 'correct' => 'Material appears to be correct', 'technical' => 'Resource is technically correct', 'avetries' => 'Average number of tries till solved', - 'stdno' => 'Total number of students who have worked on this problem', + 'stdno' => 'Statistics calculated for number of students', 'difficulty' => 'Degree of difficulty', 'disc' => 'Degree of discrimination', 'dependencies' => 'Resources used by this resource', @@ -1026,17 +1026,17 @@ sub print_dynamic_metadata { # # New assessment statistics $r->print('

'. - &mt('Detailed Assessment Statistical Data'). + &mt('Recent Detailed Assessment Statistical Data'). '

'); my $table = ''. ''. - ''. - ''. - ''. - ''. - ''. - ''. - ''. + ''. + ''. + ''. + ''. + ''. + ''. + ''. ''.$/; foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { my $data = $dynmeta{'stats'}->{$identifier}; @@ -1212,10 +1212,10 @@ ENDBOMBS ENDDEL } else { - $r->print('

'.$goback.'

'); + $r->print('

'.$goback.'

'); if ($env{'form.clearmsg'}) { my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); - $r->print('

'. + $r->print('

'. &mt('Back To Directory').'

'); } } @@ -1312,6 +1312,11 @@ ENDEDIT $Apache::lonpublisher::metadatafields{'owner'} = $env{'user.name'}.':'.$env{'user.domain'}; } + if (! $Apache::lonpublisher::metadatafields{'author'}) { + $Apache::lonpublisher::metadatafields{'author'} = + &Apache::loncommon::plainname($env{'user.name'}, + $env{'user.domain'}); + } if ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { if ($file_type eq 'portfolio') { @@ -1386,7 +1391,7 @@ ENDEDIT $r->print($result); } $r->print($output.'
'); + &mt('Save Catalog Information').'" />'); if ($file_type eq 'portfolio' || $file_type eq 'groups') { my ($port_path,$group) = &get_port_path_and_group($uri);
CourseSection(s)Num StudentsMean TriesDegree of DifficultyDegree of DiscriminationTime of computation'.&mt('Course').''.&mt('Section(s)').''.&mt('Num Student').'s'.&mt('Mean Tries').''.&mt('Degree of Difficulty').''.&mt('Degree of Discrimination').''.&mt('Time of computation').'