[freeside-commits] freeside/FS/FS/ClientAPI Signup.pm,1.24,1.25

Lawrence Statton lawrence at wavetail.420.am
Thu Aug 31 18:51:48 PDT 2006


Update of /home/cvs/cvsroot/freeside/FS/FS/ClientAPI
In directory wavetail:/tmp/cvs-serv3818/FS/FS/ClientAPI

Modified Files:
	Signup.pm 
Log Message:
Progress checkpoint on improved signup stuff for additional services

Index: Signup.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/ClientAPI/Signup.pm,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -d -r1.24 -r1.25
--- Signup.pm	29 Aug 2006 17:50:06 -0000	1.24
+++ Signup.pm	1 Sep 2006 01:51:46 -0000	1.25
@@ -83,9 +83,25 @@
     'countrydefault' => $conf->config('countrydefault') || 'US',
 
     'refnum' => $conf->config('signup_server-default_refnum'),
-
   };
 
+
+
+  if ($conf->exists('signup_server-classnum2') || $conf->exists('signup_server-classnum3')) {
+      $signup_info->{optional_packages} = [];
+
+      if (my $classnum = $conf->config('signup_server-classnum2')) {
+	  my @pkgs = map { $_->hashref } FS::Record::qsearch( 'part_pkg', { classnum => $classnum } );
+	  push @{$signup_info->{optional_packages}}, \@pkgs;
+      }
+
+      if (my $classnum = $conf->config('signup_server-classnum3')) {
+	  my @pkgs = map { $_->hashref } FS::Record::qsearch( 'part_pkg', { classnum => $classnum } );
+	  push @{$signup_info->{optional_packages}}, \@pkgs;
+      }
+
+  }
+
   my $agentnum = $conf->config('signup_server-default_agentnum');
 
   my $session = '';



More information about the freeside-commits mailing list