projekt kivitendo

package SL::Controller::Shop;

use strict;

use parent qw(SL::Controller::Base);

use SL::Helper::Flash;

use SL::Locale::String;

use SL::DB::Default;

use SL::DB::Manager::Shop;

use SL::DB::Pricegroup;

use Rose::Object::MakeMethods::Generic (

  scalar                  => [ qw(connectors price_types price_sources) ],

  'scalar --get_set_init' => [ qw(shop) ]

);

__PACKAGE__->run_before('check_auth');

__PACKAGE__->run_before('load_types',    only => [ qw(new edit) ]);

#

# actions

#

sub action_list {

  my ($self) = @_;

  $self->render('shops/list',

                title => t8('Shops'),

                SHOPS => SL::DB::Manager::Shop->get_all_sorted,

               );

}

sub action_new {

  my ($self) = @_;

  $self->shop(SL::DB::Shop->new);

  $self->render('shops/form', title       => t8('Add shop'));

};

sub action_edit {

  my ($self) = @_;

  $self->render('shops/form', title       => t8('Edit shop'));

}

sub action_create {

  my ($self) = @_;

  $self->shop(SL::DB::Shop->new);

  $self->create_or_update;

}

sub action_update {

  my ($self) = @_;

  $self->create_or_update;

}

sub action_delete {

  my ($self) = @_;

  if ( eval { $self->shop->delete; 1; } ) {

    flash_later('info',  $::locale->text('The shop has been deleted.'));

  } else {

    flash_later('error', $::locale->text('The shop has been used and cannot be deleted.'));

  };

  $self->redirect_to(action => 'list');

}

sub action_reorder {

  my ($self) = @_;

  SL::DB::Shop->reorder_list(@{ $::form->{shop_id} || [] });

  $self->render(\'', { type => 'json' });

}

#

# filters

#

sub check_auth {

  $::auth->assert('config');

}

sub init_shop {

  SL::DB::Shop->new(id => $::form->{id})->load;

}

#

# helpers

#

sub create_or_update {

  my ($self) = @_;

  my $is_new = !$self->shop->id;

  my $params = delete($::form->{shop}) || { };

  $self->shop->assign_attributes(%{ $params });

  my @errors = $self->shop->validate;

  if (@errors) {

    flash('error', @errors);

    $self->render('shops/form',

                   title => $is_new ? t8('Add shop') : t8('Edit shop'));

    return;

  }

  $self->shop->save;

  flash_later('info', $is_new ? t8('The shop has been created.') : t8('The shop has been saved.'));

  $self->redirect_to(action => 'list');

}

sub load_types {

  my ($self) = @_;

  # data for the dropdowns when editing Shop configs

  # hardcoded the possible connectors, which correspond to

  # SL/ShopConnector/xxxx classes

  $self->connectors( [ { id => "xtcommerce", description => "XT Commerce"},

                       { id => "shopware",   description => "Shopware" },

                       { id => "ideal",      description => "IDeal" }

                     ]);

  # whether the shop presents its prices as brutto or netto

  $self->price_types( [ { id => "brutto", name => t8('brutto')}, { id => "netto", name => t8('netto') } ] );

  # the possible price sources to use for the shops: sellprice, lastcost,

  # listprice, or one of the pricegroups

  my $pricesources;

  push( @{ $pricesources } , { id => "sellprice", name => t8("Sellprice") },

                             { id => "listprice", name => t8("Listprice") },

                             { id => "lastcost",  name => t8("Lastcost") }

                             );

  my $pricegroups = SL::DB::Manager::Pricegroup->get_all;

  foreach my $pg ( @$pricegroups ) {

    push( @{ $pricesources } , { id => $pg->id, name => $pg->pricegroup} );

  };

  $self->price_sources( $pricesources );

};

1;

use SL::DB::Shop;

  shops                          => 'shop',

  web_shops                      => 'web_shop',

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Manager::Shop;

use strict;

use SL::DB::Helper::Manager;

use base qw(SL::DB::Helper::Manager);

sub object_class { 'SL::DB::Shop' }

use SL::DB::Helper::Sorted;

