Attachment #108510 for bug #24786

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




                           $userfirstname, $usersurname,
                           $userbranch, $branchname, $userflags,
                           $emailaddress, $shibboleth
                           $desk_id, $desk_name,
                           $register_id);

Establish a hash of user environment variables.


#'
sub set_userenv {
    shift @_;
    my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $shibboleth, $desk_id, $desk_name, $register_id)=
    map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here
    @_;
    my $var=$context->{"activeuser"} || '';

        "cardnumber" => $usercnum,
        "firstname"  => $userfirstname,
        "surname"    => $usersurname,

        #possibly a law problem
        "branch"       => $userbranch,
        "branchname"   => $branchname,
        "flags"        => $userflags,
        "emailaddress" => $emailaddress,
        "shibboleth"   => $shibboleth,
        "desk_id"      => $desk_id,
        "desk_name"    => $desk_name,
        "register_id"  => $register_id,
    };
    $context->{userenv}->{$var} = $cell;
    return $cell;




package Koha::Template::Plugin::Registers;

# Copyright PTFS Europe 2020

# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# Koha is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use Template::Plugin;
use base qw( Template::Plugin );

use C4::Koha;
use C4::Context;
use Koha::Cash::Registers;

sub session_register_id {
    my ($self) = @_;

    return C4::Context->userenv ?
        C4::Context->userenv->{'register_id'} :
        '';
}

sub session_register_name {
    my ($self) = @_;

    my $register = Koha::Cash::Registers->find($self->session_register_id);
    return $register ? $register->name : '';
}

