From f954e34d87892ec6990e7b9357b4a888d9c1dab2 Mon Sep 17 00:00:00 2001 From: Anatasof Wirapraja Date: Mon, 19 Jul 2021 22:21:57 +0700 Subject: Initial commit page/member/account --- pages/member/account.html | 62 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) create mode 100644 pages/member/account.html diff --git a/pages/member/account.html b/pages/member/account.html new file mode 100644 index 0000000..a8e60f1 --- /dev/null +++ b/pages/member/account.html @@ -0,0 +1,62 @@ +@_TOP_@ + +
+ +
+

[L]Account[/L]

+ [if session logged_in] + [edisplay show_label=1 show_var=0 keep=1] +
+ + +
+
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Order #DateTotalStatusAction
#1234522/6/2017Rp150.000,00Being preparedView
# 17347/5/2017Rp150.000,00Action neededView
# 173030/9/2016Rp150.000,00ReceivedView
# 170522/6/2016Rp150.000,00CancelledView
+
+
+
+ +
+ +__BOTTOM__ \ No newline at end of file -- cgit v1.2.3 From da8021e054e3aac1e1df540838275fb8ac2f7f48 Mon Sep 17 00:00:00 2001 From: Anatasof Wirapraja Date: Mon, 19 Jul 2021 22:28:20 +0700 Subject: add block-header & use proper badge bg --- pages/member/account.html | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/pages/member/account.html b/pages/member/account.html index a8e60f1..9f5fe43 100644 --- a/pages/member/account.html +++ b/pages/member/account.html @@ -10,6 +10,9 @@
+
+

Orders

+
@@ -27,28 +30,28 @@ - + - + - + - + -- cgit v1.2.3 From c30ec71812ffa31b8d7d995f2b9bab5c23d15312 Mon Sep 17 00:00:00 2001 From: Anatasof Wirapraja Date: Mon, 19 Jul 2021 22:34:43 +0700 Subject: initial commit on service.html (orders as first component) --- pages/member/service.html | 65 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 65 insertions(+) create mode 100644 pages/member/service.html diff --git a/pages/member/service.html b/pages/member/service.html new file mode 100644 index 0000000..3bd72d1 --- /dev/null +++ b/pages/member/service.html @@ -0,0 +1,65 @@ +@_TOP_@ + +
+ +
+

[L]Your Account[/L]

+ [if session logged_in] + [edisplay show_label=1 show_var=0 keep=1] +
+ + +
+
+

Orders

+
+
+
+
#12345 22/6/2017 Rp150.000,00Being preparedBeing prepared View
# 1734 7/5/2017 Rp150.000,00Action neededAction needed View
# 1730 30/9/2016 Rp150.000,00ReceivedReceived View
# 1705 22/6/2016 Rp150.000,00CancelledCancelled View
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Order #DateTotalStatusAction
#1234522/6/2017Rp150.000,00Being preparedView
# 17347/5/2017Rp150.000,00Action neededView
# 173030/9/2016Rp150.000,00ReceivedView
# 170522/6/2016Rp150.000,00CancelledView
+
+
+
+ + + +__BOTTOM__ \ No newline at end of file -- cgit v1.2.3 From 9e1956b7de95179d6b488d6a01fcb8046a821ef2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=EA=A6=8C=EA=A6=AB=EA=A6=B6=EA=A6=8F=EA=A7=80=EA=A6=A6?= =?UTF-8?q?=EA=A6=BF=EA=A6=A7=EA=A6=AE=EA=A6=91=EA=A6=A9=EA=A6=AD=EA=A7=80?= Date: Tue, 20 Jul 2021 00:15:43 +0800 Subject: Tag to show service codes already wrapped in select option HTML elements. --- config/pikul_codes.tag | 36 ++++++++++++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 config/pikul_codes.tag diff --git a/config/pikul_codes.tag b/config/pikul_codes.tag new file mode 100644 index 0000000..f8c99cb --- /dev/null +++ b/config/pikul_codes.tag @@ -0,0 +1,36 @@ +UserTag pikul-codes Order company district city province weight +UserTag pikul-codes Routine <{PIKUL_ANTERAJA}) { + @provisions = ( + $Global::Variable->{ANTERAJA_ACCESS_KEY_ID}, + $Global::Variable->{ANTERAJA_SECRET_ACCESS_KEY}, + $Global::Variable->{ANTERAJA_BASE_PATH} + ); + $origin = $::Variable->{ANTERAJA_ORIGIN}; + $table = 'anteraja'; + } + use Pikul; + Pikul::init($company, \@provisions); + my @codes = @{Pikul::codes( + $origin, + $Tag->query({ + sql => "SELECT code FROM $table WHERE district='$district' AND \ + city='$city' AND province='$province'", + wantarray => 1 + })->[0]->[0] || '', + $weight)}; + Pikul::cleanup(); + my $elements = ''; + return $elements; +} +EOR -- cgit v1.2.3 From dcf7934c1cea7bc9585aec842e9f6314220bfd8a Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=EA=A6=8C=EA=A6=AB=EA=A6=B6=EA=A6=8F=EA=A7=80=EA=A6=A6?= =?UTF-8?q?=EA=A6=BF=EA=A6=A7=EA=A6=AE=EA=A6=91=EA=A6=A9=EA=A6=AD=EA=A7=80?= Date: Tue, 20 Jul 2021 00:19:11 +0800 Subject: Show available shippings dynamically --- pages/ord/checkout.html | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/pages/ord/checkout.html b/pages/ord/checkout.html index 247c28a..ae2e694 100644 --- a/pages/ord/checkout.html +++ b/pages/ord/checkout.html @@ -84,8 +84,14 @@
-
- [shipping widget="radio" extra='id="ship_widget" onchange="this.form.submit()"'] +
[tmp weight][perl products] + my $weight = 0.0; + for my $item (@{$Carts->{main}}) { + $weight += tag_data('products', 'weight', "$item->{code}") * $item->{quantity}; + } + return $weight; + [/perl][/tmp] + [pikul_codes company="__PIKUL_ANTERAJA__" district="[value address2]" city="[value city]" province="[value state]" weight="[scratch weight]"]