fix multiple svcparts
authorivan <ivan>
Wed, 17 Mar 2004 22:55:52 +0000 (22:55 +0000)
committerivan <ivan>
Wed, 17 Mar 2004 22:55:52 +0000 (22:55 +0000)
bin/shadow.reimport

index 4c0b8e5..9ef8325 100755 (executable)
@@ -35,7 +35,7 @@ die "No services with svcdb svc_acct!\n" unless %part_svc;
 print "\n\n", &menu_svc, "\n", <<END;
 Enter part number or part numbers to import.
 END
-my($shell_svcpart)=&getpart;
+my($shell_svcpart)=&getvalue;
 my @shell_svcpart = split(/[,\s]+/, $shell_svcpart);
 
 print "\n\n", <<END;