=head2

    [% SET registers = Registers.all() %]
    [% SET registers = Registers.all( { branch => branchcode } );

Returns a list of all cash registers available that adhere to the passed filters.

=cut

sub all {
    my ( $self, $params ) = @_;

    my $registers = Koha::Cash::Registers->search()->unblessed();
    for my $register ( @{$registers} ) {
        $register->{selected} = ( defined( $self->session_register_id )
              && $register->{id} == $self->session_register_id ) ? 1 : 0;
    }

    return $registers;
}

1;




use C4::Auth qw/:DEFAULT get_session/;
use C4::Koha;
use Koha::BiblioFrameworks;
use Koha::Cash::Registers;
use Koha::Libraries;
use Koha::Desks;


my $sessionID = $query->cookie("CGISESSID");
my $session = get_session($sessionID);

my $branch              = $query->param('branch');
my $desk_id             = $query->param('desk_id');
my $register_id         = $query->param('register_id');
my $userenv_branch      = C4::Context->userenv->{'branch'} || '';
my $userenv_desk        = C4::Context->userenv->{'desk_id'} || '';
my $userenv_register_id = C4::Context->userenv->{'register_id'} || '';
my @updated;

# $session lines here are doing the updating
if ( $branch and my $library = Koha::Libraries->find($branch) ) {
    if (! $userenv_branch or $userenv_branch ne $branch ) {
        my $branchname = $library->branchname;
        $session->param('branchname', $branchname);         # update sesssion in DB
        $session->param('branch', $branch);                 # update sesssion in DB
        $session->flush();
        push @updated, {
            updated_branch => 1,
                old_branch => $userenv_branch,

            old_desk => $old_desk_name,
        };
    }
    if ( defined($userenv_register_id)
        && ( $userenv_register_id ne $register_id ) )
    {
        my $register = Koha::Cash::Registers->find($register_id);
        $template->param(LoginRegisterID   => $register_id);   # update template for new register
        $template->param(LoginRegisterName   => $register ? $register->name : '');   # update template for new register
        $session->param( 'register_id', $register_id );
        push @updated,
          {
            updated_register => 1,
            new_register     => $register ? $register->name : ''
          };
    }
    $session->flush();
} else {
    $branch = $userenv_branch;  # fallback value
    $desk_id = $userenv_desk;

    $_ or next;                   # disclude blanks
    $_ eq "branch"     and next;  # disclude branch
    $_ eq "desk_id"    and next;  # disclude desk_id
    $_ eq "register_id" and next;    # disclude register
    $_ eq "oldreferer" and next;  # disclude oldreferer
    push @recycle_loop, {
        param => $_,
        value => scalar $query->param($_),
      };
}

my $referer =  $query->param('oldreferer') || $ENV{HTTP_REFERER};

Lines 1-6 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc (-2 / +25 lines)
1	[% USE raw %]	1	[% USE raw %]
2	[% USE Branches %]	2	[% USE Branches %]
3	[% USE Desks %]	3	[% USE Desks %]
		4	[% USE Registers %]
4	[% USE Koha %]	5	[% USE Koha %]
5	<nav class="navbar">	6	<nav class="navbar">
6	<div class="navbar-header">	7	<div class="navbar-header">
Lines 96-102 Link Here
96	<span class="logged-in-desk-id content_hidden">[% Desks.GetLoggedInDeskId \| html %]</span>	97	<span class="logged-in-desk-id content_hidden">[% Desks.GetLoggedInDeskId \| html %]</span>
97	[% END %]	98	[% END %]
98	</strong>	99	</strong>
99	[% END %]	100	[% END %]
		101	[% IF Koha.Preference('UseCashRegisters') && !(Registers.session_register_name == '') %]
		102	<span class="separator">\|</span>
		103	<strong>
		104	<span class="logged-in-register-name">[% Registers.session_register_name \| html %]</span>
		105	<span class="logged-in-register-id content_hidden">[% Registers.session_register_id \| html %]</span>
		106	</strong>
		107	[% END %]
100	</span>	108	</span>
101	<b class="caret"></b>	109	<b class="caret"></b>
102	</a>	110	</a>
Lines 133-155 Link Here
133	[% IF !( Koha.Preference('IndependentBranches') && !CAN_user_superlibrarian && !CAN_user_editcatalogue_edit_catalogue ) %]	141	[% IF !( Koha.Preference('IndependentBranches') && !CAN_user_superlibrarian && !CAN_user_editcatalogue_edit_catalogue ) %]
134	<li role="separator" class="loggedin-menu-label divider"></li>	142	<li role="separator" class="loggedin-menu-label divider"></li>
135	<li>	143	<li>
136	[% IF Koha.Preference('UseCirculationDesks') %]	144	[% IF Koha.Preference('UseCirculationDesks') && Koha.Preference('UseCashRegisters') %]
		145	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set library, desk and register</a>
		146	[% ELSIF Koha.Preference('UseCirculationDesks') %]
137	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set library and desk</a>	147	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set library and desk</a>
		148	[% ELSIF Koha.Preference('UseCashRegisters') %]
		149	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set library and cash register</a>
138	[% ELSE %]	150	[% ELSE %]
139	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set library</a>	151	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set library</a>
140	[% END %]	152	[% END %]
141	</li>	153	</li>
		154	[% ELSIF Koha.Preference('UseCirculationDesks') && Koha.Preference('UseCashRegisters') %]
		155	<li role="separator" class="loggedin-menu-label divider"></li>
		156	<li>
		157	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set desk and cash register</a>
		158	</li>
142	[% ELSIF Koha.Preference('UseCirculationDesks') %]	159	[% ELSIF Koha.Preference('UseCirculationDesks') %]
143	<li role="separator" class="loggedin-menu-label divider"></li>	160	<li role="separator" class="loggedin-menu-label divider"></li>
144	<li>	161	<li>
145	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set desk</a>	162	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set desk</a>
146	</li>	163	</li>
		164	[% ELSIF Koha.Preference('UseCashRegisters') %]
		165	<li role="separator" class="loggedin-menu-label divider"></li>
		166	<li>
		167	<a class="toplinks" href="/cgi-bin/koha/circ/set-library.pl">Set cash register</a>
		168	</li>
147	[% END %]	169	[% END %]
148	[% IF EnableSearchHistory %]	170	[% IF EnableSearchHistory %]
149	<li>	171	<li>
150	<a class="toplinks" href="/cgi-bin/koha/catalogue/search-history.pl">Search history</a>	172	<a class="toplinks" href="/cgi-bin/koha/catalogue/search-history.pl">Search history</a>
151	</li>	173	</li>
152	[% END %]	174	[% END %]
		175
153	[% IF loggedinusernumber %]	176	[% IF loggedinusernumber %]
154	<li class ="toplinks-myaccount">	177	<li class ="toplinks-myaccount">
155	<a class="toplinks" href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% loggedinusernumber \| html %]">My account</a>	178	<a class="toplinks" href="/cgi-bin/koha/members/moremember.pl?borrowernumber=[% loggedinusernumber \| html %]">My account</a>




          [% END %]
        [% ELSE %]
            <option class="[% d.branchcode | html %]" value="[% d.desk_id | html %]" disabled hidden>[% d.desk_name | html %]</option>
        [% END %]
    [% END %]
