Silverstripe Pastes

	function onAfterWrite(){ 

		

		$currentPage = DataObject::get_by_id($this->ClassName, $this->ID);

	 			

		if(!self::$has_written && $this->seed){

			$tlp_pages = DataObject::get('RedirectorPage', "RedirectorPage.tlp = 1");



			$totalTLP = $tlp_pages->Count();

			$tlp_pages = $tlp_pages->toArray();

						

			fb::log("Start Output on ".$totalTLP." pages");

			fb::log($currentPage->Title);

						

			for ( $i = 0; $i < $totalTLP; $i++ ){

				fb::log("Page Title: ".$this->Title);

				$parentPage = $tlp_pages[$i]; // anything

				$ssPage = new Page();

				$ssPage->setParent($parentPage);

				$ssPage->Title = $this->Title;

				$ssPage->generateURLSegment($ssPage->Title);

				$ssPage->Content = 'some content';

				$ssPage->writeToStage('Stage');

				$ssPage->publish("Stage", "Stage");

				$ssPage->flushCache();	

			}

			

			self::$has_written = true;

			fb::log("Pages Seeded");			



		}



		parent::onAfterWrite();

		

	}