[comment] ui_template: Yes ui_template_name: noleft [/comment] [tmp page_title]__COMPANY__ -- Check Out[/tmp] @_NOLEFT_TOP_@ [perl tables="country products"] my $db = $Db{country} or return; my $domestic = $Variable->{DOMESTIC_SHIPPING} || 'US CA'; $domestic =~ s/\W+/ /g; my @dom = grep /\S/, split /\s+/, $domestic; my %dom; @dom{@dom} = @dom; my $modes; if($Values->{country}) { $modes = tag_data('country', 'shipmodes', $Values->{country}); @modes = grep /\S/, split /[\s,\0]+/, $modes; } delete $Scratch->{only_download}; my $hardgoods; for(@$Items) { next if tag_data('__ProductFiles_0__', 'download', $_->{code}); $hardgoods = 1; } ! $hardgoods and $Scratch->{only_download} = 1; return unless @modes; my %modes; @modes{@modes} = @modes; if(! $modes{$Values->{mv_shipmode}}) { $Values->{mv_shipmode} = shift @modes; } return; [/perl]
[if !session logged_in]
If you have an account with us, please login using the fields below. It is not required, but you can also create an account with us. [if session failure][calc]delete $Session->{failure}[/calc] [/if] [/if] |