--- loncom/interface/lonindexer.pm 2004/06/17 18:22:13 1.113
+++ loncom/interface/lonindexer.pm 2004/06/17 20:43:04 1.114
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Directory Indexer
#
-# $Id: lonindexer.pm,v 1.113 2004/06/17 18:22:13 www Exp $
+# $Id: lonindexer.pm,v 1.114 2004/06/17 20:43:04 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -874,7 +874,7 @@ sub display_line {
}
# Set the icon for the file
my $iconname = &Apache::loncommon::icon($listname);
- $r->print("
");
my $metafile = $Apache::lonnet::perlvar{'lonDocRoot'}.$pathprefix.
$filecom[0].'.meta';
@@ -1017,10 +1017,17 @@ sub display_line {
if ($hash{'display_attrs_8'} == 1) {
# statistics
$r->print(" | ");
- if ($dynhash{$filelink}->{'stdno'}) {
- $r->print(&mt('Number of students: ').
- $dynhash{$filelink}->{'stdno'}.' ');
- }
+ &dynmetaprint($r,$filelink,'count');
+ &dynmetaprint($r,$filelink,'course');
+ &dynmetaprint($r,$filelink,'stdno');
+ &dynmetaprint($r,$filelink,'avetries');
+ &dynmetaprint($r,$filelink,'difficulty');
+ &dynmetaprint($r,$filelink,'disc');
+ &dynmetaprint($r,$filelink,'clear');
+ &dynmetaprint($r,$filelink,'technical');
+ &dynmetaprint($r,$filelink,'correct');
+ &dynmetaprint($r,$filelink,'helpful');
+ &dynmetaprint($r,$filelink,'depth');
$r->print(" | \n");
}
@@ -1041,16 +1048,9 @@ sub display_line {
&dynmetaprint($r,$filelink,'goto_list');
&dynmetaprint($r,$filelink,'comefrom_list');
&dynmetaprint($r,$filelink,'sequsage_list');
- my $dependencies=&Apache::lonnet::metadata($filelink,'dependencies');
- if ($dependencies=~/\w/) {
- $r->print(&mt('Links to:').
- &Apache::lonmeta::prettyprint('linkto_list',&Apache::lonnet::metadata($filelink,'dependencies'),
- (($ENV{'form.catalogmode'} ne 'groupimport')?'preview':''),
- '',
- (($ENV{'form.catalogmode'} eq 'groupimport')?'document.forms.fileattr':''),1));
- }
+ &dynmetaprint($r,$filelink,'dependencies');
$r->print('');
- }
+ }
$r->print("
\n");
}
@@ -1141,7 +1141,7 @@ sub display_line {
sub dynmetaprint {
my ($r,$filelink,$item)=@_;
if ($dynhash{$filelink}->{$item}) {
- $r->print($fieldnames{$item}.': '.
+ $r->print("\n