View | Details | Raw Unified | Return to bug 23191
Collapse All | Expand All

(-)a/misc/devel/install_plugins.pl (-8 / +30 lines)
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
- 

Return to bug 23191