[Upcase-project-cvs] UpCase/admin menu.php,1.3,1.4

[<jhe...@us...>]

Update of /cvsroot/upcase-project/UpCase/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv16703

Modified Files:
	menu.php 
Log Message:
application menu now get its data from the installer's table


Index: menu.php
===================================================================
RCS file: /cvsroot/upcase-project/UpCase/admin/menu.php,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** menu.php	20 Nov 2002 14:26:14 -0000	1.3
--- menu.php	20 Nov 2002 15:54:04 -0000	1.4
***************
*** 51,65 ****
  $tmpl->MxBloc("menu", "append", "../templates/" . $uc_tmpl['APP_MENU']);
  
! $apps = array( "WebCalendar" => $ucConfig->siteUrl . "/WebCalendar",
! 				"Owl" => $ucConfig->siteUrl . "/Owl",
! 				"phpBB" => $ucConfig->siteUrl . "/phpBB2",
! 				"SPIP" => $ucConfig->siteUrl . "/SPIP");
  
! foreach ($apps as $appName => $appUrl)
  {
! 	$tmpl->MxText("menu.appmenu.application", $appName);
! 	$tmpl->MxUrl("menu.appmenu.appurl", $appUrl);
  	$tmpl->MxBloc("menu.appmenu", "loop");
  }
  
  // append administrative menu items 
--- 51,69 ----
  $tmpl->MxBloc("menu", "append", "../templates/" . $uc_tmpl['APP_MENU']);
  
! // Get all installed packages in the installer
  
! $query = sprintf($ucsql_packageinstalled, '%');
! $db = new UcSql();
! $res = $db->Execute($query) or die("Unable to execute " . $query
! 								. " - " . $db->ErrorMsg());
! 
! while (($o = $res->FetchNextObject(true)))
  {
! 	$tmpl->MxText("menu.appmenu.application", $o->PKGPATH);
! 	$tmpl->MxUrl("menu.appmenu.appurl", $ucConfig->siteUrl . "/"
! 									. $o->PKGPATH);
  	$tmpl->MxBloc("menu.appmenu", "loop");
  }
+ 
  
  // append administrative menu items