From 3fb80a634332f0e5ebb971c698eb3c989e777ac9 Mon Sep 17 00:00:00 2001 From: plg Date: Thu, 16 Mar 2006 11:33:28 +0000 Subject: [PATCH] improvement: on the About page, a caption was added to the table of Perl modules and modules are now listed in alphabetic order. --- about.pl | 26 +++++++++++++--------- koha-tmpl/intranet-tmpl/prog/en/about.tmpl | 1 + 2 files changed, 16 insertions(+), 11 deletions(-) diff --git a/about.pl b/about.pl index e4c1d7ce2e..cae86ff576 100755 --- a/about.pl +++ b/about.pl @@ -38,15 +38,17 @@ $template->param( 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 Smart::Comments ZOOM + /; 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 - /) { +foreach my $component (sort @component_names) { my $version; if (eval "require $component") { $version = $component->VERSION; @@ -58,11 +60,13 @@ foreach my $component (qw/MARC::File::XML MARC::Charset Class::Accessor $version = 'module is missing'; } - push @components, + push ( + @components, { - name => $component, - version => $version, - }; + name => $component, + version => $version, + } + ); } $template->param( diff --git a/koha-tmpl/intranet-tmpl/prog/en/about.tmpl b/koha-tmpl/intranet-tmpl/prog/en/about.tmpl index 8d232ba7d8..b81bf349b4 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/about.tmpl +++ b/koha-tmpl/intranet-tmpl/prog/en/about.tmpl @@ -15,6 +15,7 @@ + -- 2.39.5
Perl modules