fix fixed_val and fixed_list

1 files changed, 17 insertions, 17 deletions

diff --git a/samba_wizard/Samba.pm b/samba_wizard/Samba.pm
index d665b980..ad35c822 100755
--- a/samba_wizard/Samba.pm
+++ b/samba_wizard/Samba.pm
@@ -141,12 +141,12 @@ $o->{pages} = {
 #			 $o->{var}{wiz_passdb_backend_yn} =~ /yes/ and return 'ldap_conf';
 #		       },
 		       data => [
-				{ label => N("Domain logons:"), fixed_val => \$o->{var}{wiz_domain_logons} },
-				{ label => N("Domain master:"), fixed_val => \$o->{var}{wiz_domain_master} },
-				{ label => N("Security:"), fixed_val => \$o->{var}{wiz_security} },
+				{ label => N("Domain logons:"), val_ref => \$o->{var}{wiz_domain_logons} },
+				{ label => N("Domain master:"), val_ref => \$o->{var}{wiz_domain_master} },
+				{ label => N("Security:"), val_ref => \$o->{var}{wiz_security} },
 				{ label => N("Wins support:"), val => \$o->{var}{wiz_wins_support}, fixed_list => \@yesorno },
 				{ label => N("admin users:"), val => \$o->{var}{wiz_admin_users}, help => N("root \@adm") },
-				{ label => N("Os level:"), fixed_val => \$o->{var}{wiz_oslevel}, help => N("The global os level option dictates the operating system level at which Samba will masquerade during a browser election. If you wish to have Samba win an election and become the master browser, you can set the level above that of the operating system on your network with the highest current value. ie: os level = 34") },
+				{ label => N("Os level:"), val_ref => \$o->{var}{wiz_oslevel}, help => N("The global os level option dictates the operating system level at which Samba will masquerade during a browser election. If you wish to have Samba win an election and become the master browser, you can set the level above that of the operating system on your network with the highest current value. ie: os level = 34") },
 #				{ label => N("Use LDAP Passdb backend"), val => \$o->{var}{wiz_passdb_backend_yn}, fixed_list => \@yesorno },
 			       ],
 		       complete => sub {
@@ -190,13 +190,13 @@ $o->{pages} = {
 	       ask_bdc2 => {
 			    name => N("BDC server: needed fixed options"),
 			    data => [
-				     { label => N("Domain master:"), fixed_val => \$o->{var}{wiz_domain_master} },
-				     { label => N("Security:"), fixed_val => \$o->{var}{wiz_security} },
-				     { label => N("Os level:"), fixed_val => \$o->{var}{wiz_oslevel} },
-				     { label => N("Local master:"), fixed_val => \$o->{var}{wiz_local_master} },
-				     { label => N("Domain master"), fixed_val => \$o->{var}{wiz_domain_master} },
-				     { label => N("Preferred master"), fixed_val => \$o->{var}{wiz_preferred_master} },
-				     { label => N("Domain logons"), fixed_val => \$o->{var}{wiz_domain_logons} },
+				     { label => N("Domain master:"), val_ref => \$o->{var}{wiz_domain_master} },
+				     { label => N("Security:"), val_ref => \$o->{var}{wiz_security} },
+				     { label => N("Os level:"), val_ref => \$o->{var}{wiz_oslevel} },
+				     { label => N("Local master:"), val_ref => \$o->{var}{wiz_local_master} },
+				     { label => N("Domain master"), val_ref => \$o->{var}{wiz_domain_master} },
+				     { label => N("Preferred master"), val_ref => \$o->{var}{wiz_preferred_master} },
+				     { label => N("Domain logons"), val_ref => \$o->{var}{wiz_domain_logons} },
 				     { label => N("admin users:"), val => \$o->{var}{wiz_admin_users}, help => N("root \@adm") },
 				    ],
 			    next => 'ldap_conf',
@@ -219,8 +219,8 @@ $o->{pages} = {
 			  data => [
 				   { label => N("Password server"), hidden => 1, val => \$o->{var}{wiz_password_server} },
 				   { label => N("Use LDAP Passdb backend"), val => \$o->{var}{wiz_passdb_backend_yn}, fixed_list => \@yesorno },
-				   { label => N("Security:"), fixed_val => \$o->{var}{wiz_security} },
-				   { label => N("Domain master:"), fixed_val => \$o->{var}{wiz_domain_master} },
+				   { label => N("Security:"), val_ref => \$o->{var}{wiz_security} },
+				   { label => N("Domain master:"), val_ref => \$o->{var}{wiz_domain_master} },
 
 				  ],
 			  complete => sub {
@@ -339,10 +339,10 @@ $o->{pages} = {
 			     $o->{var}{wiz_sambatype} = $type{$o->{var}{wiz_type}};
 			   },
 			   data => [
-				    { label => N("Samba type:"), fixed_val => \$o->{var}{wiz_sambatype} },
-				    { label => N("Workgroup:"), fixed_val => \$o->{var}{wiz_workgroup} },
-				    { label => N("Server banner:"), fixed_val => \$o->{var}{wiz_banner} },
-				    { label => N("Log file:"), fixed_val => \$o->{var}{wiz_log_file} },
+				    { label => N("Samba type:"), val_ref => \$o->{var}{wiz_sambatype} },
+				    { label => N("Workgroup:"), val_ref => \$o->{var}{wiz_workgroup} },
+				    { label => N("Server banner:"), val_ref => \$o->{var}{wiz_banner} },
+				    { label => N("Log file:"), val_ref => \$o->{var}{wiz_log_file} },
 				   ],
 			   post => \&do_it,
 			   next => 'end'