diff --git a/Koha/Manual.pm b/Koha/Manual.pm index 46641f8127..1382ebcc16 100644 --- a/Koha/Manual.pm +++ b/Koha/Manual.pm @@ -122,6 +122,7 @@ our $mapping = { 'catalogue/moredetail' => '/cataloging.html#item-records', 'catalogue/search-history' => '/plugins.html#search-history', 'catalogue/search' => '/searching.html', + 'cataloguing/cataloging-home' => '/cataloging.html', 'cataloguing/addbiblio' => '/cataloging.html#bibliographic-records', 'cataloguing/addbooks' => '/cataloging.html', 'cataloguing/additem' => '/cataloging.html#item-records', diff --git a/cataloguing/cataloging-home.pl b/cataloguing/cataloging-home.pl new file mode 100755 index 0000000000..78327409ec --- /dev/null +++ b/cataloguing/cataloging-home.pl @@ -0,0 +1,52 @@ +#!/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 . +# + +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; diff --git a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc b/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc index df45410d3c..c04af1d0da 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc +++ b/koha-tmpl/intranet-tmpl/prog/en/includes/header.inc @@ -31,7 +31,7 @@