* Various tweaks to recent changes, including additional patches

[BackupPC.git] / lib / BackupPC / CGI / Restore.pm

diff --git a/lib/BackupPC/CGI/Restore.pm b/lib/BackupPC/CGI/Restore.pm
index 2a6d683..29cfcf8 100644 (file)
--- a/lib/BackupPC/CGI/Restore.pm
+++ b/lib/BackupPC/CGI/Restore.pm
@@ -98,6 +98,15 @@ EOF
        @fileList = ( $pathHdr );
     }
     if ( $In{type} == 0 ) {
+       #
+       # Build list of hosts
+       #
+       my $hostDestSel;
+       foreach my $h ( GetUserHosts() ) {
+           my $sel = " selected" if ( $h eq $In{host} );
+           $hostDestSel .= "<option value=\"$h\"$sel>${EscHTML($h)}</option>";
+       }
+
         #
         # Tell the user what options they have
         #