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

(-)a/C4/Auth.pm (+4 lines)
Lines 1243-1248 sub checkauth { Link Here
1243
                    my $is_sco_user = 0;
1243
                    my $is_sco_user = 0;
1244
                    if ( $query->param('sco_user_login') && ( $query->param('sco_user_login') eq '1' ) ){
1244
                    if ( $query->param('sco_user_login') && ( $query->param('sco_user_login') eq '1' ) ){
1245
                        $is_sco_user = 1;
1245
                        $is_sco_user = 1;
1246
                        my $sco_branch = $ENV{'URL_BRANCH'};
1247
                        if( defined $branches->{$sco_branch} ){
1248
                            $branchcode = $branches->{$sco_branch}->{'branchcode'};
1249
                            $branchname = $branches->{$sco_branch}->{'branchname'};
1246
                    }
1250
                    }
1247
1251
1248
                    $session->param( 'number',       $borrowernumber );
1252
                    $session->param( 'number',       $borrowernumber );
(-)a/Koha/Middleware/SetEnv.pm (-1 / +4 lines)
Lines 76-81 my $allowed_setenvs = qr/^( Link Here
76
sub call {
76
sub call {
77
    my ( $self, $env ) = @_;
77
    my ( $self, $env ) = @_;
78
    my $req = Plack::Request->new($env);
78
    my $req = Plack::Request->new($env);
79
    if( $env->{PATH_INFO} =~ /(\/opac\/sco)\/(.*)\/(.*)/ ){
80
        $env->{PATH_INFO} = "$1/$3";
81
        $env->{URL_BRANCH} = $2;
82
    }
79
83
80
    # First, we split the result only on unescaped commas.
84
    # First, we split the result only on unescaped commas.
81
    my @setenv_headers = split /(?<!\\),\s*/, $req->header('X-Koha-SetEnv') || '';
85
    my @setenv_headers = split /(?<!\\),\s*/, $req->header('X-Koha-SetEnv') || '';
82
- 

Return to bug 10060