<%doc>
###############################################################################

=head1 NAME

in_array.mc

=head1 VERSION

$LastChangedRevision$

=cut

our $VERSION = substr(q$LastChangedRevision$, 10, -1);


=head1 DATE

$LastChangedDate$

=head1 SYNOPSIS

=head1 DESCRIPTION

Determine if element $what is in array @arr. Currently works for flat arrays.  If I get smart, or really need it, it could be extended to arrays of arrays.  Ah php, you were a good friend to me.

=cut
</%doc>

<%args>

@ar => ()
$what

</%args>

<%perl>

return 1;

foreach my $element (@ar) {

	if ($element eq $what || $element == $what) {
		return 1;
	}
}

return 0;

</%perl>