now we can modify first entry

1 files changed, 26 insertions, 6 deletions

diff --git a/perl-install/standalone/draksambashare b/perl-install/standalone/draksambashare
index 1a50bf7aa..4b436ffdd 100755
--- a/perl-install/standalone/draksambashare
+++ b/perl-install/standalone/draksambashare
@@ -29,7 +29,7 @@ use ugtk2 qw(:ask :wrappers :create :dialogs);
 use mygtk2 qw(gtknew);
 use Gtk2::SimpleList;
 
-# use libconf 
+# use libconf
 use Libconf::Templates;
 use Libconf::Glueconf::Samba::Smb_conf;
 
@@ -416,6 +416,26 @@ sub add_printers_entry() {
 				   post => sub {
 				     if ($wiz_todo == 1) {
 				       &pdf_section;
+				       push @{$share_list->{data}}, [
+								     $samba->{'pdf-gen'},
+								     $samba->{'pdf-gen'}{path},
+								     $samba->{'pdf-gen'}{printable},
+								     $samba->{'pdf-gen'}{comment},
+								     $samba->{'pdf-gen'}{printing},
+								     $samba->{'pdf-gen'}{'print command'},
+								     $samba->{'pdf-gen'}{'lpq command'},
+								     $samba->{'pdf-gen'}{'guest ok'},
+								     ];
+				       push @listshare, {
+							 share_name => $samba->{'pdf-gen'},
+							 path => $samba->{'pdf-gen'}{path},
+							 comment => $samba->{'pdf-gen'}{comment},
+							 printebale => $samba->{'pdf-gen'}{printable},
+							 printing => $samba->{'pdf-gen'}{printing},
+							 print_command => $samba->{'pdf-gen'}{'print command'},
+							 lpq_command => $samba->{'pdf-gen'}{'lpq command'},
+							 guest_ok => $samba->{'pdf-gen'}{'guest ok'},
+							};
 				     } elsif ($wiz_todo == 2) {
 				       &printdollar_section;
 				       &printers_section;
@@ -446,9 +466,9 @@ sub modify_printers_entry {
   $_ = 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;
 
-  $selected or info_dialog(N("Error"), N("Please add or select a Samba printer share to be able to modify it.")) and return;
+
   my $s = $printer_list->{data}[$selected][0];
-  $share_name->set_text($s);
+  $s or info_dialog(N("Error"), N("Please add or select a Samba printer share to be able to modify it.")) and return;  $share_name->set_text($s);
   $dir->set_text($printer_list->{data}[$selected][1]);
   $comment->set_text($printer_list->{data}[$selected][2]);
   $browseable->set_text($printer_list->{data}[$selected][3]);
@@ -520,8 +540,8 @@ sub modify_entry {
   my $w = ugtk2->new(N("DrakSamba entry"));
   $w->{window}->set_modal(1);
 
-  $selected or info_dialog(N("Error"), N("Please add or select a Samba share to be able to modify it.")) and return;
   my $s = $share_list->{data}[$selected][0];
+  $s or info_dialog(N("Error"), N("Please add or select a Samba share to be able to modify it.")) and return;
   $share_name->set_text($s);
   $dir->set_text($share_list->{data}[$selected][1]);
   $comment->set_text($share_list->{data}[$selected][2]);
@@ -779,13 +799,13 @@ $W->signal_connect(delete_event => sub { ugtk2->exit });
 $share_list->signal_connect(button_press_event => sub {
 			      my (undef, $event) = @_;
 			      my ($selected) = $share_list->get_selected_indices;
-			      $selected and modify_entry($selected) if $event->type eq '2button-press';
+			      $share_list->{data}[$selected][0] and modify_entry($selected) if $event->type eq '2button-press';
 			    });
 
 $printer_list->signal_connect(button_press_event => sub {
 				my (undef, $event) = @_;
 				my ($selected) = $printer_list->get_selected_indices;
-				$selected and modify_printers_entry($selected) if $event->type eq '2button-press';
+				$printer_list->{data}[$selected][0] and modify_printers_entry($selected) if $event->type eq '2button-press';
 			      });
 
 # create menu