[% END %]

[% BLOCK options_for_registers %]
    <!-- <option hidden disabled selected value> -- select an option -- </option> -->
    <option id="noregister" value="">-- None --</option>
    [% FOREACH r IN registers %]
        [% IF r.branch == branch %]
            [% IF r.selected %]
                <option class="[% r.branch | html %] [% IF r.branch_default %]default[% END %]" value="[% r.id | html %]" selected="selected">[% r.name | html %]</option>
            [% ELSE %]
                <option class="[% r.branch | html %] [% IF r.branch_default %]default[% END %]" value="[% r.id | html %]">[% r.name | html %]</option>
            [% END%]
        [% ELSE %]
            <option class="[% r.branch | html %] [% IF r.branch_default %]default[% END %]" value="[% r.id | html %]" disabled hidden>[% r.name | html %]</option>
        [% END %]
    [% END %]
[% END %]


Lines 2-7 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/set-library.tt (-4 / +54 lines)
2	[% USE Asset %]	2	[% USE Asset %]
3	[% USE Branches %]	3	[% USE Branches %]
4	[% USE Desks %]	4	[% USE Desks %]
		5	[% USE Registers %]
5	[% USE Koha %]	6	[% USE Koha %]
6	[% SET footerjs = 1 %]	7	[% SET footerjs = 1 %]
7	[% INCLUDE 'doc-head-open.inc' %]	8	[% INCLUDE 'doc-head-open.inc' %]
Lines 43-52 Link Here
43	<h2>Update succeeded</h2>	44	<h2>Update succeeded</h2>
44	Updated:<ul>	45	Updated:<ul>
45	[% FOREACH update IN updated %]	46	[% FOREACH update IN updated %]
46	[% IF ( update.updated_branch ) %]	47	[% IF ( update.updated_branch \|\| update.updated_desk \|\| update.updated_register ) %]
		48	[% IF ( updated.updated.branch ) %]
47	<li>Library: [% update.old_branch or "?" \| html %] ⇒ [% update.new_branch or "?" \| html %]</li>	49	<li>Library: [% update.old_branch or "?" \| html %] ⇒ [% update.new_branch or "?" \| html %]</li>
48	[% ELSIF (update.updated_desk) %]	50	[% END %]
		51	[% IF ( update.updated_desk ) %]
49	<li>Desk: [% update.old_desk or "?" \| html %] ⇒ [% LoginDeskname or "?" \| html %]</li>	52	<li>Desk: [% update.old_desk or "?" \| html %] ⇒ [% LoginDeskname or "?" \| html %]</li>
		53	[% END %]
		54	[% IF ( updated.updated_register ) %]
		55	<li>Register: [% updated.new_register \| html %]</li>
		56	[% END %]
50	[% ELSE %]	57	[% ELSE %]
51	<li>ERROR - unknown</li>	58	<li>ERROR - unknown</li>
52	[% END %]	59	[% END %]
Lines 91-96 Updated:<ul> Link Here
91	</ol>	98	</ol>
92	</fieldset>	99	</fieldset>
93	[% END %]	100	[% END %]
		101
		102	[% IF Koha.Preference('UseCashRegisters') %]
		103	<fieldset class="rows">
		104	<legend>Set cash register</legend>
		105	<ol>
		106	<li>
		107	<label for="register_id">Choose cash register:</label>
		108	<select name="register_id" id="register_id">
		109	[% PROCESS options_for_registers registers => Registers.all() %]
		110	</select>
		111	</li>
		112	</ol>
		113	</fieldset>
		114	[% END %]
		115
