aboutsummaryrefslogtreecommitdiffstats
path: root/global-functions.rsc
diff options
context:
space:
mode:
Diffstat (limited to 'global-functions.rsc')
-rw-r--r--global-functions.rsc6
1 files changed, 6 insertions, 0 deletions
diff --git a/global-functions.rsc b/global-functions.rsc
index fa8b767..c2c01ea 100644
--- a/global-functions.rsc
+++ b/global-functions.rsc
@@ -687,12 +687,18 @@
:set ParseDate do={
:local Date [ :tostr $1 ];
+ :if ([ :pick $Date 4 5 ] != "-") do={
:local Months { "jan"=1; "feb"=2; "mar"=3; "apr"=4; "may"=5; "jun"=6;
"jul"=7; "aug"=8; "sep"=9; "oct"=10; "nov"=11; "dec"=12 };
:return ({ "year"=[ :tonum [ :pick $Date 7 11 ] ];
"month"=($Months->[ :pick $Date 0 3 ]);
"day"=[ :tonum [ :pick $Date 4 6 ] ] });
+ }
+
+ :return ({ "year"=[ :tonum [ :pick $Date 0 4 ] ];
+ "month"=[ :tonum [ :pick $Date 5 7 ] ];
+ "day"=[ :tonum [ :pick $Date 8 10 ] ] });
}
# parse key value store