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

(-)a/C4/Auth.pm (-6 / +10 lines)
Lines 38-43 use Koha::Checkouts; Link Here
38
use Koha::DateUtils qw(dt_from_string);
38
use Koha::DateUtils qw(dt_from_string);
39
use Koha::Library::Groups;
39
use Koha::Library::Groups;
40
use Koha::Libraries;
40
use Koha::Libraries;
41
use Koha::Cash::Registers;
41
use Koha::Desks;
42
use Koha::Desks;
42
use Koha::Patrons;
43
use Koha::Patrons;
43
use Koha::Patron::Consents;
44
use Koha::Patron::Consents;
Lines 868-874 sub checkauth { Link Here
868
                $session->param('branchname'),   $session->param('flags'),
869
                $session->param('branchname'),   $session->param('flags'),
869
                $session->param('emailaddress'), $session->param('shibboleth'),
870
                $session->param('emailaddress'), $session->param('shibboleth'),
870
                $session->param('desk_id'),      $session->param('desk_name'),
871
                $session->param('desk_id'),      $session->param('desk_name'),
871
                $session->param('register_id')
872
                $session->param('register_id'),  $session->param('register_name')
872
            );
873
            );
873
            C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') );
874
            C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') );
874
            C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') );
875
            C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') );
Lines 1091-1097 sub checkauth { Link Here
1091
                }
1092
                }
1092
                my ( $borrowernumber, $firstname, $surname, $userflags,
1093
                my ( $borrowernumber, $firstname, $surname, $userflags,
1093
                    $branchcode, $branchname, $emailaddress, $desk_id,
1094
                    $branchcode, $branchname, $emailaddress, $desk_id,
1094
                    $desk_name, $register_id );
1095
                    $desk_name, $register_id, $register_name );
1095
1096
1096
                if ( $return == 1 ) {
1097
                if ( $return == 1 ) {
1097
                    my $select = "
1098
                    my $select = "
Lines 1142-1147 sub checkauth { Link Here
1142
                    }
1143
                    }
1143
                    if ( $query->param('register_id') ) {
1144
                    if ( $query->param('register_id') ) {
1144
                        $register_id = $query->param('register_id');
1145
                        $register_id = $query->param('register_id');
1146
                        my $register = Koha::Cash::Registers->find($register_id);
1147
                        $register_name = $register ? $register->name : '';
1145
                    }
1148
                    }
1146
                    my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search };
1149
                    my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search };
1147
                    if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) {
1150
                    if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) {
Lines 1188-1193 sub checkauth { Link Here
1188
                    $session->param( 'interface',    $type);
1191
                    $session->param( 'interface',    $type);
1189
                    $session->param( 'shibboleth',   $shibSuccess );
1192
                    $session->param( 'shibboleth',   $shibSuccess );
1190
                    $session->param( 'register_id',  $register_id );
1193
                    $session->param( 'register_id',  $register_id );
1194
                    $session->param( 'register_name',  $register_name );
1191
                    $debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch);
1195
                    $debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch);
1192
                }
1196
                }
1193
                $session->param('cas_ticket', $cas_ticket) if $cas_ticket;
1197
                $session->param('cas_ticket', $cas_ticket) if $cas_ticket;
Lines 1198-1204 sub checkauth { Link Here
1198
                    $session->param('branchname'),   $session->param('flags'),
1202
                    $session->param('branchname'),   $session->param('flags'),
1199
                    $session->param('emailaddress'), $session->param('shibboleth'),
1203
                    $session->param('emailaddress'), $session->param('shibboleth'),
1200
                    $session->param('desk_id'),      $session->param('desk_name'),
1204
                    $session->param('desk_id'),      $session->param('desk_name'),
1201
                    $session->param('register_id')
1205
                    $session->param('register_id'),  $session->param('register_name')
1202
                );
1206
                );
1203
1207
1204
            }
1208
            }
