Fixed: Couldn't restore backup archive - Can't locate object method "…

…selectall_array" via package "DBI::db" (restore backup feature)

Fixed: Possible double POST request submission in restore backup interface
Fixed: Unexpected warning (FALSE warning) when running imscp-backup-all backup script in verbose mode

engine/PerlLib/Modules/Domain.pm

@@ -168,11 +168,11 @@ sub restore
         # Restore know databases only
         local $self->{'_dbh'}->{'RaiseError'} = 1;
 
-        my @rows = $self->{'_dbh'}->selectall_array(
+        my $rows = $self->{'_dbh'}->selectall_arrayref(
             'SELECT sqld_name FROM sql_database WHERE domain_id = ?', { Slice => {} }, $self->{'domain_id'}
         );
 
-        for my $row( @rows ) {
+        for my $row( @{ $rows } ) {
             # Encode slashes as SOLIDUS unicode character
             # Encode dots as Full stop unicode character
             ( my $encodedDbName = $row->{'sqld_name'} ) =~ s%([./])%{ '/', '@002f', '.', '@002e' }->{$1}%ge;

engine/backup/imscp-backup-all

@@ -159,7 +159,7 @@ sub backupDatabases
     for my $dbName( keys %{$rows} ) {
         local $@;
         eval { $db->dumpdb( $dbName, $bkpDir ); };
-        warning( $@ );
+        warning( $@ ) if $@;
         next if $@;
 
         # Encode slashes as SOLIDUS unicode character

gui/public/client/backup.php

@@ -55,6 +55,7 @@ function scheduleBackupRestoration($userId)
 
 if (!empty($_POST)) {
     scheduleBackupRestoration($_SESSION['user_id']);
+    redirectTo('backup.php');
 }
 
 $tpl = new iMSCP_pTemplate();