__PACKAGE__->make_manager_methods;

sub _sort_spec {

  return ( default => [ 'sortkey', 1 ],

           columns => { SIMPLE => 'ALL' } );

}

sub get_default {

    return $_[0]->get_first(where => [ obsolete => 0 ], sort_by => 'sortkey');

}

1;

1;

# This file has been auto-generated. Do not modify it; it will be overwritten

# by rose_auto_create_model.pl automatically.

package SL::DB::Shop;

use strict;

use base qw(SL::DB::Object);

__PACKAGE__->meta->table('shops');

__PACKAGE__->meta->columns(

  connector    => { type => 'text' },

  description  => { type => 'text' },

  id           => { type => 'serial', not_null => 1 },

  login        => { type => 'text' },

  obsolete     => { type => 'boolean', default => 'false', not_null => 1 },

  password     => { type => 'text' },

  port         => { type => 'integer' },

  price_source => { type => 'text' },

  pricetype    => { type => 'text' },

  sortkey      => { type => 'integer' },

  url          => { type => 'text' },

);

__PACKAGE__->meta->primary_key_columns([ 'id' ]);

1;

;

    manager_args => { with_objects => [ 'pricegroup' ] }

# This file has been auto-generated only because it didn't exist.

# Feel free to modify it at will; it will not be overwritten automatically.

package SL::DB::Shop;

use strict;

use SL::DB::MetaSetup::Shop;

use SL::DB::Manager::Shop;

use SL::DB::Helper::ActsAsList;

__PACKAGE__->meta->initialize;

sub validate {

  my ($self) = @_;

  my @errors;

  push @errors, $::locale->text('The description is missing.') unless $self->{description};

  return @errors;

}

1;

package SL::Shop;

use strict;

use parent qw(Rose::Object);

# __PACKAGE__->run_before('check_auth');

use Rose::Object::MakeMethods::Generic (

  'scalar'                => [ qw(config) ],

  'scalar --get_set_init' => [ qw(connector) ],

);

sub init_connector {

  my ($self) = @_;

  # determine the connector from the connector type in the webshop config

  return SL::ShopConnector::ALL->shop_connector_class_by_name($self->config->connector)->new( config => $self->config); 

};

1;

__END__

=encoding utf8

=head1 NAME

SL::WebShop - Do stuff with WebShop instances

=head1 SYNOPSIS

  my $config = SL::DB::Manager::WebShop->get_first();

  my $shop = SL::WebShop->new( config => $config );

From the config we know which Connector class to load, save in $shop->connector

and do stuff from there:

  $shop->connector->get_new_orders;

=head1 FUNCTIONS

=head1 BUGS

Nothing here yet.

=head1 AUTHOR

G. Richardson <lt>information@kivitendo-premium.deE<gt>

=cut

- parent: system

  id: system_shops

  name: Web shops

  order: 2350

  params:

    action: Shop/list

-- @tag: shops

-- @description: Tabelle für Shops

-- @depends: release_3_3_0

-- @ignore: 0

CREATE TABLE shops (

  id SERIAL PRIMARY KEY,

  description text,

  obsolete BOOLEAN NOT NULL DEFAULT false,

  sortkey INTEGER,

  connector text,     -- hardcoded options, e.g. xtcommerce, shopware

  pricetype text,     -- netto/brutto

  price_source text,  -- sellprice/listprice/lastcost or pricegroup id

  url text,

  port INTEGER,

  login text,  -- "user" is reserved

  password text

);

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%]

[% SET style="width: 400px" %]

[% SET size=34 %]

<h1>[% HTML.escape(title) %]</h1>

<form action="controller.pl" method="post">

[%- INCLUDE 'common/flash.html' %]

[%- L.hidden_tag("id", SELF.shop.id) %]

