[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 <address@hidden>       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 => address@hidden
+);
+
 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>