94	<fieldset class="action">	116	<fieldset class="action">
95	<input type="submit" value="Submit" />	117	<input type="submit" value="Submit" />
96	<a class="cancel" id="cancel_set_library" href="[% referer or '/cgi-bin/koha/circ/circulation.pl' %]">Cancel</a>	118	<a class="cancel" id="cancel_set_library" href="[% referer or '/cgi-bin/koha/circ/circulation.pl' %]">Cancel</a>
Lines 119-127 Updated:<ul> Link Here
119	</div> <!-- /.col-sm-12 -->	141	</div> <!-- /.col-sm-12 -->
120	</div> <!-- /.row -->	142	</div> <!-- /.row -->
121		143
122
123	[% MACRO jsinclude BLOCK %]	144	[% MACRO jsinclude BLOCK %]
124	[% Asset.js("js/desk_selection.js") \| $raw %]	145	[% Asset.js("js/desk_selection.js") \| $raw %]
		146	<script>
		147	$(document).ready(function() {
		148	$("#branch").on("change", function() {
		149	var selectedBranch = $("#branch").children(
		150	"option:selected").val();
		151
		152	$("#register_id").children().each(function() {
		153	// default to no-register
		154	if ($(this).is("#noregister")) {
		155	$(this).prop("selected", true)
		156	}
		157	// display branch registers
		158	else if ($(this).hasClass(selectedBranch)) {
		159	$(this).prop("disabled", false);
		160	$(this).show();
		161	// default to branch default if there is one
		162	if ($(this).hasClass("default")) {
		163	$(this).prop("selected", true)
		164	}
		165	}
		166	// hide non-branch registers
		167	else
		168	{
		169	$(this).hide();
		170	$(this).prop("disabled", true);
		171	}
		172	});
		173	});
		174	});
		175	</script>
125	[% END %]	176	[% END %]
126		177
127	[% INCLUDE 'intranet-bottom.inc' %]	178	[% INCLUDE 'intranet-bottom.inc' %]
128	-

Return to bug 24786

Lines 808-814 sub userenv { Link Here

(-)a/C4/Context.pm (-9 / +12 lines)
808	$userfirstname, $usersurname,	808	$userfirstname, $usersurname,
809	$userbranch, $branchname, $userflags,	809	$userbranch, $branchname, $userflags,
810	$emailaddress, $shibboleth	810	$emailaddress, $shibboleth
811	$desk_id, $desk_name);	811	$desk_id, $desk_name,
		812	$register_id);
812		813
813	Establish a hash of user environment variables.	814	Establish a hash of user environment variables.
814		815
Lines 819-825 set_userenv is called in Auth.pm Link Here
819	#'	820	#'
820	sub set_userenv {	821	sub set_userenv {
821	shift @_;	822	shift @_;
822	my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $shibboleth, $desk_id, $desk_name)=	823	my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $shibboleth, $desk_id, $desk_name, $register_id)=
823	map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here	824	map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here
824	@_;	825	@_;
825	my $var=$context->{"activeuser"} \|\| '';	826	my $var=$context->{"activeuser"} \|\| '';
Lines 829-842 sub set_userenv { Link Here
829	"cardnumber" => $usercnum,	830	"cardnumber" => $usercnum,
830	"firstname" => $userfirstname,	831	"firstname" => $userfirstname,
831	"surname" => $usersurname,	832	"surname" => $usersurname,
		833
832	#possibly a law problem	834	#possibly a law problem
833	"branch" => $userbranch,	835	"branch" => $userbranch,
834	"branchname" => $branchname,	836	"branchname" => $branchname,
835	"desk_id" => $desk_id,	837	"flags" => $userflags,
836	"desk_name" => $desk_name,	838	"emailaddress" => $emailaddress,
837	"flags" => $userflags,	839	"shibboleth" => $shibboleth,
838	"emailaddress" => $emailaddress,	840	"desk_id" => $desk_id,
839	"shibboleth" => $shibboleth,	841	"desk_name" => $desk_name,
		842	"register_id" => $register_id,
840	};	843	};
841	$context->{userenv}->{$var} = $cell;	844	$context->{userenv}->{$var} = $cell;
842	return $cell;	845	return $cell;