<table>

  <tr>

    <th align="right">[% 'Description' | $T8 %]</th>

    <td>[%- L.input_tag("shop.description", SELF.shop.description, size=size) %]</td>

  </tr>

  <tr>

    <th align="right">[% 'Shop type' | $T8 %]</th>

    <td>[% L.select_tag('shop.connector', SELF.connectors, value_key = 'id', title_key = 'description', with_empty = 1, default = SELF.shop.connector, default_value_key='id' ) %]</td>

  <tr>

  <tr>

    <th align="right">[% 'Price type' | $T8 %]</th>

    <td>[% L.select_tag('shop.pricetype', SELF.price_types, value_key = 'id', title_key = 'name', with_empty = 1, default = SELF.shop.pricetype, default_value_key='id' ) %]</td>

  </tr>

  <tr>

    <th align="right">[% 'Price Source' | $T8 %]</th>

    <td>[% L.select_tag('shop.price_source', SELF.price_sources, value_key = 'id', title_key = 'name', with_empty = 1, default = SELF.shop.price_source, default_value_key='id' ) %]</td>

  </tr>

  <tr>

    <th align="right">[% 'URL' | $T8 %]</th>

    <td>[%- L.input_tag("shop.url", SELF.shop.url, size=size) %]</td>

  </tr>

  <tr>

    <th align="right">[% 'Port' | $T8 %]</th>

    <td>[%- L.input_tag("shop.port", SELF.shop.port, size=5) %]</td>

   <tr>

    <th align="right">[% 'User' | $T8 %]</th>

    <td>[%- L.input_tag("shop.login", SELF.shop.login, size=12) %]</td>

  </tr>

    <tr>

    <th align="right">[% 'Password' | $T8 %]</th>

    <td>[%- L.input_tag("shop.password", SELF.shop.password, size=12) %]</td>

  </tr>

 </tr>

  <tr>

    <th align="right">[% 'Obsolete' | $T8 %]</th>

    <td>[% L.checkbox_tag('shop.obsolete', checked = SELF.shop.obsolete, for_submit=1) %]</td>

  </tr>

</table>

 <p>

  [% L.hidden_tag("action", "Shop/dispatch") %]

  [% L.submit_tag("action_" _  (SELF.shop.id ? "update" : "create"), LxERP.t8('Save'), onclick="return check_prerequisites();") %]

  [%- IF SELF.shop.id -%]

    [% L.submit_tag("action_delete", LxERP.t8('Delete')) %]

  [%- END %]

  <a href="[% SELF.url_for(action='list') %]">[%- LxERP.t8("Cancel") %]</a>

 </p>

 <hr>

<script type="text/javascript">

<!--

function check_prerequisites() {

  if ($('#shop_description').val() === "") {

    alert(kivi.t8('The name is missing.'));

    return false;

  }

  if ($('#shop_url').val() === "") {

    alert(kivi.t8('The URL is missing.'));

    return false;

  }

  if ($('#shop_port').val() === "") {

    alert(kivi.t8('The port is missing.'));

    return false;

  }

  return true;

}

-->

</script>

</form>

[%- USE HTML -%][%- USE LxERP -%][%- USE L -%][%- USE T8 -%][%- INCLUDE 'common/flash.html' %]

<h1>[% title %]</h1>

<p>

 <table width="100%" id="shop_list">

  <thead>

   <tr class="listheading">

    <th align="center" width="1%"><img src="image/updown.png" alt="[ LxERP.t8('reorder item') %]"></th>

    <th>[% 'Description' | $T8 %]</th>

    <th>[% 'Type' | $T8 %]</th>

   </tr>

  </thead>

  <tbody>

   [%- FOREACH shop = SHOPS %]

    <tr class="listrow" id="shop_id_[% shop.id %]">

     <td align="center" class="dragdrop"><img src="image/updown.png" alt="[ LxERP.t8('reorder item') %]"></td>

     <td><a href="[% SELF.url_for(action='edit', id=shop.id) %]">[% HTML.escape(shop.description) %]</a></td>

     <td>[% HTML.escape(shop.connector) %]</a></td>

    </tr>

   [%- END %]

  </tbody>

 </table>

</p>

<hr height="3">

[% L.sortable_element('#shop_list tbody', url=SELF.url_for(action='reorder'), with='shop_id') %]

<p>

 <a href="[% SELF.url_for(action='new') %]">[%- 'Add' | $T8 %]</a>

</p>