From 8cd1a0074d172c1567e825f061715e5fce69095c Mon Sep 17 00:00:00 2001
From: sushi <sushi>
Date: Tue, 18 Apr 2006 04:53:40 +0000
Subject: [PATCH] Added check for modules for spine-label printing.

---
 misc/Install.pm | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)

diff --git a/misc/Install.pm b/misc/Install.pm
index 9706876fcb..6c098fd34e 100644
--- a/misc/Install.pm
+++ b/misc/Install.pm
@@ -841,6 +841,39 @@ sub checkperlmodules(;$) {
 				push @missing,"You will need PDF::API2 for barcode generator" 
 			}
 	}
+                unless (eval {require PDF::API2::PDF})   {
+                                    if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+                                            push @missing,"You will need PDF::API2::PDF for spine and barcode printing"
+                                    }
+                    }
+                unless (eval {require PDF::Reuse})   {
+                                    if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+                                            push @missing,"You will need PDF::Reuse for spine and barcode printing"
+                                    }
+                    }
+                unless (eval {require PDF::Reuse::Barcode})   {
+                                    if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+                                            push @missing,"You will need PDF::Reuse::Barcode for spine and barcode printing"
+                                    }
+                    }
+                unless (eval {require PDF::Report})   {
+                                    if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+                                            push @missing,"You will need PDF::Report for spine and barcode printing"
+                                    }
+                    }
+
+                unless (eval {require GD::Barcode})   {
+                                    if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+                                            push @missing,"You will need GD::Barcode for spine and barcode printing"
+                                    }
+                    }
+
+                unless (eval {require GD::Barcode::UPCE})   {
+                                    if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
+                                            push @missing,"You will need GD::Barcode::UPCE for spine and barcode printing"
+                                    }
+                    }
+
 	unless (eval {require Net::LDAP})       {
 		if ($#missing>=0) { # only when $#missing >= 0 so this isn't fatal
 				push @missing, "Net::LDAP";
-- 
2.39.5