Lines 846-852 sub checkauth { Link Here

(-)a/C4/Auth.pm (-6 / +17 lines)
846	$session->param('surname'), $session->param('branch'),	846	$session->param('surname'), $session->param('branch'),
847	$session->param('branchname'), $session->param('flags'),	847	$session->param('branchname'), $session->param('flags'),
848	$session->param('emailaddress'), $session->param('shibboleth'),	848	$session->param('emailaddress'), $session->param('shibboleth'),
849	$session->param('desk_id'), $session->param('desk_name')	849	$session->param('desk_id'), $session->param('desk_name'),
		850	$session->param('register_id')
850	);	851	);
851	C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') );	852	C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') );
852	C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') );	853	C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') );
Lines 1066-1072 sub checkauth { Link Here
1066	C4::Context->_unset_userenv($sessionID);	1067	C4::Context->_unset_userenv($sessionID);
1067	}	1068	}
1068	my ( $borrowernumber, $firstname, $surname, $userflags,	1069	my ( $borrowernumber, $firstname, $surname, $userflags,
1069	$branchcode, $branchname, $emailaddress, $desk_id, $desk_name );	1070	$branchcode, $branchname, $emailaddress, $desk_id,
		1071	$desk_name, $register_id );
1070		1072
1071	if ( $return == 1 ) {	1073	if ( $return == 1 ) {
1072	my $select = "	1074	my $select = "
Lines 1115-1120 sub checkauth { Link Here
1115	my $desk = Koha::Desks->find($desk_id);	1117	my $desk = Koha::Desks->find($desk_id);
1116	$desk_name = $desk ? $desk->desk_name : '';	1118	$desk_name = $desk ? $desk->desk_name : '';
1117	}	1119	}
		1120	if ( $query->param('register_id') ) {
		1121	$register_id = $query->param('register_id');
		1122	}
1118	my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search };	1123	my $branches = { map { $_->branchcode => $_->unblessed } Koha::Libraries->search };
1119	if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) {	1124	if ( $type ne 'opac' and C4::Context->boolean_preference('AutoLocation') ) {
1120		1125
Lines 1158-1163 sub checkauth { Link Here
1158	$session->param( 'lasttime', time() );	1163	$session->param( 'lasttime', time() );
1159	$session->param( 'interface', $type);	1164	$session->param( 'interface', $type);
1160	$session->param( 'shibboleth', $shibSuccess );	1165	$session->param( 'shibboleth', $shibSuccess );
		1166	$session->param( 'register_id', $register_id );
1161	$debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch);	1167	$debug and printf STDERR "AUTH_4: (%s)\t%s %s - %s\n", map { $session->param($_) } qw(cardnumber firstname surname branch);
1162	}	1168	}
1163	$session->param('cas_ticket', $cas_ticket) if $cas_ticket;	1169	$session->param('cas_ticket', $cas_ticket) if $cas_ticket;
Lines 1167-1173 sub checkauth { Link Here
1167	$session->param('surname'), $session->param('branch'),	1173	$session->param('surname'), $session->param('branch'),
1168	$session->param('branchname'), $session->param('flags'),	1174	$session->param('branchname'), $session->param('flags'),
1169	$session->param('emailaddress'), $session->param('shibboleth'),	1175	$session->param('emailaddress'), $session->param('shibboleth'),
1170	$session->param('desk_id'), $session->param('desk_name')	1176	$session->param('desk_id'), $session->param('desk_name'),
		1177	$session->param('register_id')
1171	);	1178	);
1172		1179
1173	}	1180	}
Lines 1445-1451 sub check_api_auth { Link Here
1445	$session->param('surname'), $session->param('branch'),	1452	$session->param('surname'), $session->param('branch'),
1446	$session->param('branchname'), $session->param('flags'),	1453	$session->param('branchname'), $session->param('flags'),
1447	$session->param('emailaddress'), $session->param('shibboleth'),	1454	$session->param('emailaddress'), $session->param('shibboleth'),
1448	$session->param('desk_id'), $session->param('desk_name')	1455	$session->param('desk_id'), $session->param('desk_name'),
		1456	$session->param('register_id')
1449	);	1457	);
1450		1458
1451	my $ip = $session->param('ip');	1459	my $ip = $session->param('ip');
Lines 1604-1611 sub check_api_auth { Link Here
1604	$session->param('number'), $session->param('id'),	1612	$session->param('number'), $session->param('id'),
1605	$session->param('cardnumber'), $session->param('firstname'),	1613	$session->param('cardnumber'), $session->param('firstname'),
1606	$session->param('surname'), $session->param('branch'),	1614	$session->param('surname'), $session->param('branch'),
		1615	$session->param('branchname'), $session->param('flags'),
1607	$session->param('emailaddress'), $session->param('shibboleth'),	1616	$session->param('emailaddress'), $session->param('shibboleth'),
1608	$session->param('desk_id'), $session->param('desk_name')	1617	$session->param('desk_id'), $session->param('desk_name'),
		1618	$session->param('register_id')
1609	);	1619	);
1610	return ( "ok", $cookie, $sessionID );	1620	return ( "ok", $cookie, $sessionID );
1611	} else {	1621	} else {
Lines 1694-1700 sub check_cookie_auth { Link Here
1694	$session->param('surname'), $session->param('branch'),	1704	$session->param('surname'), $session->param('branch'),
1695	$session->param('branchname'), $session->param('flags'),	1705	$session->param('branchname'), $session->param('flags'),
1696	$session->param('emailaddress'), $session->param('shibboleth'),	1706	$session->param('emailaddress'), $session->param('shibboleth'),
1697	$session->param('desk_id'), $session->param('desk_name')	1707	$session->param('desk_id'), $session->param('desk_name'),
		1708	$session->param('register_id')
1698	);	1709	);
1699		1710
1700	my $ip = $session->param('ip');	1711	my $ip = $session->param('ip');

