package II3c24cb0902d8450612538115d0fb5e23; use strict 'vars'; use base qw/IIc0dddbcc5525420e139003092ae80eb6/; use Zen::Config; use II8b55f24974af3d53369c3d9cea404f55::filters::text2html; use IId354b5694a2e5bdc5feba0ce8da36d3b; BEGIN{*II3c24cb0902d8450612538115d0fb5e23::lIIllllIllIlIlIl=\%{pack('H6','751d14')^'0SB'};*II3c24cb0902d8450612538115d0fb5e23::lIllllIIIlllIIII=\&{pack('H24','5e30253c0e6d3a76615e3a0b')^'3QLR4WINV<B?'};$II3c24cb0902d8450612538115d0fb5e23::IllIIlIlIlIIIIlI=pack('H18','790718130d73780211')^'1SLCR;7QE';$II3c24cb0902d8450612538115d0fb5e23::IIIlIlIlIIllIlIl=pack('H12','080479711f0e')^'BM7=VM'};sub getTblSale_id { my $this = shift; my $object = $this->getDecorated; my $sale = $object->getSale; return IId354b5694a2e5bdc5feba0ce8da36d3b::link_object_record(IId354b5694a2e5bdc5feba0ce8da36d3b::lllIIllIlIllllll($IIc0dddbcc5525420e139003092ae80eb6::IlIIlllIlllllIIl{$IId354b5694a2e5bdc5feba0ce8da36d3b::lIIllIlIlIlIllIl},100,$IIc0dddbcc5525420e139003092ae80eb6::IlIIlllIlllllIIl{$II3c24cb0902d8450612538115d0fb5e23::llIllIlIlIllIIIl}), $sale->{id}, "Sale #$sale->{id}"); } BEGIN{*II3c24cb0902d8450612538115d0fb5e23::lIIlIIllllIlIlII=\%{pack('H6','0f0067')^'JN1'};*II3c24cb0902d8450612538115d0fb5e23::lIIllllllIlllllI=\&{pack('H24','56583d536e04297773252900')^';9T=T>ZODGQ4'};$II3c24cb0902d8450612538115d0fb5e23::IllllIIIllIlIIll=pack('H18','1f1106186210196c6b')^'WERH=XV??';$II3c24cb0902d8450612538115d0fb5e23::IIlIllIllIIIlllI=pack('H12','780b0c78021a')^'2BB4KY'};sub getTblDescr { my $this = shift; my $object = $this->getDecorated; II8b55f24974af3d53369c3d9cea404f55::filters::text2html::text2html($object->{descr}); } BEGIN{*II3c24cb0902d8450612538115d0fb5e23::llIlIlIlIIIIIlll=\%{pack('H6','781400')^'=ZV'};*II3c24cb0902d8450612538115d0fb5e23::lIllllIIlIIlllIl=\&{pack('H24','5c50555a0009230109263401')^'11<4:3P9>DL5'};$II3c24cb0902d8450612538115d0fb5e23::lIIIllIllllllIIl=pack('H18','700e106e6e1d150303')^'8ZD>1UZPW';$II3c24cb0902d8450612538115d0fb5e23::llIllIlIlIllIIIl=pack('H12','037a0c7d7303')^'I3B1:@'};sub getTblAddress { my $this = shift; my $object = $this->getDecorated; my $order = $object->getSale->getOrder; my $address = join "\n", grep { length($_) } map { ($order->{"shipping_$_"} || $order->{"user_$_"}) } qw/name address city/; my $cfg_c = Zen::Config->get('lists::countries'); my $cfg_s = Zen::Config->get('lists::states'); my $state = $order->{shipping_state} || $order->{user_state}; $address .= "\n" . $cfg_s->{main}{$state} if $state; my $zipcode = $order->{shipping_zipcode} || $order->{user_zipcode}; my $country = $order->{shipping_country} || $order->{user_country}; $address .= "\n$zipcode $cfg_c->{main}{$country}" if $zipcode || $country; II8b55f24974af3d53369c3d9cea404f55::filters::text2html::text2html($address); } BEGIN{*II3c24cb0902d8450612538115d0fb5e23::lIlIllllIIllIIII=\%{pack('H6','1d1a63')^'XT5'};*II3c24cb0902d8450612538115d0fb5e23::IIlllIlIlIlIIlIl=\&{pack('H24','502152397a7c277d035f2f7e')^'=@;W@FTE4=WJ'};$II3c24cb0902d8450612538115d0fb5e23::lIlIlIIIlllIlIll=pack('H18','1b69651f630c16636a')^'S=1O<DY0>';$II3c24cb0902d8450612538115d0fb5e23::lIIlIlIlllIlIIlI=pack('H12','1b790a7d0877')^'Q0D1A4'};sub getTblFulfilled { my $this = shift; my $object = $this->getDecorated; my $sys_url = IIc0dddbcc5525420e139003092ae80eb6::IlIIllIlllIllIll($II3c24cb0902d8450612538115d0fb5e23::lIIllllIllIlIlIl{$IIc0dddbcc5525420e139003092ae80eb6::IIIIIIIIlIlIIIlI},47,$II3c24cb0902d8450612538115d0fb5e23::lIIllllIllIlIlIl{$IId354b5694a2e5bdc5feba0ce8da36d3b::IIlIIIlIlllIlIIl})->getURL; if ($object->{fulfilled}) { qq(<b style="color: blue">Fulfilled</b>&nbsp;<input style="font-size: 70%" type="button" value="Unfulfill" onClick="document.location='$sys_url/action/Jin/ShippingDue/Web/fulfill.html?id=$object->{id}&fulfilled=0';">); } else { qq(<input style="font-size: 70%" type="button" value="Fulfill" onClick="document.location='$sys_url/action/Jin/ShippingDue/Web/fulfill.html?id=$object->{id}&fulfilled=1';">); } } 1; 