[Koha-cvs] koha koha-tmpl/intranet-tmpl/prog/en/about.tmpl...

[Pierrick LE GALL]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Pierrick LE GALL <plg at savannah.gnu.org>	06/03/16 11:17:28

Modified files:
	koha-tmpl/intranet-tmpl/prog/en: about.tmpl 
	.              : about.pl 

Log message:
	new: required Perl modules listed with their version in about page.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/koha-tmpl/intranet-tmpl/prog/en/about.tmpl.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/about.pl.diff?tr1=1.5&tr2=1.6&r1=text&r2=text

Patches:
Index: koha/about.pl
diff -u koha/about.pl:1.5 koha/about.pl:1.6
--- koha/about.pl:1.5	Tue Mar  1 13:40:47 2005
+++ koha/about.pl	Thu Mar 16 11:17:28 2006
@@ -8,6 +8,8 @@
 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 $mysqlVersion = `mysql -V`;
 my $apacheVersion =  `httpd -v`;
 $apacheVersion =  `httpd2 -v` unless $apacheVersion;
+my $zebraVersion = `zebraidx -V`;
 
 $template->param(
 					kohaVersion => $kohaVersion,
@@ -32,6 +35,38 @@
 					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;
Index: koha/koha-tmpl/intranet-tmpl/prog/en/about.tmpl
diff -u koha/koha-tmpl/intranet-tmpl/prog/en/about.tmpl:1.1 koha/koha-tmpl/intranet-tmpl/prog/en/about.tmpl:1.2
--- koha/koha-tmpl/intranet-tmpl/prog/en/about.tmpl:1.1	Sat Aug  6 20:19:56 2005
+++ koha/koha-tmpl/intranet-tmpl/prog/en/about.tmpl	Thu Mar 16 11:17:28 2006
@@ -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>