package Koha::SharedContent;

# Copyright 2016 BibLibre Morgane Alonso

#

# 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, write to the Free Software Foundation, Inc.,

# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

use Modern::Perl;

use JSON;

use HTTP::Request;

use LWP::UserAgent;

our $MANA_IP = "http://10.25.159.107:5000";

sub manaRequest {

    my $mana_request = shift;

    my $result;

    $mana_request->content_type('application/json');

    my $userAgent = LWP::UserAgent->new;

    my $response  = $userAgent->request($mana_request);

    if ( $response->code ne "204" ) {

        $result = from_json( $response->decoded_content );

    }

    $result->{code} = $response->code;

    return $result if ( $response->code =~ /^2..$/ );

}

sub manaGetRequest {

    my $resource   = shift;

    my $parameters = shift;

    $parameters = join '&',

      map { defined $parameters->{$_} ? $_ . "=" . $parameters->{$_} : () }

      keys %$parameters;

    my $url = "$MANA_IP/$resource.json?$parameters";

    my $request = HTTP::Request->new( GET => $url );

    return manaRequest($request);

}

1;

[% USE KohaDates %]

<table id="mana_results_datatable">

    <thead>

        <tr>

            <th>ISSN</th>

            <th class="anti-the">Title</th>

            <th>Frequency</th>

            <th>Numbering pattern</th>

            <th class="NoSort">Number of users</th>

            <th class="title-string">Last Import</th>

            [% UNLESS search_only %]

              <th class="NoSort">Actions</th>

            [% END %]

        </tr>

    </thead>

    <tfoot>

        <tr>

            <td><input type="text" class="dt-filter" data-column_num="0" placeholder="Search ISSN" /></td>

            <td><input type="text" class="dt-filter" data-column_num="1" placeholder="Search title" /></td>

            <td><input type="text" class="dt-filter" data-column_num="2" placeholder="Search frequency" /></td>

            <td><input type="text" class="dt-filter" data-column_num="3" placeholder="Search numbering pattern" /></td>

            <td></td>

            <td><input type="text" class="dt-filter" data-column_num="5" placeholder="Search last import" /></td>

            [% UNLESS search_only %]

              <td></td>

            [% END %]

        </tr>

    </tfoot>

    <tbody>

        [% FOREACH subscription IN subscriptions %]

            [% UNLESS subscription.cannotdisplay %]

                <tr id="row[% subscription.subscriptionid %]">

                    <td>[% IF ( subscription.issn ) %][% subscription.issn %][% END %]</td>

                    <td>[% subscription.title %]</a></td>

                    <td>[% IF ( subscription.sfdescription ) %][% subscription.sfdescription %][% END %]</td>

                    <td>[% IF ( subscription.numberingmethod ) %][% subscription.numberingmethod %][% END %]</td>

                    <td>[% IF ( subscription.nbofusers ) %][% subscription.nbofusers %][% END %]</td>

                    <td><span title="[% subscription.lastimport %]">[% subscription.lastimport | $KohaDates %]</span></td>

                    [% UNLESS search_only %]

                      <td><a style="cursor:pointer" onclick="mana_use([% subscription.id %])"> <i class="fa fa-inbox"></i> Use</a></td>

                    [% END %]

                </tr>

            [% END %]

        [% END %]

    </tbody>

</table>

    [% IF Koha.Preference('Mana') %]

        <li><a href="/cgi-bin/koha/serials/serials-search.pl?mana=1">Search on Mana</a></li>

    [% END %]

[% USE Koha %]

[% USE Koha %]

    var manarlt = $("#mana_results_datatable").dataTable($.extend(true, {}, dataTablesDefaults, {

        "sPaginationType": "four_button",

        "aoColumnDefs": [

            { 'bSortable': false, "bSearchable": false, 'aTargets': [ 'NoSort' ] },

            { "sType": "title-string", "aTargets" : [ "title-string" ] },

            { 'sType': "anti-the", 'aTargets' : [ 'anti-the'] }

        ]

    } ) );

    manarlt.fnAddFilters("dt-filter", 750);

    [% IF ( mana ) %]

        $("label[for=callnumber], input#callnumber").hide();

        $("label[for=bookseller], input#bookseller").hide();

        $("label[for=branch], select#branch").hide();

        $("label[for=to], input#to").hide();

        $(".ui-datepicker-trigger").hide();

        $("label[for=location], select#location_filter").hide();

        [% FOR field IN additional_fields_for_subscription %]

              $("label[for=additional_field_[% field.id %]], input#additional_field_[% field.id %]").hide();

        [% END %]

    [% END %]

              [% IF ( mana ) %]<input type="hidden" name="mana" value="1" />[% END %]

            [% END %]

    [% UNLESS ( mana ) %]

    [% END %]

use Koha::SharedContent;

my $mana      = $query->param('mana') || 0;

else

{

    # to toggle between create or edit routing list options

    if ($routing) {

        for my $subscription ( @subscriptions) {

            $subscription->{routingedit} = check_routing( $subscription->{subscriptionid} );

        }

    }

    $template->param(

        openedsubscriptions => \@openedsubscriptions,

        closedsubscriptions => \@closedsubscriptions,

        total         => @openedsubscriptions + @closedsubscriptions,

        title_filter  => $title,

        ISSN_filter   => $ISSN,

        EAN_filter    => $EAN,

        callnumber_filter => $callnumber,

        publisher_filter => $publisher,

        bookseller_filter  => $bookseller,

        branch_filter => $branch,

        location_filter => $location,

        expiration_date_filter => $expiration_date_dt,

        branches_loop => \@branches_loop,

        done_searched => $searched,

        routing       => $routing,

        additional_field_filters => $additional_field_filters,

        additional_fields_for_subscription => $additional_fields,

        marcflavour   => (uc(C4::Context->preference("marcflavour"))),

        mana => $mana

    );

}