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

(-)a/plugins/plugins-home.pl (-3 / +4 lines)
Lines 23-28 use CGI qw ( -utf8 ); Link Here
23
23
24
use JSON qw(from_json);
24
use JSON qw(from_json);
25
use LWP::Simple qw(get);
25
use LWP::Simple qw(get);
26
use URI::Escape qw( uri_escape_utf8 );
26
27
27
use Koha::Plugins;
28
use Koha::Plugins;
28
use C4::Auth;
29
use C4::Auth;
Lines 72-80 if ($plugins_enabled) { Link Here
72
            $repos = { repo => [ $repos->{repo} ] };
73
            $repos = { repo => [ $repos->{repo} ] };
73
        }
74
        }
74
75
76
        my $plugin_search_uri = uri_escape_utf8( $plugin_search );
75
        foreach my $r ( @{ $repos->{repo} } ) {
77
        foreach my $r ( @{ $repos->{repo} } ) {
76
            if ( $r->{service} eq 'github' ) {
78
            if ( $r->{service} eq 'github' ) {
77
                my $url = "https://api.github.com/search/repositories?q=$plugin_search+user:$r->{org_name}+in:name,description";
79
                my $url = "https://api.github.com/search/repositories?q=$plugin_search_uri+user:$r->{org_name}+in:name,description";
78
                my $response = from_json( get($url) );
80
                my $response = from_json( get($url) );
79
                foreach my $result ( @{ $response->{items} } ) {
81
                foreach my $result ( @{ $response->{items} } ) {
80
                    next unless $result->{name} =~ /^koha-plugin-/;
82
                    next unless $result->{name} =~ /^koha-plugin-/;
Lines 91-97 if ($plugins_enabled) { Link Here
91
            }
93
            }
92
            elsif ( $r->{service} eq 'gitlab' ) {
94
            elsif ( $r->{service} eq 'gitlab' ) {
93
                my $org_name = $r->{org_name};
95
                my $org_name = $r->{org_name};
94
                my $url = "https://gitlab.com/api/v4/groups/$org_name/projects?with_issues_enabled=no\&with_merge_requests_enabled=no\&with_shared=no\&include_subgroups=yes\&search=koha-plugin+$plugin_search";
96
                my $url = "https://gitlab.com/api/v4/groups/$org_name/projects?with_issues_enabled=no\&with_merge_requests_enabled=no\&with_shared=no\&include_subgroups=yes\&search=koha-plugin+$plugin_search_uri";
95
                my $response = from_json( get($url) );
97
                my $response = from_json( get($url) );
96
                foreach my $result ( @{ $response } ) {
98
                foreach my $result ( @{ $response } ) {
97
                    next unless $result->{name} =~ /^koha-plugin-/;
99
                    next unless $result->{name} =~ /^koha-plugin-/;
98
- 

Return to bug 24633