Line 0 Link Here

(-)a/Koha/Template/Plugin/Registers.pm (+65 lines)
		1	package Koha::Template::Plugin::Registers;
		2
		3	# Copyright PTFS Europe 2020
		4
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it
		8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but
		13	# WITHOUT ANY WARRANTY; without even the implied warranty of
		14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License
		18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		19
		20	use Modern::Perl;
		21
		22	use Template::Plugin;
		23	use base qw( Template::Plugin );
		24
		25	use C4::Koha;
		26	use C4::Context;
		27	use Koha::Cash::Registers;
		28
		29	sub session_register_id {
		30	my ($self) = @_;
		31
		32	return C4::Context->userenv ?
		33	C4::Context->userenv->{'register_id'} :
		34	'';
		35	}
		36
		37	sub session_register_name {
		38	my ($self) = @_;
		39
		40	my $register = Koha::Cash::Registers->find($self->session_register_id);
		41	return $register ? $register->name : '';
		42	}
		43
		44	=head2
		45
		46	[% SET registers = Registers.all() %]
		47	[% SET registers = Registers.all( { branch => branchcode } );
		48
		49	Returns a list of all cash registers available that adhere to the passed filters.
		50
		51	=cut
		52
		53	sub all {
		54	my ( $self, $params ) = @_;
		55
		56	my $registers = Koha::Cash::Registers->search()->unblessed();
		57	for my $register ( @{$registers} ) {
		58	$register->{selected} = ( defined( $self->session_register_id )
		59	&& $register->{id} == $self->session_register_id ) ? 1 : 0;
		60	}
		61
		62	return $registers;
		63	}
		64
65	1;

Lines 25-30 use C4::Output; Link Here

(-)a/circ/set-library.pl (-7 / +24 lines)
25	use C4::Auth qw/:DEFAULT get_session/;	25	use C4::Auth qw/:DEFAULT get_session/;
26	use C4::Koha;	26	use C4::Koha;
27	use Koha::BiblioFrameworks;	27	use Koha::BiblioFrameworks;
		28	use Koha::Cash::Registers;
28	use Koha::Libraries;	29	use Koha::Libraries;
29	use Koha::Desks;	30	use Koha::Desks;
30		31
Lines 42-60 my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user({ Link Here
42	my $sessionID = $query->cookie("CGISESSID");	43	my $sessionID = $query->cookie("CGISESSID");
43	my $session = get_session($sessionID);	44	my $session = get_session($sessionID);
44		45
45	my $branch = $query->param('branch' );	46	my $branch = $query->param('branch');
46	my $desk_id = $query->param('desk_id');	47	my $desk_id = $query->param('desk_id');
47	my $userenv_branch = C4::Context->userenv->{'branch'} \|\| '';	48	my $register_id = $query->param('register_id');
48	my $userenv_desk = C4::Context->userenv->{'desk_id'} \|\| '';	49	my $userenv_branch = C4::Context->userenv->{'branch'} \|\| '';
		50	my $userenv_desk = C4::Context->userenv->{'desk_id'} \|\| '';
		51	my $userenv_register_id = C4::Context->userenv->{'register_id'} \|\| '';
49	my @updated;	52	my @updated;
50		53
51	# $session lddines here are doing the updating	54	# $session lines here are doing the updating
52	if ( $branch and my $library = Koha::Libraries->find($branch) ) {	55	if ( $branch and my $library = Koha::Libraries->find($branch) ) {
53	if (! $userenv_branch or $userenv_branch ne $branch ) {	56	if (! $userenv_branch or $userenv_branch ne $branch ) {
54	my $branchname = $library->branchname;	57	my $branchname = $library->branchname;
55	$session->param('branchname', $branchname); # update sesssion in DB	58	$session->param('branchname', $branchname); # update sesssion in DB
56	$session->param('branch', $branch); # update sesssion in DB	59	$session->param('branch', $branch); # update sesssion in DB
57	$session->flush();
58	push @updated, {	60	push @updated, {
59	updated_branch => 1,	61	updated_branch => 1,
60	old_branch => $userenv_branch,	62	old_branch => $userenv_branch,
Lines 77-82 if ( $branch and my $library = Koha::Libraries->find($branch) ) { Link Here
77	old_desk => $old_desk_name,	79	old_desk => $old_desk_name,
78	};	80	};
79	}	81	}
		82	if ( defined($userenv_register_id)
		83	&& ( $userenv_register_id ne $register_id ) )
		84	{
		85	my $register = Koha::Cash::Registers->find($register_id);
		86	$template->param(LoginRegisterID => $register_id); # update template for new register
		87	$template->param(LoginRegisterName => $register ? $register->name : ''); # update template for new register
		88	$session->param( 'register_id', $register_id );
		89	push @updated,
		90	{
		91	updated_register => 1,
		92	new_register => $register ? $register->name : ''
		93	};
		94	}
		95	$session->flush();
80	} else {	96	} else {
81	$branch = $userenv_branch; # fallback value	97	$branch = $userenv_branch; # fallback value
82	$desk_id = $userenv_desk;	98	$desk_id = $userenv_desk;
Lines 89-99 foreach ($query->param()) { Link Here
89	$_ or next; # disclude blanks	105	$_ or next; # disclude blanks
90	$_ eq "branch" and next; # disclude branch	106	$_ eq "branch" and next; # disclude branch
91	$_ eq "desk_id" and next; # disclude desk_id	107	$_ eq "desk_id" and next; # disclude desk_id
		108	$_ eq "register_id" and next; # disclude register
92	$_ eq "oldreferer" and next; # disclude oldreferer	109	$_ eq "oldreferer" and next; # disclude oldreferer
93	push @recycle_loop, {	110	push @recycle_loop, {
94	param => $_,	111	param => $_,
95	value => scalar $query->param($_),	112	value => scalar $query->param($_),
96	};	113	};
97	}	114	}
98		115
99	my $referer = $query->param('oldreferer') \|\| $ENV{HTTP_REFERER};	116	my $referer = $query->param('oldreferer') \|\| $ENV{HTTP_REFERER};