2373f47a76
Contrib from Tümer Garip (from Turkey) : * holiday : in /tools/ the holiday.pl script let you define holidays (days where the library is closed), branch by branch. You can define 3 types of holidays : - single day : only this day is closed - repet weekly (like "sunday") : the day is holiday every week - repet yearly (like "July, 4") : this day is closed every year. You can also put exception : - sunday is holiday, but "2006 March, 5th" the library will be open The holidays are used for return date calculation : the return date is set to the next date where the library is open. A systempreference (useDaysMode) set ON (Calendar) or OFF (Normal) the calendar calculation.
98 lines
2.7 KiB
Perl
Executable file
98 lines
2.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Script to manage the opac news.
|
|
# written 11/04
|
|
# Castañeda, Carlos Sebastian - seba3c@yahoo.com.ar - Physics Library UNLP Argentina
|
|
# Modified to include news to KOHA intranet - tgarip@neu.edu.tr NEU library -Cyprus
|
|
# Copyright 2000-2002 Katipo Communications
|
|
#
|
|
# 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 2 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, write to the Free Software Foundation, Inc., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
use strict;
|
|
use CGI;
|
|
|
|
use C4::Auth;
|
|
use C4::Koha;
|
|
use C4::Context;
|
|
use C4::Output;
|
|
use C4::Interface::CGI::Output;
|
|
use C4::NewsChannels;
|
|
use HTML::Template;
|
|
|
|
my $cgi = new CGI;
|
|
|
|
my $id = $cgi->param('id');
|
|
my $title = $cgi->param('title');
|
|
my $new = $cgi->param('new');
|
|
my $lang = $cgi->param('lang');
|
|
my $new_detail = get_opac_new($id);
|
|
|
|
my ($template, $borrowernumber, $cookie)
|
|
= get_template_and_user({template_name => "tools/koha-news.tmpl",
|
|
query => $cgi,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => {management => 1},
|
|
debug => 1,
|
|
});
|
|
|
|
# get lang list
|
|
my @lang_list;
|
|
|
|
foreach my $language (getalllanguages()) {
|
|
push @lang_list, { language => $language,
|
|
selected => ($new_detail->{lang} eq $language?1:0),
|
|
};
|
|
}
|
|
$template->param(lang_list => \@lang_list);
|
|
|
|
my $op = $cgi->param('op');
|
|
|
|
if ($op eq 'add_form') {
|
|
$template->param(add_form => 1);
|
|
if ($id) {
|
|
$template->param(op => 'edit');
|
|
$template->param($new_detail);
|
|
$template->param(id => $new_detail->{'idnew'});
|
|
} else {
|
|
$template->param(op => 'add');
|
|
}
|
|
|
|
} elsif ($op eq 'add') {
|
|
|
|
add_opac_new($title, $new, $lang);
|
|
print $cgi->redirect('/cgi-bin/koha/tools/koha-news.pl');
|
|
|
|
} elsif ($op eq 'edit') {
|
|
|
|
upd_opac_new($id, $title, $new, $lang);
|
|
print $cgi->redirect('/cgi-bin/koha/tools/koha-news.pl');
|
|
|
|
} elsif ($op eq 'del') {
|
|
my @ids = $cgi->param('ids');
|
|
del_opac_new(join ",", @ids);
|
|
print $cgi->redirect('/cgi-bin/koha/tools/koha-news.pl');
|
|
|
|
} else {
|
|
|
|
my ($opac_news_count, $opac_news) = &get_opac_news(undef, $lang);
|
|
$template->param($lang => 1);
|
|
$template->param(opac_news => $opac_news);
|
|
$template->param(opac_news_count => $opac_news_count);
|
|
|
|
}
|
|
|
|
output_html_with_http_headers $cgi, $cookie, $template->output;
|