loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.61, 2003/02/20 19:41:26	version 1.62, 2003/03/14 16:12:14
Line 519 sub scanDir {	Line 519 sub scanDir {
my $fext = pop @fileparts;	my $fext = pop @fileparts;
my $ov = pop @fileparts;	my $ov = pop @fileparts;
my $fname = join ('.',@fileparts,$fext);	my $fname = join ('.',@fileparts,$fext);
next if (grep /$fname/,@list and $ov =~ /\d+/);	next if (grep /\Q$fname\E/,@list and $ov =~ /\d+/);
}	}
}	}

Line 739 sub display_line {	Line 739 sub display_line {
(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn');	(!defined($embstyle) \|\| $embstyle eq 'unk' \|\| $embstyle eq 'hdn');
#	#
$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>");	$r->print("<tr bgcolor=$fileclr><td nowrap valign='bottom'>");
my $metafile = grep /^$filecom[0]\.meta\&/, @list;	my $metafile = grep /^\Q$filecom[0]\E\.meta\&/, @list;
my $title;	my $title;
if ($ENV{'form.catalogmode'} eq 'interactive') {	if ($ENV{'form.catalogmode'} eq 'interactive') {
$title=$listname;	$title=$listname;