loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonindexer.pm between versions 1.113 and 1.114

version 1.113, 2004/06/17 18:22:13	version 1.114, 2004/06/17 20:43:04
Line 874 sub display_line {	Line 874 sub display_line {
}	}
# Set the icon for the file	# Set the icon for the file
my $iconname = &Apache::loncommon::icon($listname);	my $iconname = &Apache::loncommon::icon($listname);
$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap>");	$r->print("<tr valign='$valign' bgcolor=$fileclr><td nowrap='1' align='top'>");

my $metafile = $Apache::lonnet::perlvar{'lonDocRoot'}.$pathprefix.	my $metafile = $Apache::lonnet::perlvar{'lonDocRoot'}.$pathprefix.
$filecom[0].'.meta';	$filecom[0].'.meta';
Line 1017 sub display_line {	Line 1017 sub display_line {
if ($hash{'display_attrs_8'} == 1) {	if ($hash{'display_attrs_8'} == 1) {
# statistics	# statistics
$r->print("<td>");	$r->print("<td>");
if ($dynhash{$filelink}->{'stdno'}) {	&dynmetaprint($r,$filelink,'count');
$r->print(&mt('Number of students: ').	&dynmetaprint($r,$filelink,'course');
$dynhash{$filelink}->{'stdno'}.'<br />');	&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(" </td>\n");	$r->print(" </td>\n");

}	}
Line 1041 sub display_line {	Line 1048 sub display_line {
&dynmetaprint($r,$filelink,'goto_list');	&dynmetaprint($r,$filelink,'goto_list');
&dynmetaprint($r,$filelink,'comefrom_list');	&dynmetaprint($r,$filelink,'comefrom_list');
&dynmetaprint($r,$filelink,'sequsage_list');	&dynmetaprint($r,$filelink,'sequsage_list');
my $dependencies=&Apache::lonnet::metadata($filelink,'dependencies');	&dynmetaprint($r,$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));
}
$r->print('</td>');	$r->print('</td>');
}	}
$r->print("</tr>\n");	$r->print("</tr>\n");
}	}

Line 1141 sub display_line {	Line 1141 sub display_line {
sub dynmetaprint {	sub dynmetaprint {
my ($r,$filelink,$item)=@_;	my ($r,$filelink,$item)=@_;
if ($dynhash{$filelink}->{$item}) {	if ($dynhash{$filelink}->{$item}) {
$r->print($fieldnames{$item}.': '.	$r->print("\n<br />".$fieldnames{$item}.': '.
&Apache::lonmeta::prettyprint($item,	&Apache::lonmeta::prettyprint($item,
$dynhash{$filelink}->{$item},	$dynhash{$filelink}->{$item},
(($ENV{'form.catalogmode'} ne 'groupimport')?'preview':''),	(($ENV{'form.catalogmode'} ne 'groupimport')?'preview':''),

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.113
changed lines
	Added in v.1.114