summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
2bc2e21)
Zufälligerweise heißen die alle fast schon so wie vordefiniert,
aber leider nicht ganz genauso ...
sub set_orderstatus {
my ($self, $order_id, $transition) = @_;
sub set_orderstatus {
my ($self, $order_id, $transition) = @_;
+ # one state differs
+ $transition = 'complete' if $transition eq 'completed';
+
croak "No shop order ID, should be in format [0-9a-f]{32}" unless $order_id =~ m/^[0-9a-f]{32}$/;
croak "NO valid transition value" unless $transition =~ m/(open|process|cancel|complete)/;
my $ret;
croak "No shop order ID, should be in format [0-9a-f]{32}" unless $order_id =~ m/^[0-9a-f]{32}$/;
croak "NO valid transition value" unless $transition =~ m/(open|process|cancel|complete)/;
my $ret;