3 # Copyright 2011 BibLibre SARL
4 # This file is part of Koha.
6 # Koha is free software; you can redistribute it and/or modify it
7 # under the terms of the GNU General Public License as published by
8 # the Free Software Foundation; either version 3 of the License, or
9 # (at your option) any later version.
11 # Koha is distributed in the hope that it will be useful, but
12 # WITHOUT ANY WARRANTY; without even the implied warranty of
13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 # GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License
17 # along with Koha; if not, see <http://www.gnu.org/licenses>.
25 Admin page to describe OAI SETs
39 my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
40 template_name => 'admin/oai_sets.tt',
43 flagsrequired => { 'parameters' => 'manage_oai_sets' },
46 my $op = $input->param('op');
48 if($op && $op eq "new") {
49 $template->param( op_new => 1 );
50 } elsif($op && $op eq "savenew") {
51 my $spec = $input->param('spec');
52 my $name = $input->param('name');
53 my @descriptions = $input->multi_param('description');
57 descriptions => \@descriptions
59 } elsif($op && $op eq "mod") {
60 my $id = $input->param('id');
61 my $set = GetOAISet($id);
65 spec => $set->{'spec'},
66 name => $set->{'name'},
67 descriptions => [ map { {description => $_} } @{ $set->{'descriptions'} } ],
69 } elsif($op && $op eq "savemod") {
70 my $id = $input->param('id');
71 my $spec = $input->param('spec');
72 my $name = $input->param('name');
73 my @descriptions = $input->multi_param('description');
78 descriptions => \@descriptions
80 } elsif($op && $op eq "del") {
81 my $id = $input->param('id');
85 my $OAISets = GetOAISets;
92 descriptions => [ map { {description => $_} } @{ $_->{'descriptions'} } ]
97 sets_loop => \@sets_loop,
100 output_html_with_http_headers $input, $cookie, $template->output;