Lines 1478-1484 sub check_api_auth { Link Here
1478
                $session->param('branchname'),   $session->param('flags'),
1482
                $session->param('branchname'),   $session->param('flags'),
1479
                $session->param('emailaddress'), $session->param('shibboleth'),
1483
                $session->param('emailaddress'), $session->param('shibboleth'),
1480
                $session->param('desk_id'),      $session->param('desk_name'),
1484
                $session->param('desk_id'),      $session->param('desk_name'),
1481
                $session->param('register_id')
1485
                $session->param('register_id'),  $session->param('register_name')
1482
            );
1486
            );
1483
1487
1484
            my $ip       = $session->param('ip');
1488
            my $ip       = $session->param('ip');
Lines 1642-1648 sub check_api_auth { Link Here
1642
                $session->param('branchname'),   $session->param('flags'),
1646
                $session->param('branchname'),   $session->param('flags'),
1643
                $session->param('emailaddress'), $session->param('shibboleth'),
1647
                $session->param('emailaddress'), $session->param('shibboleth'),
1644
                $session->param('desk_id'),      $session->param('desk_name'),
1648
                $session->param('desk_id'),      $session->param('desk_name'),
1645
                $session->param('register_id')
1649
                $session->param('register_id'),  $session->param('register_name')
1646
            );
1650
            );
1647
            return ( "ok", $cookie, $sessionID );
1651
            return ( "ok", $cookie, $sessionID );
1648
        } else {
1652
        } else {
Lines 1732-1738 sub check_cookie_auth { Link Here
1732
            $session->param('branchname'),   $session->param('flags'),
1736
            $session->param('branchname'),   $session->param('flags'),
1733
            $session->param('emailaddress'), $session->param('shibboleth'),
1737
            $session->param('emailaddress'), $session->param('shibboleth'),
1734
            $session->param('desk_id'),      $session->param('desk_name'),
1738
            $session->param('desk_id'),      $session->param('desk_name'),
1735
            $session->param('register_id')
1739
            $session->param('register_id'),  $session->param('register_name')
1736
        );
1740
        );
1737
1741
1738
        my $ip       = $session->param('ip');
1742
        my $ip       = $session->param('ip');
(-)a/C4/Context.pm (-10 / +11 lines)
Lines 806-812 sub userenv { Link Here
806
                           $userbranch, $branchname, $userflags,
806
                           $userbranch, $branchname, $userflags,
807
                           $emailaddress, $shibboleth
807
                           $emailaddress, $shibboleth
808
                           $desk_id, $desk_name,
808
                           $desk_id, $desk_name,
809
                           $register_id);
809
                           $register_id, $register_name);
810
810
811
Establish a hash of user environment variables.
811
Establish a hash of user environment variables.
812
812
Lines 817-823 set_userenv is called in Auth.pm Link Here
817
#'
817
#'
818
sub set_userenv {
818
sub set_userenv {
819
    shift @_;
819
    shift @_;
820
    my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $shibboleth, $desk_id, $desk_name, $register_id)=
820
    my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $shibboleth, $desk_id, $desk_name, $register_id, $register_name)=
821
    map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here
821
    map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here
822
    @_;
822
    @_;
823
    my $var=$context->{"activeuser"} || '';
823
    my $var=$context->{"activeuser"} || '';
Lines 829-842 sub set_userenv { Link Here
829
        "surname"    => $usersurname,
829
        "surname"    => $usersurname,
830
830
831
        #possibly a law problem
831
        #possibly a law problem
832
        "branch"       => $userbranch,
832
        "branch"        => $userbranch,
833
        "branchname"   => $branchname,
833
        "branchname"    => $branchname,
834
        "flags"        => $userflags,
834
        "flags"         => $userflags,
835
        "emailaddress" => $emailaddress,
835
        "emailaddress"  => $emailaddress,
836
        "shibboleth"   => $shibboleth,
836
        "shibboleth"    => $shibboleth,
837
        "desk_id"      => $desk_id,
837
        "desk_id"       => $desk_id,
838
        "desk_name"    => $desk_name,
838
        "desk_name"     => $desk_name,
839
        "register_id"  => $register_id,
839
        "register_id"   => $register_id,
840
        "register_name" => $register_name
840
    };
