summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/draksambashare
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-26 11:05:28 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-26 11:05:28 +0000
commit9db44f609ac0deb924ae954151334f358ad2c9ae (patch)
tree0665bb6f76a4070feb3303fca8006b4027db9dd3 /perl-install/standalone/draksambashare
parentd9d35ac55a650d030976dd4d656dccf555164468 (diff)
downloaddrakx-backup-do-not-use-9db44f609ac0deb924ae954151334f358ad2c9ae.tar
drakx-backup-do-not-use-9db44f609ac0deb924ae954151334f358ad2c9ae.tar.gz
drakx-backup-do-not-use-9db44f609ac0deb924ae954151334f358ad2c9ae.tar.bz2
drakx-backup-do-not-use-9db44f609ac0deb924ae954151334f358ad2c9ae.tar.xz
drakx-backup-do-not-use-9db44f609ac0deb924ae954151334f358ad2c9ae.zip
fix pb with $path
Diffstat (limited to 'perl-install/standalone/draksambashare')
-rwxr-xr-xperl-install/standalone/draksambashare4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index 69e13e254..1a50bf7aa 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -442,7 +442,7 @@ sub modify_printers_entry {
my ($dir, $comment, $print_command, $guest_ok, $share_name, $browseable, $printable, $write_list, $printing, $lpq_command, $create_mode, $writable, $use_client_driver, $inherit_permissions);
$share_name = Gtk2::Label->new;
- $_ = Gtk2::Entry->new foreach $dir, $path, $comment, $print_command, $write_list, $printing, $lpq_command, $create_mode;
+ $_ = Gtk2::Entry->new foreach $dir, $comment, $print_command, $write_list, $printing, $lpq_command, $create_mode;
$_ = Gtk2::OptionMenu->new foreach $browseable, $printable, $guest_ok, $writable, $use_client_driver, $inherit_permissions;
$_->set_popdown_strings(@yesno) foreach $browseable, $printable, $guest_ok, $writable, $use_client_driver, $inherit_permissions;
@@ -506,7 +506,7 @@ sub modify_entry {
my ($dir, $comment, $create_mask, $directory_mask, $read_list, $write_list, $admin_users, $valid_users, $force_group, $browseable, $public, $writable, $hide_files, $hide_dot_files, $force_create_mode, $preserve_case, $default_case, $inherit_permissions, $share_name);
$share_name = Gtk2::Label->new;
- $_ = Gtk2::Entry->new foreach $dir, $path, $comment, $create_mask, $directory_mask, $hide_files;
+ $_ = Gtk2::Entry->new foreach $dir, $comment, $create_mask, $directory_mask, $hide_files;
$_ = Gtk2::Entry->new foreach $read_list, $write_list, $admin_users, $valid_users, $force_group, $force_create_mode;
$_ = Gtk2::OptionMenu->new foreach $browseable, $public, $writable, $default_case, $preserve_case, $hide_dot_files, $inherit_permissions;