scalar => [ qw(config) ],
);
-sub get_order { die 'get_order needs to be implemented' }
+sub get_one_order {
+ die 'get_one_order needs to be implemented';
+
+ my ($self, $ordnumber) = @_;
+ my %fetched_order;
+
+ # 1. fetch the order and import it as a kivi order
+ # 2. update the order state for report
+ # 3. return a hash with either success or error state
+ my $one_order; # REST call
+
+ my $error = $self->import_data_to_shop_order($one_order);
+
+ $self->set_orderstatus($one_order->{id}, "fetched") unless $error;
+
+ return \(
+ shop_id => $self->config->id,
+ shop_description => $self->config->description,
+ number_of_orders => $error ? 0 : 1,
+ message => $error ? "Error: $error->{msg}" : '',
+ error => $error ? 1 : 0,
+ );
+}
+
sub get_new_orders { die 'get_order needs to be implemented' }
-sub update_part { die 'update_part needs to be implemented' }
+sub update_part {
+ die 'update_part needs to be implemented';
+
+ my ($self, $shop_part, $todo) = @_;
+ #shop_part is passed as a param
+ die "Need a valid Shop Part for updating Part" unless ref($shop_part) eq 'SL::DB::ShopPart';
+ die "Invalid todo for updating Part" unless $todo =~ m/(price|stock|price_stock|active|all)/;
+
+ my $part = SL::DB::Part->new(id => $shop_part->part_id)->load;
+ die "Shop Part but no kivi Part?" unless ref $part eq 'SL::DB::Part';
+
+ my $success;
+
+ return $success ? 1 : 0;
+}
sub get_article { die 'get_article needs to be implemented' }
-sub get_categories { die 'get_order needs to be implemented' }
+sub get_categories { die 'get_categories needs to be implemented' }
-sub get_version { die 'get_order needs to be implemented' }
+sub get_version {
+
+ die 'get_version needs to be implemented';
+ # has to return a hashref with this structure:
+ # version has to return the connection error message
+ my $connect = {};
+ $connect->{success} = 0 || 1;
+ $connect->{data}->{version} = '1234';
+ return $connect;
+}
+
+sub set_orderstatus { die 'set_orderstatus needs to be implemented' }
1;
=over 4
-=item C<get_order>
+=item C<get_one_order $ordnumber>
+
+Needs a order number and fetch (one or more) orders
+which are returned by the Shop system. The function
+has to take care of getting the order including customer
+and item information to kivi.
+It has to return a hash with either the number of succesful
+imported order or within the same hash structure a error message.
+
+
=item C<get_new_orders>
-=item C<update_part>
+=item C<update_part $shop_part $todo>
+
+Updates one Part including all metadata and Images in a Shop.
+Needs a valid 'SL::DB::ShopPart' as first parameter and a requested action
+as second parameter. Valid values for the second parameter are
+"price, stock, price_stock, active, all".
+The method updates either all metadata or a subset.
+Name and action for the subsets:
+
+ price => updates only the price
+ stock => updates only the available stock (qty)
+ price_stock => combines both predecessors
+ active => updates only the state of the shop part
+
+Images should always be updated, regardless of the requested action.
+Returns 1 if all updates were executed successful.
+
+
=item C<get_article>
=item C<get_version>
+IMPORTANT: This call is used to test the connection and if succesful
+it returns the version number of the shop. If not succesful the
+returning function has to make sure a error string is returned in
+the same data structure. Details of the returning hashref:
+
+ my $connect = {};
+ $connect->{success} = 0 || 1;
+ $connect->{data}->{version} = '1234';
+ return $connect;
+
+=item C<set_orderstatus>
+
+Sets the state of the order in the Shop.
+Valid values depend on the Shop API, common states
+are delivered, fetched, paid, in progress ...
+
+
=back
=head1 SEE ALSO