1#************************************************************************* 2# 3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4# 5# Copyright 2000, 2010 Oracle and/or its affiliates. 6# 7# OpenOffice.org - a multi-platform office productivity suite 8# 9# This file is part of OpenOffice.org. 10# 11# OpenOffice.org is free software: you can redistribute it and/or modify 12# it under the terms of the GNU Lesser General Public License version 3 13# only, as published by the Free Software Foundation. 14# 15# OpenOffice.org is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU Lesser General Public License version 3 for more details 19# (a copy is included in the LICENSE file that accompanied this code). 20# 21# You should have received a copy of the GNU Lesser General Public License 22# version 3 along with OpenOffice.org. If not, see 23# <http://www.openoffice.org/license.html> 24# for a copy of the LGPLv3 License. 25# 26#************************************************************************* 27 28 29package par2script::existence; 30 31############################# 32# Test of existence 33############################# 34 35sub exists_in_array 36{ 37 my ($searchstring, $arrayref) = @_; 38 39 my $alreadyexists = 0; 40 41 for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) 42 { 43 if ( ${$arrayref}[$i] eq $searchstring) 44 { 45 $alreadyexists = 1; 46 last; 47 } 48 } 49 50 return $alreadyexists; 51} 52 53sub exists_in_array_of_hashes 54{ 55 my ($searchkey, $searchvalue, $arrayref) = @_; 56 57 my $hashref; 58 my $valueexists = 0; 59 60 for ( my $i = 0; $i <= $#{$arrayref}; $i++ ) 61 { 62 $hashref = ${$arrayref}[$i]; 63 64 if ( $hashref->{$searchkey} eq $searchvalue ) 65 { 66 $valueexists = 1; 67 last; 68 } 69 } 70 71 return $valueexists; 72} 73 741; 75