Fix summary handling

[app-web-oof.git] / lib / App / Web / Oof.pm

diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm
index a0a4451e8ede4b9081dce3fd499e8ea1525ff862..c3aeeb1883c5b07012a273a876da0a926bead690 100644 (file)
--- a/lib/App/Web/Oof.pm
+++ b/lib/App/Web/Oof.pm
@@ -37,6 +37,11 @@ sub HTML::Element::fclass { shift->look_down(class => qr/\b$_[0]\b/) }
 
 ##################################################
 
+my $postage_base = $ENV{OOF_POSTAGE_BASE} // 225;
+my $postage_per_item = $ENV{OOF_POSTAGE_PER_ITEM} // 50;
+
+##################################################
+
 my %db;
 my ($form, $continue, $order, $details, $pay);
 
@@ -72,7 +77,7 @@ sub product_to_schemaorg {
                '@type'    => 'Product',
                name => $data{title},
                image => "/static/fullpics/$data{product}-1.jpg",
-               description => $data{summary},
+               description => $data{subtitle},
                offers => {
                        '@type' => 'Offer',
                        price => ($data{price} =~ s/(..)$/\.$1/r),
@@ -103,7 +108,7 @@ sub form_app {
        my $req = Plack::Request->new($env);
 
        local %highlight = map { $_ => 1 } $req->param('highlight');
-       my $data = $db{$$}->select(products => '*', {}, 'product')->hashes;
+       my $data = $db{$$}->select(products => '*', {stock => {'>', 0}}, 'product')->hashes;
        my $tree = $form->clone;
        $tree->find('tbody')->find('tr')->iter3($data, \&form_table_row);
 
@@ -167,7 +172,7 @@ sub continue_app {
        }
        $tree->look_down(name => 'discount')->detach unless $dvalue;
        $tree->fid('discount_tr')->detach unless $dvalue;
-       my $postage = 220 + 50 * ($quant - $quant_freepost);
+       my $postage = $postage_base + $postage_per_item * ($quant - $quant_freepost);
        $postage = 0 if $quant == $quant_freepost;
        $tree->fid('postage')->replace_content(stringify_money $postage);
        $total += $postage;
@@ -264,7 +269,8 @@ sub details_app {
        my $slug = make_slug $data{title};
        $tree->find('title')->replace_content("$data{title} | ledparts4you");
        $tree->find('h2')->replace_content($data{title});
-       $tree->fid('summary')->replace_content($data{summary});
+       my $summary_literal = HTML::Element::Library::super_literal $data{summary};
+       $tree->fid('summary')->replace_content($summary_literal);
        $tree->look_down(rel => 'canonical')->attr(href => "/details/$id/$slug");
        $tree->fid('pictures')->find('li')->iter3(\@pics, \&details_list_element);
        $tree->fid('jsonld')->replace_content(encode_json product_to_schemaorg '', %data);