841
    };
841
    $context->{userenv}->{$var} = $cell;
842
    $context->{userenv}->{$var} = $cell;
842
    return $cell;
843
    return $cell;
(-)a/Koha/Template/Plugin/Registers.pm (-2 / +3 lines)
Lines 37-44 sub session_register_id { Link Here
37
sub session_register_name {
37
sub session_register_name {
38
    my ($self) = @_;
38
    my ($self) = @_;
39
39
40
    my $register = Koha::Cash::Registers->find($self->session_register_id);
40
    return C4::Context->userenv
41
    return $register ? $register->name : '';
41
      ? C4::Context->userenv->{'register_name'}
42
      : '';
42
}
43
}
43
44
44
=head2
45
=head2
(-)a/circ/set-library.pl (-3 / +3 lines)
Lines 81-94 if ( $branch and my $library = Koha::Libraries->find($branch) ) { Link Here
81
    if ( defined($userenv_register_id)
81
    if ( defined($userenv_register_id)
82
        && ( $userenv_register_id ne $register_id ) )
82
        && ( $userenv_register_id ne $register_id ) )
83
    {
83
    {
84
        my $old_register_name = C4::Context->userenv->{'register_name'} || '';
84
        my $register = Koha::Cash::Registers->find($register_id);
85
        my $register = Koha::Cash::Registers->find($register_id);
85
        $template->param(LoginRegisterID   => $register_id);   # update template for new register
86
        $template->param(LoginRegisterName   => $register ? $register->name : '');   # update template for new register
87
        $session->param( 'register_id', $register_id );
86
        $session->param( 'register_id', $register_id );
87
        $session->param( 'register_name', $register ? $register->name : '' );
88
        push @updated,
88
        push @updated,
89
          {
89
          {
90
            updated_register => 1,
90
            updated_register => 1,
91
            new_register     => $register ? $register->name : ''
91
            old_register     => $old_register_name
92
          };
92
          };
93
    }
93
    }
94
    $session->flush();
94
    $session->flush();
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/set-library.tt (-3 / +2 lines)
Lines 45-58 Link Here
45
Updated:<ul>
45
Updated:<ul>
46
    [% FOREACH update IN updated %]
46
    [% FOREACH update IN updated %]
47
    [% IF ( update.updated_branch || update.updated_desk ||  update.updated_register ) %]
47
    [% IF ( update.updated_branch || update.updated_desk ||  update.updated_register ) %]
48
        [% IF ( updated.updated.branch ) %]
48
        [% IF ( updated.updated_branch ) %]
49
        <li>Library: [% update.old_branch or "?" | html %] &rArr; [% update.new_branch or "?" | html %]</li>
49
        <li>Library: [% update.old_branch or "?" | html %] &rArr; [% update.new_branch or "?" | html %]</li>
50
        [% END %]
50
        [% END %]
51
        [% IF ( update.updated_desk ) %]
51
        [% IF ( update.updated_desk ) %]
52
        <li>Desk: [% update.old_desk or "?" | html %] &rArr; [% LoginDeskname or "?" | html %]</li>
52
        <li>Desk: [% update.old_desk or "?" | html %] &rArr; [% LoginDeskname or "?" | html %]</li>
53
        [% END %]
53
        [% END %]
54
        [% IF ( updated.updated_register ) %]
54
        [% IF ( updated.updated_register ) %]
55
        <li>Register: [% updated.new_register | html %]</li>
55
        <li>Register: [% updated.old_register or "?" | html %] &rArr; [% Registers.session_register_name or "?" | html %]</li>
56
        [% END %]
56
        [% END %]
57
    [% ELSE %]
57
    [% ELSE %]
58
        <li>ERROR - unknown</li>
58
        <li>ERROR - unknown</li>
59
- 

Return to bug 24786