From b9a4e9c8a68dcb6b17617f4f7a5ad5ad3298bfa9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=B6rg=20Frings-F=C3=BCrst?= <debian@jff-webhosting.net>
Date: Wed, 9 Mar 2016 22:05:38 +0100
Subject: Imported Upstream version 1.7.1

---
 lib/gcstar/GCUtils.pm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lib/gcstar/GCUtils.pm')

diff --git a/lib/gcstar/GCUtils.pm b/lib/gcstar/GCUtils.pm
index cc0e0d9..1921363 100644
--- a/lib/gcstar/GCUtils.pm
+++ b/lib/gcstar/GCUtils.pm
@@ -317,6 +317,23 @@ sub RtfToString
         return $text;        
     }
     
+    sub cutReversedDate
+    {
+        my ($date, $group) = @_;
+        return $date if $group eq 'days';
+        $date =~ m|([0-9]{4})/([0-9]{2})/([0-9]{2})|;
+        my $result = $1;
+        $result .= "/$2" if $group eq 'months';
+        return $result;
+    }
+    
+    sub completePartialDate
+    {
+        my (@date) = @_;
+        push @date, "01" while @date < 3;
+        return @date;
+    }
+    
     # Useful to compare date
     sub reverseDate
     {
-- 
cgit v1.2.3