SysPete

use utf8;

package Interchange6::Schema::Result::TaxRule;

=head1 NAME

Interchange6::Schema::Result::TaxRule

=cut

SysPete

use strict;
use warnings;

use Test::More;
use Test::DBIx::Class {
  schema_class => 'Interchange6::Schema',
  traits       => 'Testpostgresql',
  resultsets   => [ qw/ Order User / ],
};

SysPete

any [ 'get', 'post' ] => '/checkout' => require_login sub {

    return forward 404 if config->{shop_disabled};

    return redirect '/cart' if cart->count == 0;

    my ( $data, $form, $form_last, $forms_ref, $params );

    my $posted = 1;

SysPete

use utf8;
package Interchange6::Schema;

use strict;
use warnings;

use base 'DBIx::Class::Schema';

use Interchange6::Schema::Result::Order;
use Interchange6::Schema::Result::Product;

SysPete

package Interchange6::Schema;

use strict;
use warnings;

use base 'DBIx::Class::Schema';

use Interchange6::Schema::Result::User;
 
Interchange6::Schema::Result::User->load_components(

SysPete

SELECT product.sku, product.name, product.short_description, product.description, product.price
       , product.uri, product.weight, product.priority, product.gtin, product.canonical_sku
       , product.active, product.inventory_exempt, product.created, product.last_modified
       , price_modifier.selling_price
  FROM navigation_products me
  JOIN products product
  ON product.sku = me.sku
  LEFT JOIN ( SELECT me.sku, MIN (me.price) AS selling_price
                FROM price_modifiers me
           LEFT JOIN roles role ON role.roles_id = me.roles_id

SysPete

plugins:
  DBIC:
    default:
      dsn: dbi:Pg:dbname=danceshop
      user: dancepower
      password: dancethenightaway
      schema_class: Interchange6::Schema
      options:
        RaiseError: 1
        PrintError: 1

SysPete

use utf8;
package Interchange6::Schema;
 
use strict;
use warnings;
 
use base 'DBIx::Class::Schema';
 
use Interchange6::Schema::Result::Address;

SysPete

  SELECT products.sku, products.name, products.uri, products.price, products.short_description,
  COALESCE( MIN( price_modifiers.price ), products.price ) AS selling_price,
   ROUND (( products.price - MIN( price_modifiers.price ) )
     / products.price * 100 - 0.5 ) AS discount_percent,
   ROUND( AVG ( messages.rating ), 1 ) AS rating,
   inventories.quantity AS inventory
  FROM navigations navigation
  JOIN navigation_products
    ON navigation.navigation_id = navigation_products.navigation_id
  JOIN products

SysPete

#!/usr/bin/env perl

use Plack::Builder;
use Plack::Middleware::Debug::DBIC::QueryLog;
use Plack::Middleware::DBIC::QueryLog;
use Dancer;
use Dancer::Plugin::DBIC;
use Dancer::Handler;
use lib 'lib';
use DanceShop;