| 
      
            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 50-63
          unless (@plugins) {
      
      
        Link Here
      
     | 
  
        
          | 50 | 
              else { | 
          59 | 
              else { | 
        
        
          | 51 | 
                  print "No plugins found at $plugins_dir\n";  | 
          60 | 
                  print "No plugins found at $plugins_dir\n";  | 
        
        
          | 52 | 
              }  | 
          61 | 
              }  | 
        
            
               | 
               | 
              62 | 
                  exit 0;  | 
            
        
          | 53 | 
          }  | 
          63 | 
          }  | 
        
        
          | 54 | 
           | 
          64 | 
           | 
        
          
            
              | 55 | 
              for my $plugin (@plugins) { | 
              65 | 
              for my $installed_plugin (@installed_plugins) { | 
            
            
              | 56 | 
                  print "Installed "  | 
              66 | 
                  if ( !exists( $existing_plugins->{ $installed_plugin->{metadata}->{name} } ) | 
            
            
              | 57 | 
                    . $plugin->{metadata}->{name} | 
              67 | 
                    )  | 
            
            
              | 58 | 
                    . " version "  | 
              68 | 
                  { | 
            
            
              | 59 | 
                    . $plugin->{metadata}->{version} . "\n"; | 
              69 | 
                      print "Installed "  | 
            
            
               | 
               | 
              70 | 
                        . $installed_plugin->{metadata}->{name} | 
            
            
              | 71 | 
                        . " version "  | 
            
            
              | 72 | 
                        . $installed_plugin->{metadata}->{version} . "\n"; | 
            
            
              | 73 | 
                  }  | 
            
            
              | 74 | 
                  elsif ( $existing_plugins->{ $installed_plugin->{metadata}->{name} } ne | 
            
            
              | 75 | 
                      $installed_plugin->{metadata}->{version} ) | 
            
            
              | 76 | 
                  { | 
            
            
              | 77 | 
                      print "Upgraded "  | 
            
            
              | 78 | 
                        . $installed_plugin->{metadata}->{name} | 
            
            
              | 79 | 
                        . " from version "  | 
            
            
              | 80 | 
                        . $existing_plugins->{ $installed_plugin->{metadata}->{name} } | 
            
            
              | 81 | 
                        . " to version "  | 
            
            
              | 82 | 
                        . $installed_plugin->{metadata}->{version} . "\n"; | 
            
            
              | 83 | 
                  }  | 
            
        
          | 60 | 
          }  | 
          84 | 
          }  | 
        
            
               | 
               | 
              85 | 
              print "All plugins successfully re-initialised\n";  | 
            
        
          | 61 | 
           | 
          86 | 
           | 
        
        
          | 62 | 
          =head1 NAME  | 
          87 | 
          =head1 NAME  | 
        
        
          | 63 | 
           | 
          88 | 
           | 
        
            
              | 64 | 
              -   | 
               | 
               |