[ic] interchange error

[Jack Gates]

> > UserTag batch Routine <<EOR
> > sub {
> > foreach my $index (0 .. $#$Vend::Items) {
> > 	my $code = $Vend::Items->[$index]{code};
> > 	my $oqty = $Vend::Items->[$index]{quantity};
> > 	my $base = $Vend::Items->[$index]{mv_ib};
> > 	my $nqty = $oqty;
> > 	my $batches = undef;
> >
> > 	my $min = Vend::Data::database_field($base, $code,
> "min_qty", undef);
> > 	my $batch = Vend::Data::database_field($base, $code,
> "batch_qty", undef);
> >
> > 	$batch = 1            if $batch <= 1;
> > 	$min   = 1            if $min   <= 1;
> > 	$nqty  = 0            if $nqty  <= $min;
> > 	$nqty  = $nqty - $min if $nqty  >  $min;
> >
> > 	$batches = int($nqty / $batch);
> > 	$nqty = $min + $batches * $batch;
> >
> > 	my $message = <<EOM;
> > 	<br>
> > 	<p style="font-size: 10px">
> > 	You must order at least $min items.
> > 	</p>
> > 	<p style="font-size: 10px">
> > 	Additional items must be ordered in multiples of $batch.
> > 	</p>
> > EOM
> >
> > 	$Vend::Items->[$index]{quantity} = $nqty;
> > 	$Vend::Items->[$index]{message} = $message if $oqty != $nqty;
> > 	$Vend::Items->[$index]{message} = "" if $oqty == $nqty;
> > }}
> > EOR
>
>
> How about that double right brace second line from the end?
>
> John Young
>
> _______________________________________________
> interchange-users mailing list
> interchange-users at icdevgroup.org
> http://www.icdevgroup.org/mailman/listinfo/interchange-users

Shouldn't those be there for the left braces on the 2nd and 3rd lines from
the top?