diff options
author | Jörg Frings-Fürst <debian@jff-webhosting.net> | 2016-03-09 22:05:42 +0100 |
---|---|---|
committer | Jörg Frings-Fürst <debian@jff-webhosting.net> | 2016-03-09 22:05:42 +0100 |
commit | ad3a1af7de96e4c76b3f9ac9b1539092e81d123a (patch) | |
tree | 343f50d68935c7bd689924f01b7e83316a3fb9ec /lib/gcstar/GCUtils.pm | |
parent | 965998f7990b75e58fe5219f9c38a3c24198375a (diff) | |
parent | b9a4e9c8a68dcb6b17617f4f7a5ad5ad3298bfa9 (diff) |
Merge tag 'upstream/1.7.1'
Upstream version 1.7.1
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 { |