Lines 39-47
unless ($plugins_enabled) {
Link Here
|
39 |
exit 1; |
39 |
exit 1; |
40 |
} |
40 |
} |
41 |
|
41 |
|
42 |
my @plugins = Koha::Plugins->new()->InstallPlugins(); |
|
|
43 |
|
42 |
|
44 |
unless (@plugins) { |
43 |
my @existing_plugins = Koha::Plugins->new()->GetPlugins({ |
|
|
44 |
all => 1, |
45 |
}); |
46 |
my $existing_plugins; |
47 |
for my $existing_plugin (@existing_plugins) { |
48 |
$existing_plugins->{ $existing_plugin->{metadata}->{name} } = |
49 |
$existing_plugin->{metadata}->{version}; |
50 |
} |
51 |
|
52 |
my @installed_plugins = Koha::Plugins->new()->InstallPlugins(); |
53 |
unless (@installed_plugins) { |
45 |
my $plugins_dir = C4::Context->config("pluginsdir"); |
54 |
my $plugins_dir = C4::Context->config("pluginsdir"); |
46 |
if ( ref($plugins_dir) eq 'ARRAY' ) { |
55 |
if ( ref($plugins_dir) eq 'ARRAY' ) { |
47 |
print "No plugins found\n"; |
56 |
print "No plugins found\n"; |
Lines 52-62
unless (@plugins) {
Link Here
|
52 |
} |
61 |
} |
53 |
} |
62 |
} |
54 |
|
63 |
|
55 |
for my $plugin (@plugins) { |
64 |
for my $installed_plugin (@installed_plugins) { |
56 |
print "Installed " |
65 |
if ( !exists( $existing_plugins->{ $installed_plugin->{metadata}->{name} } ) |
57 |
. $plugin->{metadata}->{name} |
66 |
) |
58 |
. " version " |
67 |
{ |
59 |
. $plugin->{metadata}->{version} . "\n"; |
68 |
print "Installed " |
|
|
69 |
. $installed_plugin->{metadata}->{name} |
70 |
. " version " |
71 |
. $installed_plugin->{metadata}->{version} . "\n"; |
72 |
} |
73 |
elsif ( $existing_plugins->{ $installed_plugin->{metadata}->{name} } ne |
74 |
$installed_plugin->{metadata}->{version} ) |
75 |
{ |
76 |
print "Upgraded " |
77 |
. $installed_plugin->{metadata}->{name} |
78 |
. " from version " |
79 |
. $existing_plugins->{ $installed_plugin->{metadata}->{name} } |
80 |
. " to version " |
81 |
. $installed_plugin->{metadata}->{version} . "\n"; |
82 |
} |
60 |
} |
83 |
} |
61 |
|
84 |
|
62 |
=head1 NAME |
85 |
=head1 NAME |
63 |
- |
|
|