freeside/bin sqlradius.import,1.1,1.2

[ivan]

Update of /home/cvs/cvsroot/freeside/bin
In directory pouncequick:/tmp/cvs-serv28493

Modified Files:
	sqlradius.import 
Log Message:
fixup domain svcpart selection

Index: sqlradius.import
===================================================================
RCS file: /home/cvs/cvsroot/freeside/bin/sqlradius.import,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- sqlradius.import	27 May 2004 09:14:50 -0000	1.1
+++ sqlradius.import	27 May 2004 09:30:14 -0000	1.2
@@ -34,7 +34,7 @@
 
 die "No services with svcdb svc_domain!\n" unless %domain_part_svc;
 
-print "\n\n", &menu_svc, "\n", <<END;
+print "\n\n", &menu_domain_svc, "\n", <<END;
 Enter part number for domains.
 END
 my $domain_svcpart = &getdomainpart;
@@ -43,6 +43,12 @@
 my $db_user = &getvalue("\n\nEnter the database user:");
 my $db_pass = &getvalue("\n\nEnter the database password:");
 
+sub menu_svc {
+  ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %part_svc ). "\n";
+}
+sub menu_domain_svc {
+  ( join "\n", map "$_: ".$part_svc{$_}->svc, sort keys %domain_part_svc ). "\n";
+}
 sub getpart {
   $^W=0; # Term::Query isn't -w-safe
   my $return = query "Enter part number:", 'irk', [ keys %part_svc ];