loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.154, 2006/12/05 02:55:53	version 1.156, 2007/01/16 21:20:57
Line 680 sub get_list {	Line 680 sub get_list {
$uri=~s/\/+/\//g;	$uri=~s/\/+/\//g;
foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri))) {	foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri))) {
my @ratpart=split(/\:/,$_);	my @ratpart=split(/\:/,$_);
push @list,$ratpart[1];	push(@list,&LONCAPA::map::qtescape($ratpart[1]));
}	}
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
} else {	} else {
Line 689 sub get_list {	Line 689 sub get_list {
$hash{'dirlist_files_'.$luri} = join("\n",@list);	$hash{'dirlist_files_'.$luri} = join("\n",@list);
$hash{'dirlist_timestamp_files_'.$luri} = time;	$hash{'dirlist_timestamp_files_'.$luri} = time;
}	}
return @list=&match_ext($r,@list);	return @list=&match_ext($r,@list);
}	}

sub dynmetaread {	sub dynmetaread {
Line 799 sub display_line {	Line 799 sub display_line {
my $i=0;	my $i=0;
while ($i<=11) {	while ($i<=11) {
$tabtag=join('',$tabtag,"<td> </td>")	$tabtag=join('',$tabtag,"<td> </td>")
if $hash{'display_attrs_'.$i} == 1;	if ($i != 9 &&
	$hash{'display_attrs_'.$i} == 1);
$i++;	$i++;
}	}
my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');	my $valign = ($hash{'display_attrs_7'} == 1 ? 'top' : 'bottom');