display Perl @INC on about page

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

diff --git a/about.pl b/about.pl
index 32b2978..cf2c9d4 100755 (executable)
--- a/about.pl
+++ b/about.pl
@@ -50,6 +50,7 @@ $template->param(
     kohaVersion   => $kohaVersion,
     osVersion     => $osVersion,
     perlVersion   => $perlVersion,
+    perlIncPath   => [ map { perlinc => $_ }, sort @INC ],
     mysqlVersion  => $mysqlVersion,
     apacheVersion => $apacheVersion,
     zebraVersion  => $zebraVersion,

diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl b/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl
index fe1b002..9eaa559 100644 (file)
--- a/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl
+++ b/koha-tmpl/intranet-tmpl/prog/en/modules/about.tmpl
@@ -35,6 +35,11 @@
             <tr><th scope="row">Koha version: </th><td><!-- TMPL_VAR ESCAPE="HTML" name="kohaVersion" --></td></tr>
             <tr><th scope="row">OS version ('uname -a'): </th><td><!-- TMPL_VAR ESCAPE="HTML" name="osVersion" --></td></tr>
             <tr><th scope="row">Perl version: </th><td><!-- TMPL_VAR ESCAPE="HTML" name="perlVersion" --></td></tr>
+            <tr><th scope="row">Perl @INC: </th><td>
+                <!-- TMPL_LOOP name="perlIncPath" -->
+                    <!-- TMPL_VAR ESCAPE="HTML" name="perlinc" --> <br />
+                <!-- /TMPL_LOOP -->
+            </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>