102 lines
3 KiB
Perl
102 lines
3 KiB
Perl
#!/usr/bin/perl
|
|
|
|
# Script to manage the opac news.
|
|
# written 11/04
|
|
# Castañeda, Carlos Sebastian - seba3c@yahoo.com.ar - Physics Library UNLP Argentina
|
|
|
|
# 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::Context;
|
|
use C4::Output;
|
|
use C4::Interface::CGI::Output;
|
|
use C4::NewsChannels;
|
|
|
|
|
|
my $cgi = new CGI;
|
|
|
|
my ($template, $borrowernumber, $cookie)
|
|
= get_template_and_user({template_name => "admin/koha-electronic.tmpl",
|
|
query => $cgi,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => {parameters => 1},
|
|
debug => 1,
|
|
});
|
|
|
|
my $op = $cgi->param('op');
|
|
|
|
if ($op eq 'add_form') {
|
|
$template->param(add_form => 1);
|
|
my $id = $cgi->param("id");
|
|
my $edata;
|
|
# warn "add_form";
|
|
if ($id) {
|
|
$template->param(op => 'edit');
|
|
$edata = get_opac_electronic($id);
|
|
$template->param($edata);
|
|
$template->param(id => $edata->{'idelectronic'});
|
|
} else {
|
|
$template->param(op => 'add');
|
|
}
|
|
|
|
} elsif ($op eq 'add') {
|
|
# warn "add";
|
|
my $title = $cgi->param('title');
|
|
my $edata = $cgi->param('edata');
|
|
my $lang = $cgi->param('lang');
|
|
my $image = $cgi->param('image');
|
|
my $href = $cgi->param('href');
|
|
my $section = $cgi->param('section');
|
|
add_opac_electronic($title, $edata, $lang,$image, $href,$section);
|
|
print $cgi->redirect('/cgi-bin/koha/admin/opac-electronic.pl');
|
|
|
|
} elsif ($op eq 'edit') {
|
|
# warn "edit";
|
|
my $id = $cgi->param('id');
|
|
my $title = $cgi->param('title');
|
|
my $edata = $cgi->param('edata');
|
|
my $lang = $cgi->param('lang');
|
|
my $image = $cgi->param('image');
|
|
my $href = $cgi->param('href');
|
|
my $section = $cgi->param('section');
|
|
upd_opac_electronic($id, $title, $edata, $lang,$image,$href,$section);
|
|
print $cgi->redirect('/cgi-bin/koha/admin/opac-electronic.pl');
|
|
|
|
} elsif ($op eq 'del') {
|
|
# warn "del";
|
|
my @ids = $cgi->param('ids');
|
|
del_opac_electronic(join ",", @ids);
|
|
print $cgi->redirect('/cgi-bin/koha/admin/opac-electronic.pl');
|
|
|
|
} else {
|
|
# warn "else";
|
|
|
|
my $lang = $cgi->param('lang');
|
|
|
|
my ($opac_electronic_count, $opac_electronic) = &get_opac_electronics(undef, $lang);
|
|
$template->param($lang => 1);
|
|
$template->param(opac_electronic => $opac_electronic);
|
|
$template->param(opac_electronic_count => $opac_electronic_count);
|
|
|
|
}
|
|
|
|
output_html_with_http_headers $cgi, $cookie, $template->output;
|