Attachment #101564 for bug #24201

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




use Koha::DateUtils qw(dt_from_string);
use Koha::Library::Groups;
use Koha::Libraries;
use Koha::Desks;
use Koha::Patrons;
use Koha::Patron::Consents;
use POSIX qw/strftime/;

        OpenLibraryCovers                                                  => C4::Context->preference("OpenLibraryCovers"),
        KohaAdminEmailAddress                                              => "" . C4::Context->preference("KohaAdminEmailAddress"),
        LoginBranchcode => ( C4::Context->userenv ? C4::Context->userenv->{"branch"}    : undef ),
        LoginDeskname                                                      => ( C4::Context->userenv ? C4::Context->userenv->{"desk_name"} : undef ),
        LoginFirstname  => ( C4::Context->userenv ? C4::Context->userenv->{"firstname"} : "Bel" ),
        LoginSurname    => C4::Context->userenv ? C4::Context->userenv->{"surname"}      : "Inconnu",
        emailaddress    => C4::Context->userenv ? C4::Context->userenv->{"emailaddress"} : undef,

            IntranetmainUserblock                                                      => C4::Context->preference("IntranetmainUserblock"),
            LibraryName                                                                => C4::Context->preference("LibraryName"),
            LoginBranchname                                                            => ( C4::Context->userenv ? C4::Context->userenv->{"branchname"} : undef ),
            LoginDeskname                                                              => ( C4::Context->userenv ? C4::Context->userenv->{"desk_name"} : undef ),
            advancedMARCEditor                                                         => C4::Context->preference("advancedMARCEditor"),
            canreservefromotherbranches                                                => C4::Context->preference('canreservefromotherbranches'),
            intranetcolorstylesheet                                                    => C4::Context->preference("intranetcolorstylesheet"),

            LibraryName                           => "" . C4::Context->preference("LibraryName"),
            LibraryNameTitle                      => "" . $LibraryNameTitle,
            LoginBranchname                       => C4::Context->userenv ? C4::Context->userenv->{"branchname"} : "",
            LoginDeskname                         => C4::Context->userenv ? C4::Context->userenv->{"desk_name"} : "",
            OPACAmazonCoverImages                 => C4::Context->preference("OPACAmazonCoverImages"),
            OPACFRBRizeEditions                   => C4::Context->preference("OPACFRBRizeEditions"),
            OpacHighlightedWords                  => C4::Context->preference("OpacHighlightedWords"),

                $session->param('surname'),      $session->param('branch'),
                $session->param('branchname'),   $session->param('flags'),
                $session->param('emailaddress'), $session->param('branchprinter'),
                $session->param('shibboleth'),   $session->param('desk_id'),
                $session->param('desk_name'),
            );
            C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') );
            C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') );

                    $session->param('surname'),      $session->param('branch'),
                    $session->param('branchname'),   $session->param('flags'),
                    $session->param('emailaddress'), $session->param('branchprinter'),
                    $session->param('shibboleth'), $session->param('desk_id'),
                    $session->param('desk_name'),
                );

            }

                $session->param('cardnumber'),   $session->param('firstname'),
                $session->param('surname'),      $session->param('branch'),
                $session->param('branchname'),   $session->param('flags'),
                $session->param('emailaddress'), $session->param('branchprinter'),
                $session->param('desk_id'),      $session->param('desk_name'),
            );

            my $ip       = $session->param('ip');

                $session->param('cardnumber'),   $session->param('firstname'),
                $session->param('surname'),      $session->param('branch'),
                $session->param('branchname'),   $session->param('flags'),
                $session->param('emailaddress'), $session->param('branchprinter'),
                $session->param('shibboleth'), $session->param('desk_id'),
                $session->param('desk_name'),
            );
            return ( "ok", $cookie, $sessionID );
        } else {

            $session->param('cardnumber'),   $session->param('firstname'),
            $session->param('surname'),      $session->param('branch'),
            $session->param('branchname'),   $session->param('flags'),
            $session->param('emailaddress'), $session->param('branchprinter'),
            $session->param('shibboleth'),   $session->param('desk_id'),
            $session->param('desk_name'),
        );

        my $ip       = $session->param('ip');

