From 8cd1a0074d172c1567e825f061715e5fce69095c Mon Sep 17 00:00:00 2001 From: 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