[freeside-commits] freeside/FS/FS Conf.pm,1.379,1.380

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv9173

Modified Files:
	Conf.pm 
Log Message:
referraldefault dropdown in config, RT#9599

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.379
retrieving revision 1.380
diff -u -w -d -r1.379 -r1.380
--- Conf.pm	3 Aug 2010 03:30:20 -0000	1.379
+++ Conf.pm	12 Aug 2010 17:43:21 -0000	1.380
@@ -1361,7 +1361,20 @@
     'key'         => 'referraldefault',
     'section'     => 'UI',
     'description' => 'Default referral, specified by refnum',
-    'type'        => 'text',
+    'type'        => 'select-sub',
+    'options_sub' => sub { require FS::Record;
+                           require FS::part_referral;
+                           map { $_->refnum => $_->referral }
+                               FS::Record::qsearch( 'part_referral', 
+			                            { 'disabled' => '' }
+						  );
+			 },
+    'option_sub'  => sub { require FS::Record;
+                           require FS::part_referral;
+                           my $part_referral = FS::Record::qsearchs(
+			     'part_referral', { 'refnum'=>shift } );
+                           $part_referral ? $part_referral->referral : '';
+			 },
   },
 
 #  {