make sure there is some space between interval parts
authormiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Thu, 24 Feb 2005 16:19:11 +0000 (16:19 +0000)
committermiker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Thu, 24 Feb 2005 16:19:11 +0000 (16:19 +0000)
git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@101 9efc2488-bf62-4759-914b-345cdb29e865

src/perlmods/OpenSRF/Utils.pm

index 297cade..f24d7d7 100644 (file)
@@ -234,7 +234,7 @@ sub interval_to_seconds {
         my $interval = shift || $self;
 
         $interval =~ s/and/,/g;
-        $interval =~ s/,//g;
+        $interval =~ s/,/ /g;
 
         my $amount = 0;
         while ($interval =~ /\s*\+?\s*(\d+)\s*(\w{1})\w*\s*/g) {