Index: trunk/PS-IPP-Config/lib/PS/IPP/Config.pm
===================================================================
--- trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 14400)
+++ trunk/PS-IPP-Config/lib/PS/IPP/Config.pm	(revision 14575)
@@ -1,5 +1,5 @@
 # Copyright (c) 2006  Paul Price, Joshua Hoblitt
 #
-# $Id: Config.pm,v 1.63 2007-08-01 20:50:32 jhoblitt Exp $
+# $Id: Config.pm,v 1.64 2007-08-21 01:53:13 price Exp $
 
 package PS::IPP::Config;
@@ -29,4 +29,5 @@
 		    metadataLookupStr
 		    metadataLookupMD
+		    metadataLookupBool
 		    caturi
 		    );
@@ -881,4 +882,27 @@
 }
 
+# Lookup the metadata, checking the type is BOOL
+sub metadataLookupBool
+{
+    my $mdc = shift;		# Metadata config to look up
+    my $name = shift;		# Name of item to look ip
+
+    unless (defined $mdc and defined $name) {
+	carp "Programming error";
+	exit($PS_EXIT_PROG_ERROR);
+    }
+
+    # Iterate through the array of hashes
+    foreach my $item (@$mdc) {
+	if ($item->{name} eq $name) {
+	    carp "$name within metadata is not of type BOOL.\n" unless $item->{class} eq "bool";
+	    return $item->{value};
+	}
+    }
+
+    carp "Unable to find $name within metadata.\n";
+    return undef;
+}
+
 # Lookup the metadata, checking the type is MD; may be redirection
 sub _mdLookupMDwithRedirect