diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakbackup | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/perl-install/standalone/drakbackup b/perl-install/standalone/drakbackup index d487add3b..05a2ad165 100755 --- a/perl-install/standalone/drakbackup +++ b/perl-install/standalone/drakbackup @@ -1244,15 +1244,15 @@ sub advanced_where{ 1, gtksignal_connect(my $button_where_net = new Gtk::Button(), clicked => sub { # $box_where->destroy(); advanced_where_net(); }), $box_where->destroy(); advanced_where_net_ftp(); }), - 1, gtksignal_connect(my $button_where_cd = new Gtk::Button(), clicked => sub { - ${$central_widget}->destroy(); - if (require_rpm("mkisofs", "cdrecord", "toto")) { advanced_where_cd(); } - else { - print "have to install @list_of_rpm_to_install...\n"; - ${$central_widget}->destroy(); - install_rpm(\&advanced_where); - } - }), +# 1, gtksignal_connect(my $button_where_cd = new Gtk::Button(), clicked => sub { +# ${$central_widget}->destroy(); +# if (require_rpm("mkisofs", "cdrecord", "toto")) { advanced_where_cd(); } +# else { +# print "have to install @list_of_rpm_to_install...\n"; +# ${$central_widget}->destroy(); +# install_rpm(\&advanced_where); +# } +# }), 1, gtksignal_connect(my $button_where_hd = new Gtk::Button(), clicked => sub { ${$central_widget}->destroy(); advanced_where_hd(); }), # 1, gtksignal_connect(my $button_where_tape = new Gtk::Button(), clicked => sub { @@ -1267,11 +1267,11 @@ sub advanced_where{ new Gtk::Label(_("Network")), new Gtk::HBox(0, 5) )); - $button_where_cd->add(gtkpack(new Gtk::HBox(0,10), - new Gtk::Pixmap($pix_cd_map, $pix_cd_mask), - new Gtk::Label(_("CDROM / DVDROM")), - new Gtk::HBox(0, 5) - )); +# $button_where_cd->add(gtkpack(new Gtk::HBox(0,10), +# new Gtk::Pixmap($pix_cd_map, $pix_cd_mask), +# new Gtk::Label(_("CDROM / DVDROM")), +# new Gtk::HBox(0, 5) +# )); $button_where_hd->add(gtkpack(new Gtk::HBox(0,10), new Gtk::Pixmap($pix_hd_map, $pix_hd_mask), new Gtk::Label(_("HardDrive / NFS")), |