version 1.12, 2005/04/07 06:56:22
|
version 1.13, 2005/10/27 17:07:23
|
Line 620 sub display_three {
|
Line 620 sub display_three {
|
|
|
foreach my $item (@pages) { |
foreach my $item (@pages) { |
my $filename = $timenow.'/pages/'.$item; |
my $filename = $timenow.'/pages/'.$item; |
my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$chome,$filename,''); |
my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$filename,''); |
} |
} |
foreach my $item (@sequences) { |
foreach my $item (@sequences) { |
unless ($item eq 'Top.sequence' && $toplevel eq 'oldfolder') { |
unless ($item eq 'Top.sequence' && $toplevel eq 'oldfolder') { |
my $filename = $timenow.'/sequences/'.$item; |
my $filename = $timenow.'/sequences/'.$item; |
my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$chome,$filename,''); |
my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$filename,''); |
} |
} |
} |
} |
foreach my $item (@resrcfiles) { |
foreach my $item (@resrcfiles) { |
my $filename = $timenow.'/resfiles/'.$item; |
my $filename = $timenow.'/resfiles/'.$item; |
my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$chome,$filename,''); |
my $fetchresult= &Apache::lonnet::process_coursefile('propagate',$crs,$cdom,$filename,''); |
} |
} |
|
|
my @imports = (); |
my @imports = (); |