From 63a6a68ec94679952a1479530924fb4b50967175 Mon Sep 17 00:00:00 2001
From: Silvio <silvio@devlet.com.br>
Date: Mon, 26 Apr 2010 13:45:05 -0300
Subject: Enhancements on check() implementations

---
 classes/BiblioIsisDb.php | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'classes/BiblioIsisDb.php')

diff --git a/classes/BiblioIsisDb.php b/classes/BiblioIsisDb.php
index 616cc77..d7fdd1c 100644
--- a/classes/BiblioIsisDb.php
+++ b/classes/BiblioIsisDb.php
@@ -118,6 +118,13 @@ class BiblioIsisDb implements IsisDb {
    * @see IsisDb::check()
    */  
   public function check($schema, $section = NULL) {
+    // Check API availability.
+    if (!class_exists('Perl')) {
+      throw new Exception('Could not find Perl class. Please check your php-perl installation.');
+      return FALSE;
+    }
+
+    // Check schema configuration.
     return SchemaDb::check($schema, $section);
   }
 
-- 
cgit v1.2.3