From 493d07e1c7ddf660157a17fc8f6717633e6a61c1 Mon Sep 17 00:00:00 2001
From: plg <plg>
Date: Thu, 16 Mar 2006 11:17:28 +0000
Subject: [PATCH] new: required Perl modules listed with their version in about
 page.

---
 about.pl                                   | 35 ++++++++++++++++++++++
 koha-tmpl/intranet-tmpl/prog/en/about.tmpl | 10 +++++++
 2 files changed, 45 insertions(+)

diff --git a/about.pl b/about.pl
index b57e36fa4a..e4c1d7ce2e 100755
--- a/about.pl
+++ b/about.pl
@@ -8,6 +8,8 @@ use C4::Interface::CGI::Output;
 use C4::Auth;
 use C4::Context;
 use CGI;
+use LWP::Simple;
+use XML::Simple;
 
 my $query = new CGI;
 my ($template, $loggedinuser, $cookie)
@@ -25,6 +27,7 @@ my $perlVersion = $];
 my $mysqlVersion = `mysql -V`;
 my $apacheVersion =  `httpd -v`;
 $apacheVersion =  `httpd2 -v` unless $apacheVersion;
+my $zebraVersion = `zebraidx -V`;
 
 $template->param(
 					kohaVersion => $kohaVersion,
@@ -32,6 +35,38 @@ $template->param(
 					perlVersion        => $perlVersion,
 					mysqlVersion       => $mysqlVersion,
 					apacheVersion      => $apacheVersion,
+                                        zebraVersion       => $zebraVersion,
 		);
 
+my @components = ();
+
+foreach my $component (qw/MARC::File::XML   MARC::Charset   Class::Accessor
+                          LWP::Simple       XML::Simple     Net::Z3950
+                          Event             Net::LDAP       PDF::API2
+                          Mail::Sendmail    MARC::Record    Digest::MD5
+                          HTML::Template    DBD::mysql      Date::Manip
+                          DBI               Smart::Comments ZOOM
+                         /) {
+    my $version;
+    if (eval "require $component") {
+        $version = $component->VERSION;
+        if ($version eq '' ) {
+            $version = 'unknown';
+        }
+    }
+    else {
+        $version = 'module is missing';
+    }
+
+    push @components,
+        {
+        name    => $component,
+        version => $version,
+    };
+}
+
+$template->param(
+    components => \@components
+);
+
 output_html_with_http_headers $query, $cookie, $template->output;
diff --git a/koha-tmpl/intranet-tmpl/prog/en/about.tmpl b/koha-tmpl/intranet-tmpl/prog/en/about.tmpl
index 8c46dceb34..8d232ba7d8 100644
--- a/koha-tmpl/intranet-tmpl/prog/en/about.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/about.tmpl
@@ -11,6 +11,16 @@
 	<tr><th scope="row">Perl version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="perlVersion" --></td></tr>
 	<tr><th scope="row">MySQL version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="mysqlVersion" --></td></tr>
 	<tr><th scope="row">Apache version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="apacheVersion" --></td></tr>
+	<tr><th scope="row">Zebra version: </th><td><!-- TMPL_VAR ESCAPE=HTML name="zebraVersion" --></td></tr>
+</table>
+
+<table>
+	<!-- TMPL_LOOP name="components" -->
+	<tr>
+	  <th scope="row"><!-- TMPL_VAR NAME="name" --></th>
+          <td><!-- TMPL_VAR NAME="version" --></td>
+        </tr>
+	<!-- /TMPL_LOOP -->
 </table>
 
 	
-- 
2.39.5