loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.106, 2004/02/13 14:59:48	version 1.108, 2004/02/27 18:16:54
Line 97 sub authorhosts {	Line 97 sub authorhosts {
} else {	} else {
($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);	($cd,$ca)=($realm=~/^\/(\w+)\/(\w+)$/);
}	}
if (&Apache::lonnet::homeserver($ca,$cd) eq	my $allowed=0;
$Apache::lonnet::perlvar{'lonHostID'}) {	my $myhome=&Apache::lonnet::homeserver($ca,$cd);
	my @ids=&Apache::lonnet::current_machine_ids();
	foreach my $id (@ids) { if ($id eq $myhome) { $allowed=1; } }
	if ($allowed) {
$home++;	$home++;
$outhash{'home_'.$ca.'@'.$cd}=1;	$outhash{'home_'.$ca.'@'.$cd}=1;
} else {	} else {
$outhash{'otherhome_'.$ca.'@'.$cd}=	$outhash{'otherhome_'.$ca.'@'.$cd}=$myhome;
&Apache::lonnet::homeserver($ca,$cd);
$other++;	$other++;
}	}
}	}
Line 502 sub checkonthis {	Line 504 sub checkonthis {
$alreadyseen{$url}=1;	$alreadyseen{$url}=1;
$r->rflush();	$r->rflush();
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {	if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
$r->print('<br />');	$r->print("\n<br />");
for (my $i=0;$i<=$level*5;$i++) {	for (my $i=0;$i<=$level*5;$i++) {
$r->print(' ');	$r->print(' ');
}	}
Line 590 sub verifycontent {	Line 592 sub verifycontent {
}	}
}	}
&untiehash();	&untiehash();
$r->print('<h1>'.&mt('Done').'.</h1>');	$r->print('<h1>'.&mt('Done').'.</h1>'.'<a href="/adm/coursedocs">'.
	&mt('Return to DOCS').'</a>');
}	}

# -------------------------------------------------------------- Check Versions	# -------------------------------------------------------------- Check Versions