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}); |
} |
} |
} |
} |