loncom/imspackages/imsimportdocs.pm - diff

Return to imsimportdocs.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

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 = ();