version 1.204, 2007/03/12 19:10:48
|
version 1.209, 2007/06/15 23:01:07
|
Line 265 sub fieldnames {
|
Line 265 sub fieldnames {
|
'correct' => 'Material appears to be correct', |
'correct' => 'Material appears to be correct', |
'technical' => 'Resource is technically correct', |
'technical' => 'Resource is technically correct', |
'avetries' => 'Average number of tries till solved', |
'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', |
'difficulty' => 'Degree of difficulty', |
'disc' => 'Degree of discrimination', |
'disc' => 'Degree of discrimination', |
'dependencies' => 'Resources used by this resource', |
'dependencies' => 'Resources used by this resource', |
Line 1026 sub print_dynamic_metadata {
|
Line 1026 sub print_dynamic_metadata {
|
# |
# |
# New assessment statistics |
# New assessment statistics |
$r->print('<h4>'. |
$r->print('<h4>'. |
&mt('Detailed Assessment Statistical Data'). |
&mt('Recent Detailed Assessment Statistical Data'). |
'</h4>'); |
'</h4>'); |
my $table = '<table cellspacing="2" border="0">'. |
my $table = '<table cellspacing="2" border="0">'. |
'<tr>'. |
'<tr>'. |
'<th>Course</th>'. |
'<th>'.&mt('Course').'</th>'. |
'<th>Section(s)</th>'. |
'<th>'.&mt('Section(s)').'</th>'. |
'<th>Num Students</th>'. |
'<th>'.&mt('Num Student').'s</th>'. |
'<th>Mean Tries</th>'. |
'<th>'.&mt('Mean Tries').'</th>'. |
'<th>Degree of Difficulty</th>'. |
'<th>'.&mt('Degree of Difficulty').'</th>'. |
'<th>Degree of Discrimination</th>'. |
'<th>'.&mt('Degree of Discrimination').'</th>'. |
'<th>Time of computation</th>'. |
'<th>'.&mt('Time of computation').'</th>'. |
'</tr>'.$/; |
'</tr>'.$/; |
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { |
foreach my $identifier (sort(keys(%{$dynmeta{'stats'}}))) { |
my $data = $dynmeta{'stats'}->{$identifier}; |
my $data = $dynmeta{'stats'}->{$identifier}; |
Line 1212 ENDBOMBS
|
Line 1212 ENDBOMBS
|
<input type="submit" name="clearmsg" value="$clear" /> |
<input type="submit" name="clearmsg" value="$clear" /> |
ENDDEL |
ENDDEL |
} else { |
} else { |
$r->print('<p><a href="'.$disuri.'" />'.$goback.'</a></p>'); |
$r->print('<p><a href="'.$disuri.'">'.$goback.'</a></p>'); |
if ($env{'form.clearmsg'}) { |
if ($env{'form.clearmsg'}) { |
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
my ($diruri) = ($disuri =~ m{(.*/)[^/]*}); |
$r->print('<p><a href="'.$diruri.'" />'. |
$r->print('<p><a href="'.$diruri.'">'. |
&mt('Back To Directory').'</a></p>'); |
&mt('Back To Directory').'</a></p>'); |
} |
} |
} |
} |
Line 1312 ENDEDIT
|
Line 1312 ENDEDIT
|
$Apache::lonpublisher::metadatafields{'owner'} = |
$Apache::lonpublisher::metadatafields{'owner'} = |
$env{'user.name'}.':'.$env{'user.domain'}; |
$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 ($Apache::lonpublisher::metadatafields{'courserestricted'} ne 'none') { |
|
|
if ($file_type eq 'portfolio') { |
if ($file_type eq 'portfolio') { |
Line 1386 ENDEDIT
|
Line 1391 ENDEDIT
|
$r->print($result); |
$r->print($result); |
} |
} |
$r->print($output.'<br /><input type="submit" name="store" value="'. |
$r->print($output.'<br /><input type="submit" name="store" value="'. |
&mt('Store Catalog Information').'" />'); |
&mt('Save Catalog Information').'" />'); |
|
|
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
if ($file_type eq 'portfolio' || $file_type eq 'groups') { |
my ($port_path,$group) = &get_port_path_and_group($uri); |
my ($port_path,$group) = &get_port_path_and_group($uri); |