Subversion-Projekte lars-tiefland.prado

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
<?php
2 
 
3 
class NorthwindCrud extends TPage
4 
{
5 
	function onInit($param)
6 
	{
7 
		$classes = $this->getRecordClassList(Prado::getPathOfNamespace('Application.database.*'));
8 
		$this->class_list->dataSource = $classes;
9 
		$this->class_list->dataBind();
10 
	}
11 
 
12 
	protected function getRecordClassList($directory)
13 
	{
14 
		$list=array();
15 
		$folder=@opendir($directory);
16 
		while($entry=@readdir($folder))
17 
		{
18 
			if($entry[0]==='.')
19 
				continue;
20 
			else if(is_file($directory.'/'.$entry) && strpos($entry,'.php'))
21 
				$list[] = str_replace('.php', '', $entry);
22 
		}
23 
		closedir($folder);
24 
		return $list;
25 
	}
26 
}
27 
 
28 
?>