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 manaNewUserPatchRequest {

    my $resource = shift;

    my $id       = shift;

    my $url = "$MANA_IP/$resource/$id.json/newUser";

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

    return manaRequest($request);

}

sub manaPostRequest {

    my $resource = shift;

    my $content  = shift;

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

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

    $content->{bulk_import} = 0;

    my $json = to_json( $content, { utf8 => 1 } );

    $request->content($json);

    return manaRequest($request);

}

sub manaGetRequestWithId {

    my $resource = shift;

    my $id       = shift;

    my $url = "$MANA_IP/$resource/$id.json";

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

    return manaRequest($request);

}

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;

package Koha::Subscription::Frequencies;

# 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 Koha::Database;

use Koha::Subscription::Frequency;

use base qw(Koha::Objects);

=head1 NAME

Koha::Subscription::Frequencies - Koha Subscription::Frequency object set class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'SubscriptionFrequency';

}

=head3 object_class

=cut

sub object_class {

    return 'Koha::Subscription::Frequency';

}

=head1 AUTHOR

Morgane Alonso <morgane.alonso@biblibre.com>

=cut

1;

package Koha::Subscription::Frequency;

# 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 Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::Subscription::Frequency - Koha Subscription::Frequency Object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'SubscriptionFrequency';

}

=head1 AUTHOR

Morgane Alonso <morgane.alonso@biblibre.com>

=cut

1;

package Koha::Subscription::Numberpattern;

# 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 Koha::Database;

use base qw(Koha::Object);

=head1 NAME

Koha::SubscriptionNumberpattern - Koha SubscriptionNumberpattern Object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {

    return 'SubscriptionNumberpattern';

}

=head1 AUTHOR

Morgane Alonso <morgane.alonso@biblibre.com>

=cut

1;

package Koha::Subscription::Numberpatterns;

# 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 Koha::Database;

use Koha::Subscription::Numberpattern;

use base qw(Koha::Objects);

=head1 NAME

Koha::SubscriptionNumberpatterns - Koha SubscriptionNumberpattern object set class

=head1 API

=head2 Class Methods

=cut

=head3 uniqeLabel

=cut

sub uniqueLabel {

    my ($self, $label) = @_;

    my $samelabel = Koha::Subscription::Numberpatterns->search({label => $label})->next();

    if ($samelabel) {

        my $i = 2;

        my $newlabel = $samelabel->label . " ($i)";

        while (my $othersamelabel = $self->search({label => $newlabel})->next()) {

            $i++;

            $newlabel = $samelabel->label . " ($i)";

        }

        $label = $newlabel;

    }

    return $label;

}

=head3 type

=cut

sub _type {

    return 'SubscriptionNumberpattern';

}

=head3 object_class

=cut

sub object_class {

    return 'Koha::Subscription::Numberpattern';

}

=head1 AUTHOR

Morgane Alonso <morgane.alonso@biblibre.com>

=cut

1;

ALTER TABLE subscription ADD mana_id int(11);

[% 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>

[% INCLUDE 'mana-subscription-search-result.inc' %]

#!/usr/bin/perl

# 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, see <http://www.gnu.org/licenses>.

#

use strict;

use warnings;

use Koha::SharedContent;

use Koha::Subscription;

use C4::Auth qw(check_cookie_auth), qw(get_template_and_user);

use C4::Output qw( output_with_http_headers );

use CGI;

use JSON;

my $input = new CGI;

my ( $auth_status, $sessionID ) =

  check_cookie_auth( $input->cookie('CGISESSID'),

    { serials => 'create_subscription' } );

if ( $auth_status ne "ok" ) {

    exit 0;

}

my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

    {

        template_name   => "serials/mana-subscription-search-result.tt",

        query           => $input,

        type            => "intranet",

        authnotrequired => 0,

        # flagsrequired   => { serials => $permission },

        flagsrequired => { serials => 'create_subscription' },

        debug         => 1,

    }

);

my $biblionumber = $input->param('biblionumber');

my $sub_mana_info = Koha::Subscription::get_search_info($biblionumber);

my $result =

  Koha::SharedContent::manaGetRequest( "subscription", $sub_mana_info );

$template->param( subscriptions => $result->{data} );

output_with_http_headers $input, $cookie, $template->output, 'json';

#!/usr/bin/perl

# 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, see <http://www.gnu.org/licenses>.

#

use strict;

use warnings;

use Koha::SharedContent;

use C4::Auth qw(check_cookie_auth);

use CGI;

use JSON;

my $input = new CGI;

binmode STDOUT, ":encoding(UTF-8)";

print $input->header( -type => 'text/plain', -charset => 'UTF-8' );

my ( $auth_status, $sessionID ) =

  check_cookie_auth( $input->cookie('CGISESSID'),

    { serials => 'create_subscription' } );

if ( $auth_status ne "ok" ) {

    exit 0;

}

my $result = Koha::SharedContent::manaGetRequestWithId("subscription", $input->param('id') );

my $subscription;

$subscription = $result->{data};

print(to_json($subscription));