Lines 856-862 sub userenv { Link Here

(-)a/C4/Context.pm (-2 / +5 lines)
856	C4::Context->set_userenv($usernum, $userid, $usercnum,	856	C4::Context->set_userenv($usernum, $userid, $usercnum,
857	$userfirstname, $usersurname,	857	$userfirstname, $usersurname,
858	$userbranch, $branchname, $userflags,	858	$userbranch, $branchname, $userflags,
859	$emailaddress, $branchprinter, $shibboleth);	859	$emailaddress, $branchprinter, $shibboleth
		860	$desk_id, $desk_name);
860		861
861	Establish a hash of user environment variables.	862	Establish a hash of user environment variables.
862		863
Lines 867-873 set_userenv is called in Auth.pm Link Here
867	#'	868	#'
868	sub set_userenv {	869	sub set_userenv {
869	shift @_;	870	shift @_;
870	my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $branchprinter, $shibboleth)=	871	my ($usernum, $userid, $usercnum, $userfirstname, $usersurname, $userbranch, $branchname, $userflags, $emailaddress, $branchprinter, $shibboleth, $desk_id, $desk_name)=
871	map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here	872	map { Encode::is_utf8( $_ ) ? $_ : Encode::decode('UTF-8', $_) } # CGI::Session doesn't handle utf-8, so we decode it here
872	@_;	873	@_;
873	my $var=$context->{"activeuser"} \|\| '';	874	my $var=$context->{"activeuser"} \|\| '';
Lines 880-885 sub set_userenv { Link Here
880	#possibly a law problem	881	#possibly a law problem
881	"branch" => $userbranch,	882	"branch" => $userbranch,
882	"branchname" => $branchname,	883	"branchname" => $branchname,
		884	"desk_id" => $desk_id,
		885	"desk_name" => $desk_name,
883	"flags" => $userflags,	886	"flags" => $userflags,
884	"emailaddress" => $emailaddress,	887	"emailaddress" => $emailaddress,
885	"branchprinter" => $branchprinter,	888	"branchprinter" => $branchprinter,




package Koha::Template::Plugin::Desks;

# Copyright (C) BULAC 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::Desks;

=head1 NAME

Koha::Template::Plugin::Desks - A module for dealing with desks in templates

=head1 DESCRIPTION

This plugin contains getters functions, to fetch all desks a library
got or the current one.

=head2 Methods

=head3 GetName

[% Desk.GetName(desk_id) %]

return desk name or empty string

=cut

sub GetName {
    my ( $self, $desk_id ) = @_;
    my $d = Koha::Desks->search( { desk_id => $desk_id} )->unblessed;
    return @$d ? $d->{'desk_name'} : q{};
}

=head3 GetLoggedInDeskId

[% Desks.GetLoggedInDeskId %]

return the desk name that is attached to the session or empty string

=cut

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

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

=head3 all

[% Desks.all %]

returns all desks existing at the library

=cut

sub all {
    my ( $self, $params ) = @_;
    my $selected = $params->{selected};
    my $unfiltered = $params->{unfiltered} || 0;
    my $search_params = $params->{search_params} || {};

    if ( !$unfiltered ) {
        $search_params->{only_from_group} = $params->{only_from_group} || 0;
    }

    my $desks = $unfiltered
      ? Koha::Desks->search( $search_params, { order_by => ['desk_name'] } )->unblessed
      : Koha::Desks->search_filtered( $search_params, { order_by => ['desk_name'] } )->unblessed;

    for my $d ( @$desks ) {
        if (       defined $selected and $d->{desk_id} eq $selected
            or not defined $selected and C4::Context->userenv and $d->{branchcode} eq ( C4::Context->userenv->{desk_id} // q{} )
        ) {
            $d->{selected} = 1;
        }
    }

    return $desks;
}

=head3 defined

[% Desks.defined %]

return 1 if there is at least a desk defined for the library.

=cut

sub defined {
    my ( $self ) = @_;
    my $desks = Koha::Desks->search()->unblessed;
    if (@$desks) {
        return 1 ;
    }
    else {
        return 0;
    }
}

1;




#!/usr/bin/perl

# Copyright (C) 2020 BULAC
#
# 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 CGI qw ( -utf8 );

use C4::Context;
use C4::Output;
use C4::Auth qw/:DEFAULT get_session/;
use C4::Koha;
use Koha::Desks;

my $query = CGI->new();

my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
    {
        template_name   => "circ/selectdesk.tt",
        query           => $query,
        type            => "intranet",
        debug           => 1,
        authnotrequired => 0,
        flagsrequired   => { catalogue => 1, },
    }
);

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

my $branch = C4::Context->userenv->{'branch'};
my $searchfield = $query->param('searchfield');
my $desks_lists;
if ($branch) {
    $desks_lists = Koha::Desks->search( { branchcode => $branch } )->unblessed;
}
else {
    $desks_lists = Koha::Desks->search( )->unblessed;
}

my $desk_id = $query->param('desk_id');

my $userenv_desk = C4::Context->userenv->{'desk_id'} || '';
my $updated = '';

if ($desk_id) {
    if ( !$userenv_desk or $userenv_desk ne $desk_id ) {
        my $desk = Koha::Desks->find( { desk_id => $desk_id } );
        $template->param( LoginDeskname => $desk->desk_name );
        $template->param( LoginDeskid => $desk->desk_id );
        $session->param( desk_name => $desk->desk_name );
        $session->param( desk_id => $desk->desk_id );
        $updated = 1;
    }
}
else {
    $desk_id = $userenv_desk;
}

$template->param( updated => \$updated );

my $referer = $query->param('oldreferer') || $ENV{HTTP_REFERER};
if ($updated) {
    print $query->redirect( $referer || '/cgi-bin/koha/mainpage.pl' );
}

$template->param(
    referer    => $referer,
    desks_list => $desks_lists,
    desk_id     => $desk_id,
);

output_html_with_http_headers $query, $cookie, $template->output;

Lines 1-4 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/circ-nav.inc (+4 lines)
1	[% USE Branches %]	1	[% USE Branches %]
		2	[% USE Desks %]
2	<div id="navmenu">	3	<div id="navmenu">
3	<div id="navmenulist">	4	<div id="navmenulist">
4		5
Lines 17-22 Link Here
17	[% IF ( AutoLocation ) %][% ELSE %][% IF ( IndependentBranches ) %][% ELSE %]	18	[% IF ( AutoLocation ) %][% ELSE %][% IF ( IndependentBranches ) %][% ELSE %]
18	<li><a href="/cgi-bin/koha/circ/selectbranchprinter.pl">Set library</a></li>	19	<li><a href="/cgi-bin/koha/circ/selectbranchprinter.pl">Set library</a></li>
19	[% END %][% END %]	20	[% END %][% END %]
		21	[% IF ( Desks.defined ) %]
		22	<li><a href="/cgi-bin/koha/circ/selectdesk.pl">Set desk</a></li>
		23	[% END %]
20	[% IF ( fast_cataloging ) %][% IF ( CAN_user_editcatalogue_fast_cataloging ) %]	24	[% IF ( fast_cataloging ) %][% IF ( CAN_user_editcatalogue_fast_cataloging ) %]
21	<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?frameworkcode=FA">Fast cataloging</a></li>	25	<li><a href="/cgi-bin/koha/cataloguing/addbiblio.pl?frameworkcode=FA">Fast cataloging</a></li>
22	[% END %][% END %]	26	[% END %][% END %]

Lines 1-5 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc (+15 lines)
1	[% USE raw %]	1	[% USE raw %]
2	[% USE Branches %]	2	[% USE Branches %]
		3	[% USE Desks %]
3	[% USE Koha %]	4	[% USE Koha %]
4	<nav class="navbar">	5	<nav class="navbar">
5	<div class="navbar-header">	6	<div class="navbar-header">
Lines 86-91 Link Here
86	[% END %]	87	[% END %]
87	</strong>	88	</strong>
88	[% END %]	89	[% END %]
		90	<span class="separator">\|</span>
		91	<strong>
		92	[% IF ( LoginDeskname == '' AND Desks.defined ) %]
		93	<span class="logged-in-desk-name">NO DESK SET</span>
		94	[% ELSIF ( LoginDeskname != '' ) %]
		95	<span class="logged-in-desk-name">[% LoginDeskname \| html %]</span>
		96	<span class="logged-in-desk-id content_hidden">[% Desks.GetLoggedInDeskId \| html %]</span>
		97	[% END %]
		98	</strong>
89	</span>	99	</span>
90	<b class="caret"></b>	100	<b class="caret"></b>
91	</a>	101	</a>
Lines 123-128 Link Here
123	<a class="toplinks" href="/cgi-bin/koha/circ/selectbranchprinter.pl">Set library</a>	133	<a class="toplinks" href="/cgi-bin/koha/circ/selectbranchprinter.pl">Set library</a>
124	</li>	134	</li>
125	[% END %]	135	[% END %]
		136	[% IF Desks.defined %]
		137	<li>
		138	<a class="toplinks" href="/cgi-bin/koha/circ/selectdesk.pl">Set desk</a>
		139	</li>
		140	[% END %]
126	[% IF EnableSearchHistory %]	141	[% IF EnableSearchHistory %]
127	<li>	142	<li>
128	<a class="toplinks" href="/cgi-bin/koha/catalogue/search-history.pl">Search history</a>	143	<a class="toplinks" href="/cgi-bin/koha/catalogue/search-history.pl">Search history</a>

Lines 1-6 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/circ/circulation-home.tt (+6 lines)
1	[% USE raw %]	1	[% USE raw %]
2	[% USE Koha %]	2	[% USE Koha %]
3	[% USE Branches %]	3	[% USE Branches %]
		4	[% USE Desks %]
4	[% INCLUDE 'doc-head-open.inc' %]	5	[% INCLUDE 'doc-head-open.inc' %]
5	<title>Koha &rsaquo; Circulation</title>	6	<title>Koha &rsaquo; Circulation</title>
6	[% INCLUDE 'doc-head-close.inc' %]	7	[% INCLUDE 'doc-head-close.inc' %]
Lines 33-38 Link Here
33	<a class="circ-button" href="/cgi-bin/koha/circ/selectbranchprinter.pl"><i class="fa fa-home"></i> Set library</a>	34	<a class="circ-button" href="/cgi-bin/koha/circ/selectbranchprinter.pl"><i class="fa fa-home"></i> Set library</a>
34	</li>	35	</li>
35	[% END %]	36	[% END %]
		37	[% IF Desks.defined %]
		38	<li>
		39	<a class="circ-button" href="/cgi-bin/koha/circ/selectdesk.pl"><i class="fa fa-location-arrow"></i> Set desk</a>
		40	</li>
		41	[% END %]
36	[% IF ( fast_cataloging ) %]	42	[% IF ( fast_cataloging ) %]
37	[% IF ( CAN_user_editcatalogue_fast_cataloging ) %]	43	[% IF ( CAN_user_editcatalogue_fast_cataloging ) %]
38	<li>	44	<li>




[% USE Koha %]

[% INCLUDE 'doc-head-open.inc' %]
<title>Koha &rsaquo; Circulation &rsaquo; Set Desk</title>
[% INCLUDE 'doc-head-close.inc' %]
</head>
<body id="circ_selectdesk" class="circ">
[% INCLUDE 'header.inc' %]
[% INCLUDE 'circ-search.inc' %]

<div id="breadcrumbs">
         <a href="/cgi-bin/koha/mainpage.pl">Home</a>
&rsaquo; <a href="/cgi-bin/koha/circ/circulation-home.pl">Circulation</a>
&rsaquo; <a href="/cgi-bin/koha/circ/selectdesk.pl">Set Desk</a>
</div>

<div class="main container-fluid">
    <div class="row">
        <div class="col-sm-12">
            <main>
                <div class="row">

                [% IF Koha.Preference('CircSidebar') %]
                    <div class="col-sm-10 col-sm-push-2">
                [% ELSE %]
                    <div class="col-md-10 col-md-offset-1 col-lg-8 col-lg-offset-2">
                [% END %]

<form method="post" action="selectdesk.pl">
  <fieldset class="rows">
    <legend>Set desk</legend>
    <ol>
      <li><label for="desk">Choose desk:</label>
        <select name="desk_id" id="desk_id">
        [% FOREACH desk IN desks_list %]
        <option value="[% desk.desk_id|html %]">[% desk.desk_name|html %]</option>
        [% END %]
        </select>
      </li>
    </ol>
    </fieldset>
    <fieldset class="action">
      <input type="submit" value="Submit" />
      <a class="cancel" id="cancel_set_desk" href="[% referer or '/cgi-bin/koha/circ/circulation.pl'|html %]">Cancel</a>
     </fieldset>
       <input type="hidden" name="oldreferer" value="[% referer or "/cgi-bin/koha/mainpage.pl" |html %]" />
 </form>

                </div> <!-- /.col-sm-10.col-sm-push-2 -->
                    [% IF Koha.Preference('CircSidebar') %]
                            <div class="col-sm-2 col-sm-pull-10">
                                <aside>
                                    [% INCLUDE 'circ-nav.inc' %]
                                </aside>
                            </div> <!-- /.col-sm-2.col-sm-pull-10 -->
                    [% END %]
                </div> <!-- /.row -->
            </main>
        </div> <!-- /.col-sm-12 -->
    </div> <!-- /.row -->

[% INCLUDE 'intranet-bottom.inc' %]

Return to bug 24201

Lines 38-43 use Koha::Checkouts; Link Here

(-)a/C4/Auth.pm (-5 / +16 lines)
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::Desks;
41	use Koha::Patrons;	42	use Koha::Patrons;
42	use Koha::Patron::Consents;	43	use Koha::Patron::Consents;
43	use POSIX qw/strftime/;	44	use POSIX qw/strftime/;
Lines 461-466 sub get_template_and_user { Link Here
461	OpenLibraryCovers => C4::Context->preference("OpenLibraryCovers"),	462	OpenLibraryCovers => C4::Context->preference("OpenLibraryCovers"),
462	KohaAdminEmailAddress => "" . C4::Context->preference("KohaAdminEmailAddress"),	463	KohaAdminEmailAddress => "" . C4::Context->preference("KohaAdminEmailAddress"),
463	LoginBranchcode => ( C4::Context->userenv ? C4::Context->userenv->{"branch"} : undef ),	464	LoginBranchcode => ( C4::Context->userenv ? C4::Context->userenv->{"branch"} : undef ),
		465	LoginDeskname => ( C4::Context->userenv ? C4::Context->userenv->{"desk_name"} : undef ),
464	LoginFirstname => ( C4::Context->userenv ? C4::Context->userenv->{"firstname"} : "Bel" ),	466	LoginFirstname => ( C4::Context->userenv ? C4::Context->userenv->{"firstname"} : "Bel" ),
465	LoginSurname => C4::Context->userenv ? C4::Context->userenv->{"surname"} : "Inconnu",	467	LoginSurname => C4::Context->userenv ? C4::Context->userenv->{"surname"} : "Inconnu",
466	emailaddress => C4::Context->userenv ? C4::Context->userenv->{"emailaddress"} : undef,	468	emailaddress => C4::Context->userenv ? C4::Context->userenv->{"emailaddress"} : undef,
Lines 489-494 sub get_template_and_user { Link Here
489	IntranetmainUserblock => C4::Context->preference("IntranetmainUserblock"),	491	IntranetmainUserblock => C4::Context->preference("IntranetmainUserblock"),
490	LibraryName => C4::Context->preference("LibraryName"),	492	LibraryName => C4::Context->preference("LibraryName"),
491	LoginBranchname => ( C4::Context->userenv ? C4::Context->userenv->{"branchname"} : undef ),	493	LoginBranchname => ( C4::Context->userenv ? C4::Context->userenv->{"branchname"} : undef ),
		494	LoginDeskname => ( C4::Context->userenv ? C4::Context->userenv->{"desk_name"} : undef ),
492	advancedMARCEditor => C4::Context->preference("advancedMARCEditor"),	495	advancedMARCEditor => C4::Context->preference("advancedMARCEditor"),
493	canreservefromotherbranches => C4::Context->preference('canreservefromotherbranches'),	496	canreservefromotherbranches => C4::Context->preference('canreservefromotherbranches'),
494	intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),	497	intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
Lines 558-563 sub get_template_and_user { Link Here
558	LibraryName => "" . C4::Context->preference("LibraryName"),	561	LibraryName => "" . C4::Context->preference("LibraryName"),
559	LibraryNameTitle => "" . $LibraryNameTitle,	562	LibraryNameTitle => "" . $LibraryNameTitle,
560	LoginBranchname => C4::Context->userenv ? C4::Context->userenv->{"branchname"} : "",	563	LoginBranchname => C4::Context->userenv ? C4::Context->userenv->{"branchname"} : "",
		564	LoginDeskname => C4::Context->userenv ? C4::Context->userenv->{"desk_name"} : "",
561	OPACAmazonCoverImages => C4::Context->preference("OPACAmazonCoverImages"),	565	OPACAmazonCoverImages => C4::Context->preference("OPACAmazonCoverImages"),
562	OPACFRBRizeEditions => C4::Context->preference("OPACFRBRizeEditions"),	566	OPACFRBRizeEditions => C4::Context->preference("OPACFRBRizeEditions"),
563	OpacHighlightedWords => C4::Context->preference("OpacHighlightedWords"),	567	OpacHighlightedWords => C4::Context->preference("OpacHighlightedWords"),
Lines 850-856 sub checkauth { Link Here
850	$session->param('surname'), $session->param('branch'),	854	$session->param('surname'), $session->param('branch'),
851	$session->param('branchname'), $session->param('flags'),	855	$session->param('branchname'), $session->param('flags'),
852	$session->param('emailaddress'), $session->param('branchprinter'),	856	$session->param('emailaddress'), $session->param('branchprinter'),
853	$session->param('shibboleth')	857	$session->param('shibboleth'), $session->param('desk_id'),
		858	$session->param('desk_name'),
854	);	859	);
855	C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') );	860	C4::Context::set_shelves_userenv( 'bar', $session->param('barshelves') );
856	C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') );	861	C4::Context::set_shelves_userenv( 'pub', $session->param('pubshelves') );
Lines 1167-1173 sub checkauth { Link Here
1167	$session->param('surname'), $session->param('branch'),	1172	$session->param('surname'), $session->param('branch'),
1168	$session->param('branchname'), $session->param('flags'),	1173	$session->param('branchname'), $session->param('flags'),
1169	$session->param('emailaddress'), $session->param('branchprinter'),	1174	$session->param('emailaddress'), $session->param('branchprinter'),
1170	$session->param('shibboleth')	1175	$session->param('shibboleth'), $session->param('desk_id'),
		1176	$session->param('desk_name'),
1171	);	1177	);
1172		1178
1173	}	1179	}
Lines 1446-1452 sub check_api_auth { Link Here
1446	$session->param('cardnumber'), $session->param('firstname'),	1452	$session->param('cardnumber'), $session->param('firstname'),
1447	$session->param('surname'), $session->param('branch'),	1453	$session->param('surname'), $session->param('branch'),
1448	$session->param('branchname'), $session->param('flags'),	1454	$session->param('branchname'), $session->param('flags'),
1449	$session->param('emailaddress'), $session->param('branchprinter')	1455	$session->param('emailaddress'), $session->param('branchprinter'),
		1456	$session->param('desk_id'), $session->param('desk_name'),
1450	);	1457	);
1451		1458
1452	my $ip = $session->param('ip');	1459	my $ip = $session->param('ip');
Lines 1607-1613 sub check_api_auth { Link Here
1607	$session->param('cardnumber'), $session->param('firstname'),	1614	$session->param('cardnumber'), $session->param('firstname'),
1608	$session->param('surname'), $session->param('branch'),	1615	$session->param('surname'), $session->param('branch'),
1609	$session->param('branchname'), $session->param('flags'),	1616	$session->param('branchname'), $session->param('flags'),
1610	$session->param('emailaddress'), $session->param('branchprinter')	1617	$session->param('emailaddress'), $session->param('branchprinter'),
		1618	$session->param('shibboleth'), $session->param('desk_id'),
		1619	$session->param('desk_name'),
1611	);	1620	);
1612	return ( "ok", $cookie, $sessionID );	1621	return ( "ok", $cookie, $sessionID );
1613	} else {	1622	} else {
Lines 1695-1701 sub check_cookie_auth { Link Here
1695	$session->param('cardnumber'), $session->param('firstname'),	1704	$session->param('cardnumber'), $session->param('firstname'),
1696	$session->param('surname'), $session->param('branch'),	1705	$session->param('surname'), $session->param('branch'),
1697	$session->param('branchname'), $session->param('flags'),	1706	$session->param('branchname'), $session->param('flags'),
1698	$session->param('emailaddress'), $session->param('branchprinter')	1707	$session->param('emailaddress'), $session->param('branchprinter'),
		1708	$session->param('shibboleth'), $session->param('desk_id'),
		1709	$session->param('desk_name'),
1699	);	1710	);
1700		1711
1701	my $ip = $session->param('ip');	1712	my $ip = $session->param('ip');

Line 0 Link Here

(-)a/Koha/Template/Plugin/Desks.pm (+122 lines)
		1	package Koha::Template::Plugin::Desks;
		2
		3	# Copyright (C) BULAC 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::Desks;
		28
		29	=head1 NAME
		30
		31	Koha::Template::Plugin::Desks - A module for dealing with desks in templates
		32
		33	=head1 DESCRIPTION
		34
		35	This plugin contains getters functions, to fetch all desks a library
		36	got or the current one.
		37
		38	=head2 Methods
		39
		40	=head3 GetName
		41
		42	[% Desk.GetName(desk_id) %]
		43
		44	return desk name or empty string
		45
		46	=cut
		47
		48	sub GetName {
		49	my ( $self, $desk_id ) = @_;
		50	my $d = Koha::Desks->search( { desk_id => $desk_id} )->unblessed;
		51	return @$d ? $d->{'desk_name'} : q{};
		52	}
		53
		54	=head3 GetLoggedInDeskId
		55
		56	[% Desks.GetLoggedInDeskId %]
		57
		58	return the desk name that is attached to the session or empty string
		59
		60	=cut
		61
		62	sub GetLoggedInDeskId {
		63	my ($self) = @_;
		64
65	return C4::Context->userenv ?
66	C4::Context->userenv->{'desk_id'} :
67	'';
68	}
69
70	=head3 all
71
72	[% Desks.all %]
73
74	returns all desks existing at the library
75
76	=cut
77
78	sub all {
79	my ( $self, $params ) = @_;
80	my $selected = $params->{selected};
81	my $unfiltered = $params->{unfiltered} \|\| 0;
82	my $search_params = $params->{search_params} \|\| {};
83
84	if ( !$unfiltered ) {
85	$search_params->{only_from_group} = $params->{only_from_group} \|\| 0;
86	}
87
88	my $desks = $unfiltered
89	? Koha::Desks->search( $search_params, { order_by => ['desk_name'] } )->unblessed
90	: Koha::Desks->search_filtered( $search_params, { order_by => ['desk_name'] } )->unblessed;
91
92	for my $d ( @$desks ) {
93	if ( defined $selected and $d->{desk_id} eq $selected
94	or not defined $selected and C4::Context->userenv and $d->{branchcode} eq ( C4::Context->userenv->{desk_id} // q{} )
95	) {
96	$d->{selected} = 1;
97	}
98	}
99
100	return $desks;
101	}
102
103	=head3 defined
104
105	[% Desks.defined %]
106
107	return 1 if there is at least a desk defined for the library.
108
109	=cut
110
111	sub defined {
112	my ( $self ) = @_;
113	my $desks = Koha::Desks->search()->unblessed;
114	if (@$desks) {
115	return 1 ;
116	}
117	else {
118	return 0;
119	}
120	}
121
122	1;

Line 0 Link Here

(-)a/circ/selectdesk.pl (+87 lines)
		1	#!/usr/bin/perl
		2
		3	# Copyright (C) 2020 BULAC
		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	use CGI qw ( -utf8 );
		22
		23	use C4::Context;
		24	use C4::Output;
		25	use C4::Auth qw/:DEFAULT get_session/;
		26	use C4::Koha;
		27	use Koha::Desks;
		28
		29	my $query = CGI->new();
		30
		31	my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
		32	{
		33	template_name => "circ/selectdesk.tt",
		34	query => $query,
		35	type => "intranet",
		36	debug => 1,
		37	authnotrequired => 0,
		38	flagsrequired => { catalogue => 1, },
		39	}
		40	);
		41
		42	my $sessionID = $query->cookie("CGISESSID");
		43	my $session = get_session($sessionID);
		44
		45	my $branch = C4::Context->userenv->{'branch'};
		46	my $searchfield = $query->param('searchfield');
		47	my $desks_lists;
		48	if ($branch) {
		49	$desks_lists = Koha::Desks->search( { branchcode => $branch } )->unblessed;
		50	}
		51	else {
		52	$desks_lists = Koha::Desks->search( )->unblessed;
		53	}
		54
		55	my $desk_id = $query->param('desk_id');
		56
		57	my $userenv_desk = C4::Context->userenv->{'desk_id'} \|\| '';
		58	my $updated = '';
		59
		60	if ($desk_id) {
		61	if ( !$userenv_desk or $userenv_desk ne $desk_id ) {
		62	my $desk = Koha::Desks->find( { desk_id => $desk_id } );
		63	$template->param( LoginDeskname => $desk->desk_name );
		64	$template->param( LoginDeskid => $desk->desk_id );
65	$session->param( desk_name => $desk->desk_name );
66	$session->param( desk_id => $desk->desk_id );
67	$updated = 1;
68	}
69	}
70	else {
71	$desk_id = $userenv_desk;
72	}
73
74	$template->param( updated => \$updated );
75
76	my $referer = $query->param('oldreferer') \|\| $ENV{HTTP_REFERER};
77	if ($updated) {
78	print $query->redirect( $referer \|\| '/cgi-bin/koha/mainpage.pl' );
79	}
80
81	$template->param(
82	referer => $referer,
83	desks_list => $desks_lists,
84	desk_id => $desk_id,
85	);
86
87	output_html_with_http_headers $query, $cookie, $template->output;