MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
See the License here <http://www.gnu.org/licenses/gpl-3.0.html>.
***********************************************************************/
-$page_security = 20;
+$page_security = 'SA_SOFTWAREUPGRADE';
$path_to_root="..";
include_once($path_to_root . "/includes/session.inc");
-page(_("Software Upgrade"));
+page(_($help_context = "Software Upgrade"));
include_once($path_to_root . "/includes/date_functions.inc");
include_once($path_to_root . "/admin/db/company_db.inc");
//
function check_table($pref, $table, $field=null, $properties=null)
{
- $fields = @db_query("SHOW COLUMNS FROM ".$pref.$table);
- if (!$fields)
+ $tables = @db_query("SHOW TABLES LIKE '".$pref.$table."'");
+ if (!db_num_rows($tables))
return 1; // no such table or error
+ $fields = @db_query("SHOW COLUMNS FROM ".$pref.$table);
if (!isset($field))
return 0; // table exists
while(false !== ($fname = readdir($datadir)))
{ // check all php files but index.php
if (!is_dir($patchdir . $fname) && ($fname != 'index.php')
- && stristr($fname, '.php') != false)
+ && stristr($fname, '.php') != false && $fname[0] != '.')
{
unset($install);
include_once($patchdir . $fname);
global $path_to_root, $installers;
$inst = $installers[$index];
- $sql = $inst->sql;
$pref = $conn['tbpref'];
$ret = true;
$force = get_post('force_'.$index);
if ($force || get_post('install_'.$index))
{
- if (!$inst->installed($pref) || $force)
+ $state = $inst->installed($pref);
+ if (!$state || $force)
{
- if (!$inst->pre_check($pref)) return false;
+ if (!$inst->pre_check($pref, $force)) return false;
+ $sql = $inst->sql;
+ error_log(sprintf(_("Database upgrade for company '%s' (%s:%s*) started..."),
+ $conn['name'], $conn['dbname'], $conn['tbpref']));
+
if ($sql != '')
$ret &= db_import($path_to_root.'/sql/'.$sql, $conn, $force);
$ret &= $inst->install($pref, $force);
- }
+
+ error_log(_("Database upgrade finished."));
+
+ } else
+ if ($state!==true) {
+ display_error(_("Upgrade cannot be done because database has been already partially upgraded. Please downgrade database to clean previous version or try forced upgrade."));
+ $ret = false;
+ }
}
return $ret;
}
$_SESSION["wa_current_user"]->prefs = new user_prefs($user);
display_notification(_('All companies data has been successfully updated'));
}
+ unset($_SESSION['SysPrefs']); // re-read system setup
+ $_SESSION['SysPrefs'] = new sys_prefs();
$Ajax->activate('_page_body');
}
start_form();
-start_table($table_style);
+start_table(TABLESTYLE);
$th = array(_("Version"), _("Description"), _("Sql file"), _("Install"),
_("Force upgrade"));
table_header($th);
$k = 0; //row colour counter
+$partial = 0;
foreach($installers as $i => $inst)
{
alt_table_row_color($k);
// this is checked only for first (site admin) company,
// but in fact we should always upgrade all data sets after
// source upgrade.
- if ($inst->installed(TB_PREF))
+ $check = $inst->installed(TB_PREF);
+ if ($check === true)
label_cell(_("Installed"));
- else
- check_cells(null,'install_'.$i, 0);
+ else
+ if (!$check)
+ check_cells(null,'install_'.$i, 0);
+ else {
+ label_cell("<span class=redfg>"
+ . sprintf(_("Partially installed (%s)"), $check) . "</span>");
+ $partial++;
+ }
+
check_cells(null,'force_'.$i, 0);
end_row();
}
end_table(1);
+if ($partial!=0) {
+ display_note(_("Database upgrades marked as partially installed cannot be installed automatically.
+You have to clean database manually to enable them, or try to perform forced upgrade."));
+ br();
+}
submit_center('Upgrade', _('Upgrade system'), true, _('Save database and perform upgrade'), 'process');
end_form();