From 41ef975358cc6e40ca93021680cd96518c2b490f Mon Sep 17 00:00:00 2001
From: miker <miker@9efc2488-bf62-4759-914b-345cdb29e865>
Date: Thu, 4 Jun 2009 16:36:49 +0000
Subject: [PATCH 1/1] teach interval_to_seconds about HH:MM:SS format time
 intervals

git-svn-id: svn://svn.open-ils.org/OpenSRF/trunk@1715 9efc2488-bf62-4759-914b-345cdb29e865
---
 src/perl/lib/OpenSRF/Utils.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/perl/lib/OpenSRF/Utils.pm b/src/perl/lib/OpenSRF/Utils.pm
index b6e24d5..01ced81 100644
--- a/src/perl/lib/OpenSRF/Utils.pm
+++ b/src/perl/lib/OpenSRF/Utils.pm
@@ -255,6 +255,8 @@ sub interval_to_seconds {
 	my $self = shift;
         my $interval = shift || $self;
 
+	$interval =~ s/(\d{2}):(\d{2}):(\d{2})/ $1 h $2 min $3 s /go;
+
         $interval =~ s/and/,/g;
         $interval =~ s/,/ /g;
 
-- 
2.43.2