Fixes for unconfirmed mail list in admin

[mailer.git] / inc / functions.php

diff --git a/inc/functions.php b/inc/functions.php
index 2f1f10302237a13f0a533805513c6ec9528a6051..d9a2388fcb08bff8c790d39f182ef296fb475c5c 100644 (file)
--- a/inc/functions.php
+++ b/inc/functions.php
@@ -588,16 +588,20 @@ function TRANSLATE_GENDER ($gender) {
 }
 //
 function GET_POOL_TYPE($PT) {
-       switch ($PT)
-       {
-               case "TEMP"   : $ret = POOL_TEMP;    break;
-               case "SEND"   : $ret = POOL_SEND;    break;
-               case "NEW"    : $ret = POOL_NEW;     break;
-               case "ADMIN"  : $ret = POOL_ADMIN;   break;
-               case "ACTIVE" : $ret = POOL_ACTIVE;  break;
-               case "DELETED": $ret = POOL_DELETED; break;
-               default       : $ret = POOL_UNKNOWN." (".$PT.")"; break;
-       }
+       // Unknown pool type is default
+       $ret = POOL_UNKNOWN." (".$PT.")";
+
+       // Generate constant name
+       $constantName = sprintf("POOL_%s", $PT);
+
+       // Is the type known?
+       if (defined($constantName)) {
+               // Prepare eval command
+               $eval = sprintf("\$ret = %s;", $constantName);
+               eval($eval);
+       } // END - if
+
+       // Return result
        return $ret;
 }
 //