loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.91, 2004/02/05 03:47:04	version 1.92, 2004/02/17 02:43:40
Line 568 sub scanDir {	Line 568 sub scanDir {
foreach my $line (@list) {	foreach my $line (@list) {
return if ($c->aborted());	return if ($c->aborted());
#This is a kludge, sorry aboot this	#This is a kludge, sorry aboot this
my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs)=split(/\&/,$line,15);	my ($strip,$dom,undef,$testdir,undef,undef,undef,undef,undef,undef,undef,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);
next if($strip =~ /.*\.meta$/ \| $obs eq '1');	next if($strip =~ /.*\.meta$/ \| $obs eq '1');
my (@fileparts) = split(/\./,$strip);	my (@fileparts) = split(/\./,$strip);
if ($hash{'display_attrs_9'} != 1) {	if ($hash{'display_attrs_9'} != 1) {
Line 721 sub display_line {	Line 721 sub display_line {
$r->print(&mt("Up")." $tabtag</tr></form>\n");	$r->print(&mt("Up")." $tabtag</tr></form>\n");
return OK;	return OK;
}	}
# Do we have permission to look at this?	# Do we have permission to look at this?
	if($filecom[15] ne '1') { return OK if (!&Apache::lonnet::allowed('bre',$startdir.$filecom[0])); }
return OK if (!&Apache::lonnet::allowed('bre',$startdir.$filecom[0]));

# display domain	# display domain
if ($filecom[1] eq 'domain') {	if ($filecom[1] eq 'domain') {