Divers

					my $articlePath = $elementPath{$currentElement};
					my $articleId;
					
					$articleId = 
						OB2::Element::insertFromArticle(
							$OB2, 
							$elementPath{$currentElement},
							$unArticle,
							$newIdTopic{$unTopic->{Id}});

					$newIdArticle{$unArticle->{Id}} = $articleId;
						
					$currentElement++;

					$elementPath{$currentElement} = 
						$articlePath .
						'.' . 
						$currentElement;