diff --git a/build/perl/virtualmin/dolibarr.pl b/build/perl/virtualmin/dolibarr.pl index 58be286ee72..6a0c0f5895d 100644 --- a/build/perl/virtualmin/dolibarr.pl +++ b/build/perl/virtualmin/dolibarr.pl @@ -209,20 +209,28 @@ if ($upgrade) { # First page (Update database schema) local @params = ( [ "action", "upgrade" ], - [ "versionfrom", $ver ], - [ "versionto", $upgrade->{'version'} ], + [ "versionfrom", $upgrade->{'version'} ], + [ "versionto", $ver ], ); local $err = &call_dolibarr_wizard_page(\@params, "upgrade", $d, $opts); return (-1, "Dolibarr wizard failed : $err") if ($err); # Second page (Migrate some data) local @params = ( [ "action", "upgrade" ], - [ "versionfrom", $ver ], - [ "versionto", $upgrade->{'version'} ], + [ "versionfrom", $upgrade->{'version'} ], + [ "versionto", $ver ], ); local $err = &call_dolibarr_wizard_page(\@params, "upgrade2", $d, $opts); return (-1, "Dolibarr wizard failed : $err") if ($err); + # Third page (Update version number) + local @params = ( [ "action", "upgrade" ], + [ "versionfrom", $upgrade->{'version'} ], + [ "versionto", $ver ], + ); + local $err = &call_dolibarr_wizard_page(\@params, "etape5", $d, $opts); + return (-1, "Dolibarr wizard failed : $err") if ($err); + # Remove the installation directory. local $dinstall = "$opts->{'dir'}/install"; $dinstall =~ s/\/$//;