diff options
| author | Mystery Man <unknown@mandriva.org> | 2005-10-20 14:05:54 +0000 |
|---|---|---|
| committer | Mystery Man <unknown@mandriva.org> | 2005-10-20 14:05:54 +0000 |
| commit | 9b6a0d83d135fad376b4eadcb2bd7bd8c8a07aa5 (patch) | |
| tree | f3ef7ada2ce82dafb6d41cc087b0cc7fdfc40a46 /perl-install/standalone/harddrake2 | |
| parent | 3e4ad5e1b687f262a1d7cc39a0b905a595ac7f95 (diff) | |
| download | drakx-backup-do-not-use-10736c53ca91aed19de81858bf3358c6b2c9ab13.tar drakx-backup-do-not-use-10736c53ca91aed19de81858bf3358c6b2c9ab13.tar.gz drakx-backup-do-not-use-10736c53ca91aed19de81858bf3358c6b2c9ab13.tar.bz2 drakx-backup-do-not-use-10736c53ca91aed19de81858bf3358c6b2c9ab13.tar.xz drakx-backup-do-not-use-10736c53ca91aed19de81858bf3358c6b2c9ab13.zip | |
This commit was manufactured by cvs2svn to create tagV10_34_11_100mdk
'V10_34_11_100mdk'.
Diffstat (limited to 'perl-install/standalone/harddrake2')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2 index 9afdcf78a..be8b2bbd2 100755 --- a/perl-install/standalone/harddrake2 +++ b/perl-install/standalone/harddrake2 @@ -78,6 +78,8 @@ my $conffile = "/etc/sysconfig/harddrake2/ui.conf"; my ($current_device, $current_configurator); +my %sysh = distrib(); +my $distro_name = $sysh{system}; #-PO Translators, please keep all "/" charaters !!! my %menus = ( @@ -103,7 +105,9 @@ my @menu_items = [ join('', @{$menu_options{JAZZ_DETECTION}}), undef, sub { $options{JAZZ_DETECTION} = $check_boxes{JAZZ_DETECTION}->get_active }, undef, '<CheckItem>' ], [ $menus{help}, undef, undef, undef, '<Branch>' ], - [ $menus{help}.N("/_Help"), undef, sub { unless (fork()) { exec("drakhelp --id harddrake") } }, undef, '<Item>' ], + if_(-x "/usr/sbin/drakhelp_inst", + [ $menus{help}.N("/_Help"), undef, sub { unless (fork()) { exec("drakhelp --id harddrake") } }, undef, '<Item>' ], + ), [ $menus{help}.N("/_Fields description"), undef, sub { if ($current_device) { create_dialog(N("Harddrake help"), @@ -117,12 +121,14 @@ my @menu_items = }, undef, '<Item>' ], - [ $menus{help}.N("/_Report Bug"), undef, sub { unless (fork()) { exec("drakbug --report harddrake2 &") } }, undef, '<Item>' ], + if_(!-e "/etc/sysconfig/oem", + [ $menus{help}.N("/_Report Bug"), undef, sub { unless (fork()) { exec("drakbug --report harddrake2 &") } }, undef, '<Item>' ], + ), [ $menus{help}.N("/_About..."), undef, sub { create_dialog(N("About Harddrake"), #-PO Do not alter the <span ..> and </span> tags - N("This is HardDrake, a Mandrake hardware configuration tool.\n<span foreground=\"royalblue3\">Version:</span> %s -<span foreground=\"royalblue3\">Author:</span> Thierry Vignaud <tvignaud\@mandrakesoft.com>\n\n", $harddrake::data::version) . "\n" . + N("This is HardDrake, a %s hardware configuration tool.\n<span foreground=\"royalblue3\">Version:</span> %s +<span foreground=\"royalblue3\">Author:</span> Thierry Vignaud <tvignaud\@mandrakesoft.com>\n\n", $distro_name, $harddrake::data::version) . "\n" . formatAlaTeX($::license), { use_markup => 1, if_(!$::isEmbedded, transient => $w->{window}) }); }, undef, '<Item>' ] |