Using destination parameter to return users to circulation if they clicked the 'edit...

[koha.git] / about.pl

diff --git a/about.pl b/about.pl
index 5c58428..00b715e 100755 (executable)
--- a/about.pl
+++ b/about.pl
@@ -11,7 +11,7 @@ use CGI;
 
 my $query = new CGI;
 my ($template, $loggedinuser, $cookie)
-    = get_template_and_user({template_name => "intranet-main.tmpl",
+    = get_template_and_user({template_name => "about.tmpl",
                             query => $query,
                             type => "intranet",
                             authnotrequired => 0,
@@ -20,16 +20,17 @@ my ($template, $loggedinuser, $cookie)
                             });
 
 my $kohaVersion = C4::Context->config("kohaversion");
-my $osVersion = `/bin/uname -a`;
-my $perlVersion = `/usr/bin/perl -v`;
-my $mysqlVersion = "unknown";
-my $apacheVersion =  "unknown";
+my $osVersion = `uname -a`;
+my $perlVersion = $];
+my $mysqlVersion = `mysql -V`;
+my $apacheVersion =  `httpd -v`;
 
-$template>param(
-                        osVersion          => $osVersion,
-                        perlVersion        => $perlVersion,
-                        mysqlVersion       => $mysqlVersion,
-                        apacheVersion      => $apacheVersion,
+$template->param(
+                                       kohaVersion => $kohaVersion,
+                                       osVersion          => $osVersion,
+                                       perlVersion        => $perlVersion,
+                                       mysqlVersion       => $mysqlVersion,
+                                       apacheVersion      => $apacheVersion,
                );
 
 output_html_with_http_headers $query, $cookie, $template->output;