[Perl-unix-users] Trouble accessing anonymous hash of array

[Jon Earle]

Hi,

I have a function which creates a list of users.  I want to pass that list
to another function via an anonymous hash, thus:

    my @users = $query->param('users');
    return unless @users;

    unless ($query->param('conf')) {
        &confirm_delete('delete', {'users' => [ @users ]});
        exit;
    }

and confirm_delete has relevant lines, thus:

    my ($action, $hashref) = @_;

    foreach (@$hashref{'users'}) {
        print "<input type='hidden' name='users' value=\"$_->[0]\">\n";
    }

Trouble is, I only get the first entry from the @users array.  Can anyone
spot what I'm doing wrong?

Cheers!
Jon

-- 
Jon Earle

SAVE FARSCAPE http://www.savefarscape.com/
_______________________________________________
Perl-Unix-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs