EGroupware / egroupware

{

	$calendar_data = Array();

	$GLOBALS['egw_setup']->oProc->query('SELECT cal_id, category FROM phpgw_cal',__LINE__,__FILE__);

	while($GLOBALS['egw_setup']->oProc->next_record())

	{

		$calendar_data[$GLOBALS['egw_setup']->oProc->f('cal_id')] = $GLOBALS['egw_setup']->oProc->f('category');

	}

	$GLOBALS['egw_setup']->oProc->AlterColumn('phpgw_cal','category',array('type' => 'varchar', 'precision' => 30,'nullable' => True));

	// creates uid's for all entries which do not have unique ones, they are '[email protected]'

	// very old entries even have an empty uid, see 0.9.16.006 update

	$GLOBALS['egw_setup']->oProc->query("SELECT config_name,config_value FROM {$GLOBALS['egw_setup']->config_table} WHERE config_name IN ('install_id','mail_suffix') AND config_app='phpgwapi'",__LINE__,__FILE__);

	while ($GLOBALS['egw_setup']->oProc->next_record())

	{

		$config[$GLOBALS['egw_setup']->oProc->f(0)] = $GLOBALS['egw_setup']->oProc->f(1);

	}

	$GLOBALS['egw_setup']->oProc->query('UPDATE phpgw_cal SET uid='.

		$GLOBALS['egw_setup']->db->concat($GLOBALS['egw_setup']->db->quote('cal-'),'cal_id',

			$GLOBALS['egw_setup']->db->quote('-'.$config['install_id'].'@'.

	// ORDER BY link_app2 DESC gives addressbook the highes precedens, use ASC for projects

	$GLOBALS['egw_setup']->oProc->query("SELECT link_id,link_id1 FROM phpgw_links WHERE link_app1='infolog' ORDER BY link_app2 DESC");

	$links = array();

	while ($GLOBALS['egw_setup']->oProc->next_record())

	{

		$links[$GLOBALS['egw_setup']->oProc->f(1)] = $GLOBALS['egw_setup']->oProc->f(0);

	}

	reset($links);

	while (list($info_id,$link_id) = each($links))

	{