[ic] many warehouses shipping

[Kevin Walsh]

> 
> I removed that line from the usertag. But I get this after restarting
> interchange.
> >
> >        Global symbol "$origin" requires explicit package name at (eval 113) line 14, <GLOBAL> line 25.
> >
> User tag now is:
>
> UserTag  ship  Order  mode origin zip weight country
> UserTag  ship  Routine <<EOR
> sub {
>         my( $mode, $zip, $weight, $country) = @_;
>
> ...etc...
> 
This line:

    UserTag  ship  Order  mode origin zip weight country

should be a reasonable match this line:

    my( $mode, $zip, $weight, $country) = @_;

Change one line or the other, if you want to accurately pass in
parameters to your UserTag.  The variable names don't have to
match, but you are using $origin, which is clearly missing from
your list.

I thought the error message was self-explanatory.

-- 
   _/   _/  _/_/_/_/  _/    _/  _/_/_/  _/    _/
  _/_/_/   _/_/      _/    _/    _/    _/_/  _/   K e v i n   W a l s h
 _/ _/    _/          _/ _/     _/    _/  _/_/    kevin@cursor.biz
_/   _/  _/_/_/_/      _/    _/_/_/  _/    _/