[freeside-commits] freeside/FS/FS/part_export shellcommands.pm, 1.43, 1.43.2.1 sqlradius.pm, 1.25.2.9, 1.25.2.10

[Jeff Finucane,420,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	shellcommands.pm sqlradius.pm 
Log Message:
correct internal reason searching, prevent interleaved suspend/cancel/expire/adjourn, backporting and refactoring

Index: shellcommands.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/shellcommands.pm,v
retrieving revision 1.43
retrieving revision 1.43.2.1
diff -u -d -r1.43 -r1.43.2.1
--- shellcommands.pm	17 Jan 2007 23:28:11 -0000	1.43
+++ shellcommands.pm	1 Jul 2008 05:01:29 -0000	1.43.2.1
@@ -253,7 +253,9 @@
   @radius_groups = $svc_acct->radius_groups;
 
   my ($reasonnum, $reasontext, $reasontypenum, $reasontypetext);
-  if ( $cust_pkg && $action eq 'suspend' && (my $r = $cust_pkg->last_reason) ) {
+  if ( $cust_pkg && $action eq 'suspend' &&
+       (my $r = $cust_pkg->last_reason('susp')) )
+  {
     $reasonnum = $r->reasonnum;
     $reasontext = $r->reason;
     $reasontypenum = $r->reason_type;

Index: sqlradius.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/sqlradius.pm,v
retrieving revision 1.25.2.9
retrieving revision 1.25.2.10
diff -u -d -r1.25.2.9 -r1.25.2.10
--- sqlradius.pm	24 Jun 2008 02:09:38 -0000	1.25.2.9
+++ sqlradius.pm	1 Jul 2008 05:01:29 -0000	1.25.2.10
@@ -311,7 +311,7 @@
   #false laziness with FS::part_export::shellcommands
   #subclass part_export?
 
-  my $r = $svc_acct->cust_svc->cust_pkg->last_reason;
+  my $r = $svc_acct->cust_svc->cust_pkg->last_reason('susp');
   my %reasonmap = $self->_groups_susp_reason_map;
   my $userspec = '';
   if ($r) {