/[soft]/drakx/trunk/perl-install/interactive/gtk.pm
ViewVC logotype

Diff of /drakx/trunk/perl-install/interactive/gtk.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 7783 by tv, Mon Mar 4 19:10:28 2013 UTC revision 7784 by tv, Fri Apr 5 11:11:07 2013 UTC
# Line 833  sub display_help_window { Line 833  sub display_help_window {
833  }  }
834    
835  sub display_help {  sub display_help {
836      my ($_o, $common) = @_;      my ($o, $common) = @_;
837      # not very safe but we run in a restricted environment anyway:      # not very safe but we run in a restricted environment anyway:
838      my $f = '/tmp/help.txt';      my $f = '/tmp/help.txt';
839      if ($common->{interactive_help}) {      if ($common->{interactive_help}) {
840         output($f, $common->{interactive_help}->());         output($f, $common->{interactive_help}->());
841      }      }
842      system('display_installer_help', $common->{interactive_help_id} || $f);      system('display_installer_help', $common->{interactive_help_id} || $f, $o->{locale}{lang});
843  }  }
844    
845  sub ask_fromW {  sub ask_fromW {
Legend:
Removed from v.7783  
changed lines
  Added in v.7784
  ViewVC Help
Powered by ViewVC 1.1.30