loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.139, 2004/08/29 06:35:41	version 1.140, 2004/09/02 15:26:40
Line 874 sub untiehash {	Line 874 sub untiehash {

sub checkonthis {	sub checkonthis {
my ($r,$url,$level,$title)=@_;	my ($r,$url,$level,$title)=@_;
	$url=&Apache::lonnet::unescape($url);
$alreadyseen{$url}=1;	$alreadyseen{$url}=1;
$r->rflush();	$r->rflush();
if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {	if (($url) && ($url!~/^\/uploaded\//) && ($url!~/\*$/)) {
Line 960 sub verifycontent {	Line 961 sub verifycontent {
%alreadyseen=();	%alreadyseen=();
&tiehash();	&tiehash();
foreach (keys %hash) {	foreach (keys %hash) {
if (($_=~/^src\_(.+)$/) && (!$alreadyseen{$hash{$_}})) {	if ($hash{$_}=~/\.(page\|sequence)$/) {
	if (($_=~/^src_/) && ($alreadyseen{&Apache::lonnet::unescape($hash{$_})})) {
	$r->print('<hr /><font color="red">'.
	&mt('The following sequence or page is included more than once in your course: ').
	&Apache::lonnet::unescape($hash{$_}).'</font><br />'.
	&mt('Note that grading records for problems included in this sequence or folder will overlap.<hr />'));
	}
	}
	if (($_=~/^src\_(.+)$/) && (!$alreadyseen{&Apache::lonnet::unescape($hash{$_})})) {
&checkonthis($r,$hash{$_},0,$hash{'title_'.$1});	&checkonthis($r,$hash{$_},0,$hash{'title_'.$1});
}	}
}	}