diff options
author | Jörg Frings-Fürst <debian@jff-webhosting.net> | 2016-03-09 22:05:38 +0100 |
---|---|---|
committer | Jörg Frings-Fürst <debian@jff-webhosting.net> | 2016-03-09 22:05:38 +0100 |
commit | b9a4e9c8a68dcb6b17617f4f7a5ad5ad3298bfa9 (patch) | |
tree | 55b47f0b304ebea5608d98f0a978b150e5ab30c8 /lib/gcstar/GCUtils.pm | |
parent | 126bb8cb6b93240bb4d3a2b816b74c286c3d422b (diff) |
Imported Upstream version 1.7.1upstream/1.7.1upstream
Diffstat (limited to 'lib/gcstar/GCUtils.pm')
-rw-r--r-- | lib/gcstar/GCUtils.pm | 17 |
1 files changed, 17 insertions, 0 deletions
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 { |