3 # Copyright BibLibre 2012
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
22 ajax-updatedb-getinfos.pl
25 this script returns comments for a updatedatabase version
32 use C4::Update::Database;
36 my $version = $input->param('version');
41 $filepath = C4::Update::Database::get_filepath( $version );
42 $queries = C4::Update::Database::get_queries( $filepath );
45 my $param = {comments => "", queries => ""};
47 $param->{errors} = $@;
49 if ( exists $queries->{comments} and @{ $queries->{comments} } ) {
50 $param->{comments} = join ( "<br/>", @{ $queries->{comments} } );
53 if ( exists $queries->{queries} and @{ $queries->{queries} } ) {
54 $param->{queries} = join ( "<br/>", @{ $queries->{queries} } );
58 my $json_text = to_json( $param, { utf8 => 1 } );
60 output_with_http_headers $input, undef, $json_text, 'json';