Koha-community/Koha
15
7
Fork 0
Code Issues Releases Wiki Activity

improvement: on the About page, a caption was added to the table of Perl

Browse source 
modules and modules are now listed in alphabetic order.
This commit is contained in:
plg 2006-03-16 11:33:28 +00:00
parent 493d07e1c7
commit 3fb80a6343
2 changed files with 16 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
about.pl
View file

@ -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(

1
koha-tmpl/intranet-tmpl/prog/en/about.tmpl
View file

@ -15,6 +15,7 @@
</table>
<table>
<caption>Perl modules</caption>
<!-- TMPL_LOOP name="components" -->
<tr>
<th scope="row"><!-- TMPL_VAR NAME="name" --></th>