[ic] interchange error

Jack Gates jlgates at morningstarwebservices.net
Fri Oct 24 09:32:32 EDT 2003


> > 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;

> How about the foreach loop running once too often? I think it will
> run $#$Vend::Items + 1 times, as you're starting at zero and counting
> to $#$Vend::Items?

Are you saying;

foreach my $index (0 .. $#Vend::Items + 1)

Thanks for the help,

Jack


More information about the interchange-users mailing list