projekt kivitendo

use SL::BackgroundJob::ShopPartMassUpload;

use SL::System::TaskServer;

use MIME::Base64;

  'scalar --get_set_init' => [ qw(shop_part file shops producers) ],

__PACKAGE__->run_before('add_javascripts', only => [ qw(edit_popup list_articles) ]);

}

  my $return    = $shop->connector->update_part($self->shop_part, $json,'all');

}

  $self->js->html('#price_' . $self->shop_part->id, $::form->format_amount(\%::myconfig,$price,2))

  my ( $stock_local, $stock_onlineshop, $active_online );

  if($self->shop_part->last_update) {

    my $shop_article = $shop->connector->get_article($self->shop_part->part->partnumber);

    $stock_onlineshop = $shop_article->{data}->{mainDetail}->{inStock};

    $active_online = $shop_article->{data}->{active};

    #}

  $self->js->html('#stock_' . $self->shop_part->id, $::form->format_amount(\%::myconfig,$stock_local,0)."/".$::form->format_amount(\%::myconfig,$stock_onlineshop,0))

           ->html('#toogle_' . $self->shop_part->id,$active_online)

sub action_get_n_write_categories {

  my ($self) = @_;

  my @shop_parts =  @{ $::form->{shop_parts_ids} || [] };

  foreach my $part(@shop_parts){

    my $shop_part = SL::DB::Manager::ShopPart->get_all( where => [id => $part], with_objects => ['part', 'shop'])->[0];

    require SL::DB::Shop;

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

    my $online_article = $shop->connector->get_article($shop_part->part->partnumber);

    my $online_cat = $online_article->{data}->{categories};

    my @cat = ();

    for(keys %$online_cat){

    # The ShopwareConnector works with the CategoryID @categories[x][0] in others/new Connectors it must be tested

    # Each assigned categorie is saved with id,categorie_name an multidimensional array and could be expanded with categoriepath or what is needed

      my @cattmp;

      push( @cattmp,$online_cat->{$_}->{id} );

      push( @cattmp,$online_cat->{$_}->{name} );

      push( @cat,\@cattmp );

    }

    my $attributes->{shop_category} = \@cat;

    my $active->{active} = $online_article->{data}->{active};

    $shop_part->assign_attributes(%{$attributes}, %{$active});

    $shop_part->save;

  }

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

}

           ->html('#price_' . $self->shop_part->id, $::form->format_amount(\%::myconfig,$price,2))

    # The ShopwareConnector works with the CategoryID @categories[x][0] in others/new Connectors it must be tested

    # Each assigned categorie is saved with id,categorie_name an multidimensional array and could be expanded with categoriepath or what is needed

    my @cat = ();

    foreach my $cat ( @categories) {

      my @cattmp;

      push( @cattmp,$cat );

      push( @cattmp,$::form->{"cat_id_${cat}"} );

      push( @cat,\@cattmp );

    }

sub action_list_articles {

  my ($self) = @_;

  my %filter = ($::form->{filter} ? parse_filter($::form->{filter}) : query => [ transferred => 0 ]);

  my $transferred = $::form->{filter}->{transferred_eq_ignore_empty} ne '' ? $::form->{filter}->{transferred_eq_ignore_empty} : '';

  my $sort_by = $::form->{sort_by} ? $::form->{sort_by} : 'part.partnumber';

  $sort_by .=$::form->{sort_dir} ? ' DESC' : ' ASC';

$main::lxdebug->message(0, "WH:LA ");

  my $articles = SL::DB::Manager::ShopPart->get_all(where => [ 'shop.obsolete' => 0 ],with_objects => [ 'part','shop' ], sort_by => $sort_by );

  foreach my $article (@{ $articles}) {

    my $images = SL::DB::Manager::File->get_all_count( where => [ trans_id => $article->part->id, modul => 'shop_part', file_content_type => { like => 'image/%' } ], sort_by => 'position' );

    $article->{images} = $images;

  }

  $main::lxdebug->dump(0, 'WH:ARTIKEL ',\$articles);

  $self->render('shop_part/_list_articles', title => t8('Webshops articles'), SHOP_PARTS => $articles);

}

sub action_upload_status {

  my ($self) = @_;

  my $job     = SL::DB::BackgroundJob->new(id => $::form->{job_id})->load;

  my $html    = $self->render('shop_part/_upload_status', { output => 0 }, job => $job);

  $self->js->html('#status_mass_upload', $html);

  $self->js->run('kivi.shop_part.massUploadFinished') if $job->data_as_hash->{status} == SL::BackgroundJob::ShopPartMassUpload->DONE();

  $self->js->render;

}

sub action_mass_upload {

  my ($self) = @_;

$main::lxdebug->message(0, "WH:MA ");

  my @shop_parts =  @{ $::form->{shop_parts_ids} || [] };

  my $job                   = SL::DB::BackgroundJob->new(

    type                    => 'once',

    active                  => 1,

    package_name            => 'ShopPartMassUpload',

  )->set_data(

     shop_part_record_ids         => [ @shop_parts ],

     todo                         => $::form->{upload_todo},

     status                       => SL::BackgroundJob::ShopPartMassUpload->WAITING_FOR_EXECUTION(),

     conversation_errors          => [ ],

   )->update_next_run_at;

$main::lxdebug->dump(0, 'WH:MA JOB ',\$job);

   SL::System::TaskServer->new->wake_up;

$main::lxdebug->dump(0, 'WH:MA JOB 2',\$job);

   my $html = $self->render('shop_part/_transfer_status', { output => 0 }, job => $job);

   $self->js

      ->html('#status_mass_upload', $html)

      ->run('kivi.shop_part.massUploadStarted')

      ->render;

}

sub init_file {

  $main::lxdebug->message(0, "WH:INIT_FILES ");

  my $file = $::form->{id} ? SL::DB::File->new(id => $::form->{id})->load : SL::DB::File->new;

  $main::lxdebug->dump(0, 'WH: INITFILE: ',\file);

  return $file;

}

sub init_shops {

  # data for drop down filter options

  $main::lxdebug->message(0, "WH:INIT_SHOPS ");

  require SL::DB::Shop;

  my @shops_dd = [ { title => t8("all") ,   value =>'' } ];

  my $shops = SL::DB::Mangager::Shop->get_all( where => [ obsolete => 0 ] );

   my @tmp = map { { title => $_->{description}, value => $_->{id} } } @{ $shops } ;

 $main::lxdebug->dump(0, 'WH:SHOPS ',\@tmp);

 return @shops_dd;

}

sub init_producers {

  # data for drop down filter options

  $main::lxdebug->message(0, "WH:INIT_PRODUCERS ");

  my @producers_dd = [ { title => t8("all") ,   value =>'' } ];

 return @producers_dd;

}

  To be called from the "Update" button of the shoppart, for manually syncing/upload one part with its shop. Generates a  Calls some ClientJS functions to modifiy original page.

=item C<action_get_n_write_categories>

  Can be used to sync the categories of a shoppart with the categories from online.