X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FWeb%2FOof.pm;h=c3aeeb1883c5b07012a273a876da0a926bead690;hb=889f48be6eceea1099e58d1a092545a91b0d236c;hp=a0a4451e8ede4b9081dce3fd499e8ea1525ff862;hpb=6348c4094034a87f83ae2cb43e1a5376042be8cc;p=app-web-oof.git diff --git a/lib/App/Web/Oof.pm b/lib/App/Web/Oof.pm index a0a4451..c3aeeb1 100644 --- 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);