- kohaVersion => $kohaVersion,
- osVersion => $osVersion,
- perlVersion => $perlVersion,
- mysqlVersion => $mysqlVersion,
- apacheVersion => $apacheVersion,
- );
+ kohaVersion => $kohaVersion,
+ osVersion => $osVersion,
+ perlVersion => $perlVersion,
+ mysqlVersion => $mysqlVersion,
+ apacheVersion => $apacheVersion,
+ zebraVersion => $zebraVersion,
+);
+my @component_names =
+ 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 Net::Z3950::ZOOM
+ Date::Calc
+ /;
+
+my @components = ();
+
+foreach my $component ( sort @component_names ) {
+ 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 );