package II9f73b1c82926fb1027f437e925a16e95; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use II3562149e53818b6637b38680e87ba918::conflist; use IIa200cff39cb148a0ef9901572c626e9d; BEGIN{*II9f73b1c82926fb1027f437e925a16e95::IlIIIIIIlIlIllIl=\%{pack('H6','7f7463')^'::5'};*II9f73b1c82926fb1027f437e925a16e95::IlIIlIlIlIlIIlII=\&{pack('H24','35515d286c63417c603a4401')^'X04FVY2DWX<5'};$II9f73b1c82926fb1027f437e925a16e95::IlIlIlllllIIlIII=pack('H18','066e1d050c1f7c0000')^'N:IUSW3ST';$II9f73b1c82926fb1027f437e925a16e95::llIlIIlIlIIIlIll=pack('H12','1e0d780a1e75')^'TD6FW6'};sub act_fulfill { my $class = shift; my $in = Zen->getRequest->getInput; my $shipdue = IIa200cff39cb148a0ef9901572c626e9d::IlIIIIIIIllllIIl($II9f73b1c82926fb1027f437e925a16e95::IlIIIIIIlIlIllIl{$IIa200cff39cb148a0ef9901572c626e9d::lIIlIllIIlIlIlll},118,$II9f73b1c82926fb1027f437e925a16e95::IlIIIIIIlIlIllIl{$IIa200cff39cb148a0ef9901572c626e9d::IIlIlllIllIIIIlI})->get($in->{id}); my $shipping = $shipdue->getShipping; $shipdue->{fulfilled} = $in->{fulfilled} ? 1 : 0; if ($shipping->{type} eq 'ShippingBasic') { if ($shipdue->{fulfilled}) { $shipdue->{procid} = $shipdue->{id}; $shipdue->{status} = 'SHIPPED'; } else { $shipdue->{procid} = $shipdue->{status} = ''; } } $shipdue->save; Zen->getRequest->redirect(IIa200cff39cb148a0ef9901572c626e9d::lIIIlIlllIIIlIlI($IIa200cff39cb148a0ef9901572c626e9d::IIlIIlIIIlIlIIll{$II9f73b1c82926fb1027f437e925a16e95::IlIlIlllllIIlIII},47,$IIa200cff39cb148a0ef9901572c626e9d::IIlIIlIIIlIlIIll{$II9f73b1c82926fb1027f437e925a16e95::llIlIIlIlIIIlIll})->getURL . "/master/customers/shipdue.html?flush"); } 1; 