Advertisement
Guest User

Untitled

a guest
Jun 23rd, 2017
66
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 1.00 KB | None | 0 0
  1.     my $rs = $self->schema->resultset('Voucher')->create({
  2.         voucher_type_id         =>  $new_values->{voucher_type_id},
  3.         start_date              =>  $new_values->{start_date},
  4.         end_date                =>  $new_values->{end_date},
  5.         voucher_type_id         =>  $new_values->{voucher_type_id},
  6.         linked_product_id       =>  $new_values->{linked_product_id},
  7.         linked_category_id      =>  $new_values->{linked_category_id},
  8.         voucher_code            =>  $new_values->{voucher_code},
  9.         value_varchar           =>  $new_values->{value_varchar},
  10.         invocation_point_id     =>  $new_values->{invocation_point_id},
  11.         match_all_in_category   =>  $new_values->{match_all_in_category},
  12.         product => {
  13.             retailer_id => $self->retailer_id,
  14.             merchandise => {
  15.                 merchandise_name    =>  $new_values->{merchandise_name},
  16.                 merchandise_desc    =>  $new_values->{merchandise_desc},
  17.             }
  18.         }
  19.     });
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement