Martin Renvoize
c1b08d24da
This patch adds a new cataloging-home template and controller and replaces most cases of links to addbooks. This serves to provide a new cataloging home page for the cataloging module and keeps it distinct from the current addbooks page it partially replaces as a starting point for cataloging. We migrate most cataloging related tools from the 'Tools' module whilst opting to move 'Rotating collections' to the 'Circulation' section of the 'Tools' homepage. We also add links to the cataloging tab of system preferences and a the adminstration pages if the user has the correct permissions to have access to these areas. Signed-off-by: KIT <michaela.sieber@kit.edu> Signed-off-by: Emmanuel Bétemps <e.betemps@gmail.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: David Nind <david@davidnind.com> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
52 lines
1.5 KiB
Perl
Executable file
52 lines
1.5 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# 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::Auth qw( get_template_and_user );
|
|
use C4::Output qw( output_html_with_http_headers );
|
|
use C4::Context;
|
|
|
|
use Koha::BiblioFrameworks;
|
|
use Koha::Z3950Servers;
|
|
|
|
my $query = CGI->new;
|
|
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user(
|
|
{
|
|
template_name => "cataloguing/cataloging-home.tt",
|
|
query => $query,
|
|
type => "intranet",
|
|
flagsrequired => { editcatalogue => '*' },
|
|
}
|
|
);
|
|
|
|
my $servers = Koha::Z3950Servers->search(
|
|
{
|
|
recordtype => 'biblio',
|
|
servertype => ['zed','sru'],
|
|
}
|
|
);
|
|
|
|
my $frameworks = Koha::BiblioFrameworks->search({}, { order_by => ['frameworktext'] });
|
|
|
|
$template->param(
|
|
servers => $servers,
|
|
frameworks => $frameworks
|
|
);
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|