--- 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(""); + $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
".$fieldnames{$item}.': '. &Apache::lonmeta::prettyprint($item, $dynhash{$filelink}->{$item}, (($ENV{'form.catalogmode'} ne 'groupimport')?'preview':''),