--- loncom/interface/lonmeta.pm 2010/06/06 02:40:30 1.240
+++ loncom/interface/lonmeta.pm 2012/03/16 02:12:26 1.245
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Metadata display handler
#
-# $Id: lonmeta.pm,v 1.240 2010/06/06 02:40:30 raeburn Exp $
+# $Id: lonmeta.pm,v 1.245 2012/03/16 02:12:26 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -779,7 +779,7 @@ sub handler {
if ($env{'request.state'} eq 'construct') {
&Apache::lonhtmlcommon::add_breadcrumb({
'text' => 'Construction Space',
- 'href' => &Apache::loncommon::authorspace(),
+ 'href' => &Apache::loncommon::authorspace($uri),
});
}
@@ -828,7 +828,7 @@ sub handler {
{'domain' => $resdomain,}));
$r->print(&pageheader());
&present_editable_metadata($r,$uri,'groups');
- } elsif ($uri=~m|^/~|) {
+ } elsif ($uri=~m|^/priv|) {
# Construction space
&Apache::lonhtmlcommon::add_breadcrumb({
'text' => 'Edit Metadata',
@@ -874,7 +874,7 @@ sub report_bombs {
$uri = &Apache::lonnet::declutter($uri);
$r->print('
'.&Apache::lonnet::clutter($uri).'
');
my ($domain,$author)=($uri=~/^($match_domain)\/($match_username)\//);
- if (&Apache::loncacc::constructaccess('/~'.$author.'/',$domain)) {
+ if (&Apache::loncacc::constructaccess('/priv/'.$domain.'/'.$author.'/')) {
if ($env{'form.clearbombs'}) {
&Apache::lonmsg::clear_author_res_msg($uri);
}
@@ -1053,7 +1053,7 @@ sub print_dynamic_metadata {
}
#
# Assessment statistics
- if ($uri=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+ if ($uri=~/$LONCAPA::assess_re/) {
if (exists($dynmeta{'stdno'}) ||
exists($dynmeta{'avetries'}) ||
exists($dynmeta{'difficulty'}) ||
@@ -1092,6 +1092,7 @@ sub print_dynamic_metadata {
.''.&mt('Course').' | '
.''.&mt('Section(s)').' | '
.''.&mt('Num Students').' | '
+ .''.&mt('Part').' | '
.''.&mt('Mean Tries').' | '
.''.&mt('Degree of Difficulty').' | '
.''.&mt('Degree of Discrimination').' | '
@@ -1114,6 +1115,8 @@ sub print_dynamic_metadata {
''.$data->{'sections'}.' | ';
$table .=
''.$data->{'stdno'}.' | ';
+ $table .=
+ ''.$data->{'part'}.' | ';
foreach my $item ('avetries','difficulty','disc') {
$table .= '';
if (exists($data->{$item})) {
|