[ic] perl error setting scratch variable

[interchange-users@interchange.redhat.com (Mike Heins)]

Quoting kenshin@planetanime.com (kenshin@planetanime.com):
> If anyone can look at this and tell me where the error is I would really
> appreciate it.
> Here is the code:
> 
> [perl tables="userdb"]
>   @subscriptions = split(/\s+/, $Tag->data('userdb', 'mail_list',
> $Values->{mv_username});
>   foreach $my_item (@subscriptions) {
>     $Tag->set('subscriptions', $my_item . '=Y' );
>   }
> [/perl]
> 

[perl tables="userdb"]
  @subscriptions = split /\s+/, $Tag->data(
				    'userdb',
				    'mail_list',
				    $Values->{mv_username},
				);
  foreach $my_item (@subscriptions) {
    $Scratch->{subscriptions} .= $my_item . '=Y';
  }
 
  return;
[/perl]

I assume what you will then do is something like:

	[display type=checkbox passed="[scratch subscriptions]"]

-- 
Red Hat, Inc., 3005 Nichols Rd., Hamilton, OH  45013
phone +1.513.523.7621      <mheins@redhat.com>

If you think nobody cares if you're alive, try missing a couple of
car payments.  -- Earl Wilson