Attachment #64621 for bug #17047

View | Details | Raw Unified | Return to bug 17047
Collapse All | Expand All




package Koha::Report;

# Copyright 2017 Biblibre Baptiste Wojtkowski
#
# 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 Carp;

use Koha::Database;
use JSON;
use Koha::Reports;

use base qw(Koha::Object);

=head1 NAME

Koha::Report - Koha Report Object Class

=head1 Ap

=head2 Class Methods

=cut

=head3 type

=cut

sub get_search_info {
    my $self=shift;
    my $sub_mana_info = { 'query' => shift };
    return $sub_mana_info;
}

sub get_sharable_info{
    my $self=shift;
    my $shared_report_id=shift;
    my $report = Koha::Reports->find($shared_report_id);
    my $sub_mana_info = {
        'savedsql' => $report->savedsql,
        'report_name' => $report->report_name,
        'notes' => $report->notes,
        'report_group' => $report->report_group,
        'type' => $report->type,
    };
    return $sub_mana_info;
}

sub new_from_mana{
    my $self = shift;
    my $data = shift;
    delete $data->{exportemail};
    delete $data->{kohaversion};
    delete $data->{creationdate};
    delete $data->{lastimport};
    $data->{mana_id} = $data->{id};
    delete $data->{id};
    delete $data->{nbofusers};
    delete $data->{language};
    Koha::Report->new($data)->store;
}

sub _type {
    return 'SavedSql';
}

1;




package Koha::Reports;

# Copyright 2017 Biblibre Baptiste Wojtkowski
#
# 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 Carp;

use Koha::Database;

use Koha::Report;

use base qw(Koha::Objects);

=head1 NAME

Koha::Serial - Koha Serial Object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub _type {
    return 'SavedSql';
}

sub object_class {
    return 'Koha::Report';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




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;

Lines 46-51 Koha::Subscription - Koha Subscription Object class Link Here

(-)a/Koha/Subscription.pm (+2 lines)
46	=cut	46	=cut
47		47
48	sub get_search_info {	48	sub get_search_info {
		49	my $self=shift;
49	my $searched_sub_id = shift;	50	my $searched_sub_id = shift;
50	my $biblio = Koha::Biblios->find( { 'biblionumber' => $searched_sub_id } );	51	my $biblio = Koha::Biblios->find( { 'biblionumber' => $searched_sub_id } );
51	my $biblioitem =	52	my $biblioitem =
Lines 61-66 sub get_search_info { Link Here
61	}	62	}
62		63
63	sub get_sharable_info {	64	sub get_sharable_info {
		65	my $self = shift;
64	my $shared_sub_id = shift;	66	my $shared_sub_id = shift;
65	my $subscription = Koha::Subscriptions->find($shared_sub_id);	67	my $subscription = Koha::Subscriptions->find($shared_sub_id);
66	my $biblio = Koha::Biblios->find( $subscription->biblionumber );	68	my $biblio = Koha::Biblios->find( $subscription->biblionumber );

Lines 149-154 __PAZPAR2_TOGGLE_XML_POST__ Link Here

(-)a/etc/koha-conf.xml (+4 lines)
149	<!-- Path to the config file for SMS::Send -->	149	<!-- Path to the config file for SMS::Send -->
150	<sms_send_config>__KOHA_CONF_DIR__/sms_send/</sms_send_config>	150	<sms_send_config>__KOHA_CONF_DIR__/sms_send/</sms_send_config>
151		151
		152	<!-- URL of the mana KB server -->
		153	<!-- alternative value http://mana-test.koha-community.org to query the test server -->
		154	<mana_config>http://mana-kb.koha-community.org</mana_config>
		155
152	<!-- Configuration for Plack -->	156	<!-- Configuration for Plack -->
153	<plack_max_requests>50</plack_max_requests>	157	<plack_max_requests>50</plack_max_requests>
154	<plack_workers>2</plack_workers>	158	<plack_workers>2</plack_workers>

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/mana_01-add_mana_id_in_subscription.sql (+1 lines)
	1	ALTER TABLE subscription ADD mana_id int(11);

(-)a/installer/data/mysql/atomicupdate/mana_02-add_Mana_syspref.sql (-1 / +1 lines)

Line 1 Link Here

INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES ('Mana', '1', 'request to Mana Webservice. Mana centralize commun information between other Koha to facilitate the creation of new subscriptions, vendors, report queries etc... You can search, share, import and comment the content of Mana.', NULL, 'YesNo');

INSERT IGNORE INTO systempreferences (variable,value,options,explanation,type) VALUES ('Mana','2', 0|1|2,'request to Mana Webservice. Mana centralize commun information between other Koha to facilitate the creation of new subscriptions, vendors, report queries etc... You can search, share, import and comment the content of Mana.','Choice');

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/mana_03-add_mana_autoshare.sql (+2 lines)
	1	INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
	2	('AutoShareWithMana','subscription','','defines datas automatically shared with mana','multiple');

Lines 60-65 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
60	('AutoCreateAuthorities','0',NULL,'Automatically create authorities that do not exist when cataloging records.','YesNo'),	60	('AutoCreateAuthorities','0',NULL,'Automatically create authorities that do not exist when cataloging records.','YesNo'),
61	('AutoEmailOpacUser','0',NULL,'Sends notification emails containing new account details to patrons - when account is created.','YesNo'),	61	('AutoEmailOpacUser','0',NULL,'Sends notification emails containing new account details to patrons - when account is created.','YesNo'),
62	('AutoEmailPrimaryAddress','OFF','email\|emailpro\|B_email\|cardnumber\|OFF','Defines the default email address where \'Account Details\' emails are sent.','Choice'),	62	('AutoEmailPrimaryAddress','OFF','email\|emailpro\|B_email\|cardnumber\|OFF','Defines the default email address where \'Account Details\' emails are sent.','Choice'),
		63	('AutoShareWithMana','subscription','','defines datas automatically shared with mana','multiple'),
63	('AutoLocation','0',NULL,'If ON, IP authentication is enabled, blocking access to the staff client from unauthorized IP addresses','YesNo'),	64	('AutoLocation','0',NULL,'If ON, IP authentication is enabled, blocking access to the staff client from unauthorized IP addresses','YesNo'),
64	('AutomaticItemReturn','1',NULL,'If ON, Koha will automatically set up a transfer of this item to its homebranch','YesNo'),	65	('AutomaticItemReturn','1',NULL,'If ON, Koha will automatically set up a transfer of this item to its homebranch','YesNo'),
65	('autoMemberNum','1','','If ON, patron number is auto-calculated','YesNo'),	66	('autoMemberNum','1','','If ON, patron number is auto-calculated','YesNo'),

Lines 291-296 table+table { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/css/staff-global.css (+6 lines)
291	.highlighted-row,	291	.highlighted-row,
292	.highlighted-row td { background-color: #FFD000 !important }	292	.highlighted-row td { background-color: #FFD000 !important }
293		293
		294	.warned-row,
		295	.warned-row td { background-color: #FF9000 !important }
		296
		297	.high-warned-row,
		298	.high-warned-row td { background-color: #FF0000 !important }
		299
294	tbody tr:nth-child(odd) td {	300	tbody tr:nth-child(odd) td {
295	background-color : #F3F3F3;	301	background-color : #F3F3F3;
296	border : 1px solid #BCBCBC;	302	border : 1px solid #BCBCBC;




[% USE KohaDates %]
[% USE Koha %]
[% USE AuthorisedValues %]
[% USE Branches %]

<table id="mana_results_datatable" width=100%>
    <thead>
        <tr>
            <th>Report Name</th>
            <th class="anti-the" width=35%>Notes</th>
            <th>Type</th>
            <th title="number of libraries using this pattern"># of users</th>
            <th class="title-string" title="last time a library used this pattern">Last import</th>
            <th> Comments </th>
            [% UNLESS search_only %]
              <th class="NoSort">Actions</th>
            [% END %]
        </tr>
    </thead>
    <tbody>
        [% FOREACH report IN reports %]
            [% UNLESS report.cannotdisplay %]
                <tr id="row[% report.id %]"
                     [% IF report.nbofcomment > highWarned  %]
                        class = "high-warned-row"
                     [% ELSIF report.nbofcomment > warned  %]
                        class = "warned-row"
                     [% ELSIF report.nbofcomment > lowWarned  %]
                        class = "highlighted-row"
                     [% END %]
                >
                    <input hidden class="rowid" value="[% report.id %]">
                    <td>[% IF ( report.report_name ) %][% report.report_name %][% END %]</td>
                    <td title="[% report.savedsql %]"><div>
                        [% IF report.notes.length > 200 %]
                            [% report.notes.substr(0,200) %]<a class="showbutton">Show More</a></div><div hidden>
                        [% END %]
                            [% report.notes %]
                        [% IF report.notes.length > 200 %]
                            <a class="hidebutton">Show Less</a></div> </td>
                        [% END %]
                    <td> [% report.type %] </td>
                    <td>[% IF ( report.nbofusers ) %][% report.nbofusers %][% END %]</td>
                    <td><span title="[% report.lastimport %]">[% report.lastimport | $KohaDates %]</span></td>
		    <td>[% FOREACH comment IN report.comments %][% comment.message %] ([% comment.nb %]) <br>[% END %]</td>

                    [% UNLESS search_only %]
                      <td>
                          <button onclick="mana_use([% report.id %])"> <i class="fa fa-inbox"></i> Use</button>
                          <input hidden type="text" id="selectedcomment">
                          <select>
                              <option selected disabled>Report mistake</option>
                              [% FOREACH comment IN report.comments %]
                                  <option class="actionreport1" value="[% comment.id %]" onclick="mana_increment('[% comment.id %]', 'resource_comment', 'nb')"> [% comment.message %] ([% comment.nb %])
                              [% END %]
                                  <option data-toggle="modal" onclick="($('#selected_id').val($('.rowid').val()))" data-target="#comment_box"> other
                          </select>
                          <button hidden class="actionreport2" hidden> Cancel</button>
                      </td>
                    [% END %]
                </tr>
            [% END %]
        [% END %]
    </tbody>
</table>

<div id="comment_box" class="modal" tabindex="-1" role="dialog" aria-labelledby="mana_search_result_label" style="display: none;">
    <div class="modal-dialog modal-lg" style="width: 30%">
        <div class="modal-content" style="">
            <div class="modal-header">
                <button type="button" id="commentCloseButton" class="closebtn"  aria-hidden="true">×</button>
                <h3 id="mana_submit_comment"> Please enter a new commment (max 35 caracters)</h3>
            </div>
            <div class="modal-body">
                <form>
                    <input hidden id="selected_id" value="">
                    <input type="text" id="manamsg">
                </form>
                <button id="CommentButton"> Comment </button>
            </div>
        </div>
    </div>
</div>




[% USE KohaDates %]
[% USE Koha %]
[% USE AuthorisedValues %]
[% USE Branches %]



<table id="mana_results_datatable" width=100%>
    <thead>
        <tr>
            <th>ISSN</th>
            <th class="anti-the" width=50%>Title</th>
            <th> Published by </th>
            <th>Frequency</th>
            <th>Numbering pattern</th>
            <th title="number of libraries using this pattern"># of users</th>
            <th class="title-string" title="last time a library used this pattern">Last import</th>
            <th> Comments </th>
            [% UNLESS search_only %]
              <th class="NoSort">Actions</th>
            [% END %]
        </tr>
    </thead>
    <tbody>
        [% FOREACH subscription IN subscriptions %]
            [% UNLESS subscription.cannotdisplay %]
                <tr id="row[% subscription.subscriptionid %]"
                     [% IF subscription.nbofcomment > highWarned  %]
                        class = "high-warned-row" title="this resource has been reported more than [% highWarned %] times, take care!"
                     [% ELSIF subscription.nbofcomment > warned  %]
                        class = "warned-row" title="this resource has been reported more than [% warned %] times, take care!"
                     [% ELSIF subscription.nbofcomment > lowWarned  %]
                        class = "highlighted-row" title="this resource has been reported more than [% lowWarned %] times, take care!"
                     [% END %]
                >
                <input hidden class="rowid" value="[% subscription.id %]">
                    <td>[% IF ( subscription.issn ) %][% subscription.issn %][% END %]</td>
                    <td>[% subscription.title %]</a></td>
                    <td>[% IF ( subscription.publishercode ) %][% subscription.publishercode %][% END %]</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>
		    <td>[% FOREACH comment IN subscription.comments %][% comment.message %] ([% comment.nb %]) <br>[% END %]</td>

                    [% UNLESS search_only %]
                      <td>
                          <button onclick="mana_use([% subscription.id %])"> <i class="fa fa-inbox"></i> Use</button>
                          <input hidden type="text" id="selectedcomment">
                          <select>
                              <option selected disabled>Report mistake</option>
                              [% FOREACH comment IN subscription.comments %]
                                  <option class="actionreport1" value="[% comment.id %]" onclick="mana_increment('[% comment.id %]', 'resource_comment', 'nb')"> [% comment.message %] ([% comment.nb %])
                              [% END %]
                                  <option data-toggle="modal" onclick="($('#selected_id').val($('.rowid').val()))" data-target="#comment_box"> other
                          </select>
                          <button hidden class="actionreport2" hidden> Cancel</button>
                      </td>
                    [% END %]
                </tr>
            [% END %]
        [% END %]
    </tbody>
</table>

<div id="comment_box" class="modal" tabindex="-1" role="dialog" aria-labelledby="mana_search_result_label" style="display: none;">
    <div class="modal-dialog modal-lg" style="width: 30%">
        <div class="modal-content" style="">
            <div class="modal-header">
                <button type="button" id="commentCloseButton" class="closebtn" aria-hidden="true">×</button>
                <h3 id="mana_submit_comment"> Please enter a new commment (max 35 caracters)</h3>
            </div>
            <div class="modal-body">
                <form>
                    <input hidden id="selected_id" value="">
                    <input type="text" id="manamsg"> Comment:
                </form>
                <button id="CommentButton"> Comment </button>
            </div>
        </div>
    </div>
</div>




            [% ELSE %]
                <div class="btn-group"><a id="newsubscription" class="btn btn-default btn-sm" href="/cgi-bin/koha/serials/subscription-add.pl"><i class="fa fa-plus"></i> New subscription</a></div>
            [% END %]
            [% IF Koha.Preference('Mana') and Koha.Preference('AutoShareWithMana').grep('subscription').size == 0 %]
                [% IF one_language_enabled==0 or mana_id %]
                    <div class="btn-group"><a data-toggle="modal" data-toggle="tooltip" title="Share the subscription with other librairies. Your email address will be associated to your sharing." data-target="#mana_share_modal" class="btn btn-default btn-sm"><i class="fa fa-share-alt"></i> Share</a></div>
                [% ELSE %]
                    <div class="btn-group" data-toggle="tooltip" title="Share the subscription with other libraries. Your email address will be associated to your sharing."><a class="btn btn-default btn-sm" onclick="share()"><i class="fa fa-share-alt"></i> Share</a></div>
                [% END %]
            [% END %]
        [% END %]

            <div class="modal-body">
                [% IF (mana_id) %]
                    <div class="alert">
                        <p>Your subscription is already linked with a Mana subscription model. Share it if you have made modifications, otherwise it will do nothing.</p>
                    </div>
                [% END %]
                [% IF ( languages_loop ) %]
                    [% UNLESS ( one_language_enabled ) %]
                        <div class="rows">
                                <li><span class="label">Frequency: </span>
                            <ol>
                                <li><span class="label">Frequency : </span>
                                        [% frequency.description %]
                                </li>
                                <li><span class="label">Number pattern: </span>
                                    [% numberpattern.label %]
                                </li>
                            </ol>

                        <div class="rows">
                            <form method="get" id="mana_share_form" action="/cgi-bin/koha/serials/subscription-detail.pl" class="validated" >
                                <fieldset>
                                    <label for="mana_language">Language:</label>
                                    <select id="mana_language" name="mana_language">
                                        [% FOREACH languages_loo IN languages_loop %]
                                            [% IF ( languages_loo.group_enabled ) %]

Lines 12-17 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/admin-home.tt (+8 lines)
12	<div id="doc" class="yui-t7">	12	<div id="doc" class="yui-t7">
13	<div id="bd">	13	<div id="bd">
14	<div id="yui-main" class="sysprefs">	14	<div id="yui-main" class="sysprefs">
		15	[% IF ( Koha.Preference('Mana') == 2) %]
		16	<fieldset>
		17	<p><center> You haven't decided if you want to activate Mana Knowlede Base, please let us know by clicking<center></p>
		18	<a href=/cgi-bin/koha/admin/preferences.pl?tab=&op=search&searchfield=request+to+mana+webservice><center>Here</center></a>
		19	</fieldset>
		20	[% END %]
		21
		22
15	<div class="yui-g"><h1>Koha administration</h1></div>	23	<div class="yui-g"><h1>Koha administration</h1></div>
16	<div class="yui-g">	24	<div class="yui-g">
17		25

Lines 51-59 Web services: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/web_services.pref (-3 / +9 lines)
51	-	51	-
52	- pref: Mana	52	- pref: Mana
53	choices:	53	choices:
54	yes: Enable	54	0: Disable
55	no: Disable	55	1: Enable
56	- request to Mana Webservice. Mana centralize commun information between other Koha to facilitate the creation of new subscriptions, vendors, report queries etc... You can search, share, import and comment the content of Mana.	56	2: No, let me think about it
		57	- request to Mana Webservice. Mana centralize commun information between other Koha to facilitate the creation of new subscriptions, vendors, report queries etc... You can search, share, import and comment the content of Mana. The informations shared with Mana KB are shared under the CC-0 license. More infos about CC-0 license on https://creativecommons.org/choose/zero/
		58	-
		59	- 'Fields automatically shared with mana'
		60	- pref: AutoShareWithMana
		61	multiple:
		62	subscription: Subscriptions
57	Reporting:	63	Reporting:
58	-	64	-
59	- Only return	65	- Only return

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/mana/mana-report-search-result.tt (+1 lines)
	1	[% INCLUDE 'mana/mana-report-search-result.inc' %]

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/mana/mana-subscription-search-result.tt (+1 lines)
	1	[% INCLUDE 'mana/mana-subscription-search-result.inc' %]

Lines 67-72 function load_group_subgroups () { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/guided_reports_start.tt (-7 / +287 lines)
67	}	67	}
68	}	68	}
69		69
		70	function share() {
		71	window.location="/cgi-bin/koha/reports/guided_reports.pl?phase=Save";
		72	}
		73
70	$(document).ready(function(){	74	$(document).ready(function(){
71	$('#limit').change(function() {	75	$('#limit').change(function() {
72	$('#limitselect').submit();	76	$('#limitselect').submit();
Lines 77-82 $(".goback").on("click",function(e){ Link Here
77	window.history.back();	81	window.history.back();
78	});	82	});
79		83
		84	$(".mana_search_button").on("click",function(){
		85	mana_search($(this).prev().val());
		86	});
		87
		88	$(".ShareButton").on("click", function(){
		89	if($(this).closest("tr").find(".report_notes").text().length < 20 \|\| $(this).closest("tr").find(".report_name").text().length < 20){
		90	$("#shared_infos").hide();
		91	$("#ManaShareButton").hide();
		92	$("#noterror").show();
		93	}
		94	else{
		95	$("#shared_id").html($(this).closest("tr").find(".report_id").text());
		96	$("#shared_name").html($(this).closest("tr").find(".report_name").text());
		97	$("#shared_sql").html($(this).closest("tr").find(".report_sql").val());
		98	$("#shared_type").html($(this).closest("tr").find(".report_type").text());
		99	$("#shared_group").html($(this).closest("tr").find(".report_group").text());
		100	$("#shared_notes").html($(this).closest("tr").find(".report_notes").text());
		101	}
		102	});
		103
		104	$('#search_form').submit(function () {
		105	return false;
		106	});
		107
80	$("#addColumn").on("click",function(){	108	$("#addColumn").on("click",function(){
81	addColumn();	109	addColumn();
82	});	110	});
Lines 254-260 $("#delColumn").on("click",function(){ Link Here
254	});	282	});
255	[% END %]	283	[% END %]
256	});	284	});
257	//]]>	285
		286	function mana_increment(mana_id, resourcename, fieldvalue, stepvalue = 1){
		287	$.ajax( {
		288	type: "POST",
		289	url: "/cgi-bin/koha/svc/mana/addvaluetofield",
		290	data: {id: mana_id, field: fieldvalue, resource: resourcename, step: stepvalue},
		291	datatype: "json",
		292	}).done( function() {
		293	}).fail( function(){ });
		294	}
		295
		296	function mana_use( mana_id ){
		297	$.ajax( {
		298	type:"POST",
		299	url: "/cgi-bin/koha/svc/mana/use",
		300	data: {id:mana_id, resource: 'report', saveinbase: 1},
		301	dataType: "json",
		302	})
		303	.done( function (result){
		304	window.location = ("/cgi-bin/koha/reports/guided_reports.pl?reports=").concat(result.id).concat("&phase=Show%20SQL");
		305	})
		306	.fail( function ( foo, msg, longmsg){
		307	});
		308	}
		309
		310	function mana_search( textquery ){
		311	$.ajax({
		312	type: "POST",
		313	url: "/cgi-bin/koha/svc/mana/search",
		314	data: {biblionumber: $("#biblionumber").val(), resource: 'report', id: textquery, usecomments: 1},
		315	dataType: "html",
		316	})
		317	.done( function( result ) {
		318	$("#mana_search_result .modal-body").html(result);
		319	$("#mana_search_result_label").text("Results from Mana Knowledge Base");
		320	$("#mana_results_datatable").dataTable($.extend(true, {}, dataTablesDefaults,{
		321	"sPaginationType":"four_button",
		322	"autoWidth": false,
		323	"columnDefs": [
		324	{ "width": "35%", "targets": 1 }
		325	],
		326	"aoColumnDefs": [
		327	{ 'bSortable': false, "bSearchable": false, 'aTargets': [ 'NoSort' ] },
		328	{ "sType": "title-string", "aTargets" : [ "title-string" ] },
		329	{ 'sType': "anti-the", 'aTargets' : [ 'anti-the'] }
		330	]
		331	}));
		332	if($("td.dataTables_empty").length == 0){
		333	$("#mana_search").show();
		334	}
		335
		336	$( "select[class='actionreport1']" ).show();
		337	$( "button[class='actionreport2']" ).hide();
		338	$("#CommentButton").on("click", function(){
		339	var resource_type = "report";
		340	var target_id = $("#selected_id").val();
		341	var manamsg = $("#manamsg").val();
		342	mana_comment(target_id, manamsg, resource_type);
		343	$("#comment_box").modal("hide");
		344	});
		345
		346	$(".showbutton").on("click", function(){
		347	$(this).parent().hide();
		348	$(this).parent().next().show();
		349	});
350
351	$("a[class='hidebutton']").on("click", function(){
352	$(this).parent().hide();
353	$(this).parent().prev().show();
354	});
355
356	$("#commentCloseButton").on("click", function(){
357	$("#comment_box").modal("hide");
358	});
359
360	$(".actionreport1").on("click", function(){
361	$("#selectedcomment").val($(this).val());
362	$(this).parent("select").hide();
363	$(this).parent("select").next().show();
364	});
365
366	$(".actionreport2").on("click", function(){
367	$(this).hide();
368	$(this).prev().show();
369	mana_increment($("#selectedcomment").val(), 'resource_comment', 'nb', -1);
370	});
371	}).fail( function( result ){
372	});
373	}
374
375	function mana_comment( target_id, manamsg, resource_type ){
376	$.ajax( {
377	type: "POST",
378	url: "/cgi-bin/koha/svc/mana/share",
379	data: {message: manamsg, resource: resource_type , resource_id: target_id},
380	datatype: "json",
381	})
382	}
383
384
385
258	</script>	386	</script>
259	</head>	387	</head>
260	<body id="rep_guided_reports_start" class="rep">	388	<body id="rep_guided_reports_start" class="rep">
Lines 338-348 canned reports and writing custom SQL reports.</p> Link Here
338	</form>	466	</form>
339	[% END %]	467	[% END %]
340		468
		469	<<<<<<< be4951d946ddf3f143ff8901144c5eb70d83bbde
341	[% IF report_converted %]	470	[% IF report_converted %]
342	<div class="dialog message">	471	<div class="dialog message">
343	The report "[% report_converted %]" has been converted.	472	The report "[% report_converted %]" has been converted.
344	</div>	473	</div>
345	[% END %]	474	[% END %]
		475	=======
		476	<div id="mana_search_result" class="modal fade" tabindex="-1" role="dialog" aria-labelledby="mana_search_result_label" style="width: 100%; left:0%; margin-left: auto; display: none;">
		477	<div class="modal-dialog modal-lg">
		478	<div class="modal-content">
		479	<div class="modal-header">
		480	<button type="button" class="closebtn" data-dismiss="modal" aria-hidden="true">×</button>
		481	<h3 id="mana_search_result_label"> Mana Search</h3>
		482	</div>
		483	<div>
		484	<form id="search_form" style="margin-left: 5%">
		485	Please enter a few key words:
		486	<input type=text id=mana_search_field>
		487	<input type=button class="mana_search_button" value="Search">
		488	</form>
		489	<div class="modal-body">
		490	</div>
		491	</div>
		492	</div>
		493	</div>
		494	</div>
		495
		496	>>>>>>> Bug 17047 SQL reports management with Mana-KB
346		497
347	[% IF ( saved1 ) %]	498	[% IF ( saved1 ) %]
348	[% IF ( savedreports ) %]<h1>Saved reports</h1>	499	[% IF ( savedreports ) %]<h1>Saved reports</h1>
Lines 361-366 canned reports and writing custom SQL reports.</p> Link Here
361	<option value="">All</option>	512	<option value="">All</option>
362	</select>	513	</select>
363	</div>	514	</div>
		515	<div style="display:inline-block">
		516	[% IF (manamsg == 'success') %]
		517	<div id="mana_search" class="dialog message">
		518	<p> Shared successfully! Thanks for your help.</p>
		519	</div>
		520	[% ELSIF (manamsg == 'fail') %]
		521	<div id="mana_search" class="dialog message">
		522	<p> An error occured while sharing, please try again later.</p>
		523	</div>
		524	[% END %]
		525
		526	[% IF (Koha.Preference('Mana') == 1) %]
		527	<div id="mana_search" class="dialog message">
		528	<p> You want more reports? Check the Mana Knowledge Base <p> <a style="cursor:pointer" data-toggle="modal" data-target="#mana_search_result">Quick Search</a></p>
		529	</div>
		530	[% END %]
		531
		532	</script>
		533	<h1> [% savedreport.sql %]</h1>
364	<form action="/cgi-bin/koha/reports/guided_reports.pl" id="reports_form" method="post">	534	<form action="/cgi-bin/koha/reports/guided_reports.pl" id="reports_form" method="post">
365	<input type="hidden" name="phase" value="Delete Multiple" />	535	<input type="hidden" name="phase" value="Delete Multiple" />
366	<table id="table_reports">	536	<table id="table_reports">
Lines 387-409 canned reports and writing custom SQL reports.</p> Link Here
387	<tbody>	557	<tbody>
388	[% FOREACH savedreport IN savedreports %]	558	[% FOREACH savedreport IN savedreports %]
389	[% UNLESS ( loop.odd ) %]<tr class="odd">[% ELSE %]<tr>[% END %]	559	[% UNLESS ( loop.odd ) %]<tr class="odd">[% ELSE %]<tr>[% END %]
390	<td>	560	<td class="report_checkbox">
391	[% IF ( CAN_user_reports_delete_reports ) %] <!-- not break CSS -->	561	[% IF ( CAN_user_reports_delete_reports ) %] <!-- not break CSS -->
392	<input type="checkbox" name="ids" value="[% savedreport.id %]" />	562	<input type="checkbox" name="ids" value="[% savedreport.id %]" />
393	[% END %]	563	[% END %]
		564	<input hidden class="report_sql" value="[% savedreport.savedsql %]">
394	</td>	565	</td>
395	<td><label for="ids">[% savedreport.id %]</label></td>	566	<td class="report_id"><label for="ids">[% savedreport.id %]</label></td>
396	<td>	567	<td class="report_name">
397	[% IF ( savedreport.report_name ) %]	568	[% IF ( savedreport.report_name ) %]
398	[% savedreport.report_name %]	569	[% savedreport.report_name %]
399	[% ELSE %]	570	[% ELSE %]
400	[ no name ]	571	[ no name ]
401	[% END %]	572	[% END %]
402	</td>	573	</td>
403	<td>[% savedreport.type %]</td>	574	<td class="report_type">[% savedreport.type %]</td>
404	<td>[% savedreport.groupname %]</td>	575	<td class="report_group">[% savedreport.groupname %]</td>
405	<td>[% savedreport.subgroupname %]</td>	576	<td>[% savedreport.subgroupname %]</td>
406	<td>[% savedreport.notes %]</td>	577	<td class="report_notes">[% savedreport.notes %]</td>
407	<td>[% savedreport.borrowersurname %][% IF ( savedreport.borrowerfirstname ) %], [% savedreport.borrowerfirstname %][% END %] ([% savedreport.borrowernumber %])</td>	578	<td>[% savedreport.borrowersurname %][% IF ( savedreport.borrowerfirstname ) %], [% savedreport.borrowerfirstname %][% END %] ([% savedreport.borrowernumber %])</td>
408	<td><span title="[% savedreport.date_created %]">[% savedreport.date_created \| $KohaDates %]</span></td>	579	<td><span title="[% savedreport.date_created %]">[% savedreport.date_created \| $KohaDates %]</span></td>
409	<td><span title="[% savedreport.last_modified %]">[% savedreport.last_modified \| $KohaDates with_hours => 1 %]</span></td>	580	<td><span title="[% savedreport.last_modified %]">[% savedreport.last_modified \| $KohaDates with_hours => 1 %]</span></td>
Lines 443-448 canned reports and writing custom SQL reports.</p> Link Here
443	<li><a href="/cgi-bin/koha/reports/guided_reports.pl?reports=[% savedreport.id %]&phase=Edit%20SQL"><i class="fa fa-pencil"></i> Edit</a></li>	614	<li><a href="/cgi-bin/koha/reports/guided_reports.pl?reports=[% savedreport.id %]&phase=Edit%20SQL"><i class="fa fa-pencil"></i> Edit</a></li>
444	<li><a title="Duplicate this saved report" href="/cgi-bin/koha/reports/guided_reports.pl?phase=Create report from SQL&sql=[% savedreport.savedsql \|uri %]&reportname=[% savedreport.report_name \|uri %]&notes=[% savedreport.notes \|uri %]"><i class="fa fa-copy"></i> Duplicate</a></li>	615	<li><a title="Duplicate this saved report" href="/cgi-bin/koha/reports/guided_reports.pl?phase=Create report from SQL&sql=[% savedreport.savedsql \|uri %]&reportname=[% savedreport.report_name \|uri %]&notes=[% savedreport.notes \|uri %]"><i class="fa fa-copy"></i> Duplicate</a></li>
445	[% END %]	616	[% END %]
		617	[% IF (Koha.Preference('Mana') == 1) %]
		618	<li><a class="ShareButton" data-toggle="modal" href="#mana_share_report" title="Share your report with Mana Knowledge Base"><i class="fa fa-share-alt"></i> Share</a></li>
		619	[% END %]
446	<li><a href="/cgi-bin/koha/tools/scheduler.pl?id=[% savedreport.id %]"><i class="fa fa-clock-o"></i> Schedule</a></li>	620	<li><a href="/cgi-bin/koha/tools/scheduler.pl?id=[% savedreport.id %]"><i class="fa fa-clock-o"></i> Schedule</a></li>
447	[% IF ( CAN_user_reports_delete_reports ) %]	621	[% IF ( CAN_user_reports_delete_reports ) %]
448	<li><a class="confirmdelete" title="Delete this saved report" href="/cgi-bin/koha/reports/guided_reports.pl?reports=[% savedreport.id %]&phase=Delete%20Saved"><i class="fa fa-trash"></i> Delete</a></li>	622	<li><a class="confirmdelete" title="Delete this saved report" href="/cgi-bin/koha/reports/guided_reports.pl?reports=[% savedreport.id %]&phase=Delete%20Saved"><i class="fa fa-trash"></i> Delete</a></li>
Lines 455-460 canned reports and writing custom SQL reports.</p> Link Here
455	[% END %]	629	[% END %]
456	</tbody>	630	</tbody>
457	</table>	631	</table>
		632	</div>
458	[% IF ( CAN_user_reports_delete_reports ) %]	633	[% IF ( CAN_user_reports_delete_reports ) %]
459	<fieldset class="action">	634	<fieldset class="action">
460	<input type="submit" value="Delete selected" />	635	<input type="submit" value="Delete selected" />
Lines 495-500 canned reports and writing custom SQL reports.</p> Link Here
495	[% END %]	670	[% END %]
496	[% END %]	671	[% END %]
497		672
		673	<div id="mana_share_report" class="modal fade" tabindex="-1" role="dialog" arialabelledby="mana_share_modal_label" style="display: none;">
		674	<div class="modal-dialog">
		675	<div class="modal-content">
		676	<div class="modal-header">
		677	<h3 id="mana_share_modal_label">Share with Mana</h3>
		678	</div>
		679	<div class="modal-body">
		680	[% IF (mana_id) %]
		681	<div class="alert">
		682	<p>Your subscription is already linked with a Mana subscription model. Share it if you have made modifications, otherwise it will do nothing.</p>
		683	</div>
		684	[% END %]
		685	[% IF ( languages_loop ) %]
		686	[% UNLESS ( one_language_enabled ) %]
		687	<label id="noteerror" type="hidden">Please enter a report name and descriptive note before sharing (minimum 20 characters)</label>
		688	<div id="shared_infos" class="rows">
		689	<li> <span class="label">Id: </span><div id="shared_id"></div>
		690	</li>
		691	<li> <span class="label">Name: </span><div id="shared_name"></div>
		692	</li>
		693	<li> <span class="label">SQL: </span><div id="shared_sql"></div>
		694	</li>
		695	<li> <span class="label">Group: </span><div id="shared_group"></div>
		696	</li>
		697	<li> <span class="label">Type: </span><div id="shared_type"></div>
		698	</li>
		699	<li> <span class="label">Notes: </span><div id="shared_notes"></div>
		700	</li>
		701
		702	</div>
		703	<div class="rows">
		704	<form method="post" id="mana_share_form" action="/cgi-bin/koha/reports/guided_reports.pl?phase=Share" class="validated" >
		705	<input type="hidden" name="phase" value="Share">
		706
		707	<fieldset>
		708	<label for="mana_language">Language:</label>
		709	<select id="mana_language" name="mana_language">
		710	[% FOREACH languages_loo IN languages_loop %]
		711	[% IF ( languages_loo.group_enabled ) %]
		712	[% IF ( languages_loo.plural ) %]
		713	[% FOREACH sublanguages_loo IN languages_loo.sublanguages_loop %]
		714	[% IF ( sublanguages_loo.enabled ) %]
		715	[% IF ( sublanguages_loo.sublanguage_current ) %]
		716	<option value="[% languages_loo.rfc4646_subtag %]" selected>
		717	[% sublanguages_loo.native_description %]
		718	[% sublanguages_loo.script_description %]
		719	[% sublanguages_loo.region_description %]
		720
		721	[% sublanguages_loo.variant_description %]
		722	([% sublanguages_loo.rfc4646_subtag %])
		723	</option>
		724	[% ELSE %]
		725	<option value="[% languages_loo.rfc4646_subtag %]">
		726	[% sublanguages_loo.native_description %]
		727	[% sublanguages_loo.script_description %]
		728	[% sublanguages_loo.region_description %]
		729	[% sublanguages_loo.variant_description %]
		730	([% sublanguages_loo.rfc4646_subtag %])
		731	</option>
		732	[% END %]
		733	[% END %]
		734	[% END %]
		735	[% ELSE %]
		736	[% IF ( languages_loo.group_enabled ) %]
737	[% IF ( languages_loo.current ) %]
738	<option value="[% languages_loo.rfc4646_subtag %]" selected>
739	[% IF ( languages_loo.native_description ) %]
740	[% languages_loo.native_description %]
741	[% ELSE %]
742	[% languages_loo.rfc4646_subtag %]
743	[% END %]
744	</option>
745	[% ELSE %]
746	<option value="[% languages_loo.rfc4646_subtag %]">
747	[% IF ( languages_loo.native_description ) %]
748	[% languages_loo.native_description %]
749	[% ELSE %]
750	[% languages_loo.rfc4646_subtag %]
751	[% END %]
752	</option>
753	[% END %]
754	[% END %]
755	[% END %]
756	[% END %]
757	[% END %]
758	</select>
759	<input type="hidden" id="reportid" name="reportid" value="[% savedreport.id %]"/>
760	</fieldset>
761	</form>
762	</div>
763	[% END %]
764	[% END %]
765	</div>
766	<div class="modal-footer">
767	<button class="btn" data-dismiss="modal" aria-hidden="true">Close</button>
768	[% IF one_language_enabled==0 %]
769	<button id="ManaShareButton" type="submit" form="mana_share_form" class="btn btn-primary">Share</button>
770	[% ELSE %]
771	<div id="ManaShareButton" class="btn-group"><a class="btn btn-primary"'onclick="share()">Share</a></div>
772	[% END %]
773	</div>
774	</div>
775	</div>
776	</div>
777
498		778
499	[% IF ( build1 ) %]	779	[% IF ( build1 ) %]
500	[% IF ( cache_error) %]	780	[% IF ( cache_error) %]

Lines 409-422 function mana_search() { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/subscription-add.tt (-10 / +76 lines)
409	$.ajax({	409	$.ajax({
410	type: "POST",	410	type: "POST",
411	url: "/cgi-bin/koha/svc/mana/search",	411	url: "/cgi-bin/koha/svc/mana/search",
412	data: {biblionumber : $("#biblionumber").val()},	412	data: {id: $("#biblionumber").val(), resource: 'subscription', usecomments: 1},
413	dataType: "html",	413	dataType: "html",
414	})	414	})
415	.done( function( result ) {	415	.done( function( result ) {
416	$("#mana_search_result .modal-body").html(result);	416	$("#mana_search_result .modal-body").html(result);
417	$("#mana_search_result_label").text("Results from Mana");	417	$("#mana_search_result_label").text("Results from Mana Knowledge Base");
418	$("#mana_results_datatable").dataTable($.extend(true, {}, dataTablesDefaults, {	418	$("#mana_results_datatable").dataTable($.extend(true, {}, dataTablesDefaults, {
419	"sPaginationType": "four_button",	419	"sPaginationType": "four_button",
		420	"order":[[4, "desc"], [5, "desc"]],
		421	"autoWidth": false,
		422	"columnDefs": [
		423	{ "width": "35%", "targets": 1 }
		424	],
420	"aoColumnDefs": [	425	"aoColumnDefs": [
421	{ 'bSortable': false, "bSearchable": false, 'aTargets': [ 'NoSort' ] },	426	{ 'bSortable': false, "bSearchable": false, 'aTargets': [ 'NoSort' ] },
422	{ "sType": "title-string", "aTargets" : [ "title-string" ] },	427	{ "sType": "title-string", "aTargets" : [ "title-string" ] },
Lines 426-442 function mana_search() { Link Here
426	if($("td.dataTables_empty").length == 0){	431	if($("td.dataTables_empty").length == 0){
427	$("#mana_search").show();	432	$("#mana_search").show();
428	}	433	}
		434	$( "select[class='actionreport1']" ).show();
		435	$( "button[class='actionreport2']" ).hide();
		436
		437	$("#CommentButton").on("click", function(){
		438	var resource_type = "subscription";
		439	var target_id = $("#selected_id").val();
		440	var manamsg = $("#manamsg").val();
		441	mana_comment(target_id, manamsg, resource_type);
		442	$("#comment_box").modal("hide");
		443	});
		444
		445	$("#commentCloseButton").on("click", function(){
		446	$("#comment_box").modal("hide");
		447	});
		448
		449	$(".actionreport1").on("click", function(){
		450	$("#selectedcomment").val($(this).val());
		451	$(this).parent("select").hide();
		452	$(this).parent("select").next().show();
		453	});
		454
		455	$(".actionreport2").on("click", function(){
		456	$(this).hide();
		457	$(this).prev().show();
		458	mana_increment($("#selectedcomment").val(), 'resource_comment', 'nb', -1);
		459	});
		460
429	}).fail(function(result){	461	}).fail(function(result){
430	});	462	});
431	}	463	}
432		464
		465	function mana_comment( target_id, manamsg, resource_type ){
		466	$.ajax( {
		467	type: "POST",
		468	url: "/cgi-bin/koha/svc/mana/share",
		469	data: {message: manamsg, resource: resource_type , resource_id: target_id},
		470	datatype: "json",
		471	})
		472	}
		473
		474	function mana_increment(mana_id, resource, fieldvalue, stepvalue = 1){
		475	$.ajax( {
		476	type: "POST",
		477	url: "/cgi-bin/koha/svc/mana/addvaluetofield",
		478	data: {id: mana_id, resource: resource, field: fieldvalue, step: stepvalue},
		479	datatype: "json",
		480	})
		481	}
		482
433	function mana_use(mana_id){	483	function mana_use(mana_id){
434	$("tr").removeClass("selected");	484	$("tr").removeClass("selected");
435	$("#row"+mana_id).addClass("selected");	485	$("#row"+mana_id).addClass("selected");
436	$.ajax( {	486	$.ajax( {
437	type: "POST",	487	type: "POST",
438	url: "/cgi-bin/koha/svc/mana/use",	488	url: "/cgi-bin/koha/svc/mana/use",
439	data: {id : mana_id},	489	data: {id: mana_id, resource: 'subscription'},
440	dataType: "json",	490	dataType: "json",
441	})	491	})
442	.done(function(result){	492	.done(function(result){
Lines 511-516 function removeDisabledAttr() { Link Here
511		561
512		562
513	$(document).ready(function() {	563	$(document).ready(function() {
		564
		565
		566
		567
		568	mana_search();
		569	$("#myid").on("click", function(){
		570	debugger;
		571	})
514	$("#displayexample").hide();	572	$("#displayexample").hide();
515	$("#mana_search_result").modal("hide");	573	$("#mana_search_result").modal("hide");
516	$("#aqbooksellerid").on('keypress', function(e) {	574	$("#aqbooksellerid").on('keypress', function(e) {
Lines 619-625 $(document).ready(function() { Link Here
619	});	677	});
620	$("#subscription_add_next").on("click",function(){	678	$("#subscription_add_next").on("click",function(){
621	if ( Check_page1() ) {	679	if ( Check_page1() ) {
622	[% IF Koha.Preference('Mana') %]	680	[% IF Koha.Preference('Mana')== 1 %]
623	mana_search();	681	mana_search();
624	[% END %]	682	[% END %]
625	show_page_2();	683	show_page_2();
Lines 649-654 $(document).ready(function() { Link Here
649	e.preventDefault();	707	e.preventDefault();
650	testPredictionPattern();	708	testPredictionPattern();
651	});	709	});
		710
		711
652	});	712	});
653	//]]>	713	//]]>
654	</script>	714	</script>
Lines 845-852 $(document).ready(function() { Link Here
845		905
846	<div id="page_2">	906	<div id="page_2">
847	<div class="yui-u first">	907	<div class="yui-u first">
		908	[% IF ( Koha.Preference('Mana') == 2) %]
		909	<fieldset>
		910	<p><center>You haven't activated the Mana Knowledge Base, click
		911	<a href=/cgi-bin/koha/admin/preferences.pl?tab=&op=search&searchfield=request+to+mana+webservice>here</a>
		912	to configure.</center></p>
		913	</fieldset>
		914	[% END %]
		915
848	<div id="mana_search" class="dialog message">	916	<div id="mana_search" class="dialog message">
849	<p>Frequency and Numbering pattern have been already proposed for this subscription on Mana. To show results, click <a style="cursor:pointer" data-toggle="modal" data-target="#mana_search_result">Here</a></p>	917	<p>Subscription found on Mana Knowledge Base:</p><p> <a style="cursor:pointer" data-toggle="modal" data-target="#mana_search_result">Quick fill</a></p>
850	</div>	918	</div>
851	<div id="subscription_form_planning">	919	<div id="subscription_form_planning">
852	<fieldset class="rows">	920	<fieldset class="rows">
Lines 1134-1150 $(document).ready(function() { Link Here
1134	</div>	1202	</div>
1135	</div>	1203	</div>
1136		1204
1137	<div id="mana_search_result" class="modal fade" tabindex="-1" role="dialog" aria-labelledby="mana_search_result_label" style="width: 90%; left:5%; margin-left: auto; display: none;">	1205	<div id="mana_search_result" class="modal fade" tabindex="-1" role="dialog" aria-labelledby="mana_search_result_label" style="width: 100%; left:0%; margin-left: auto; display: none;">
1138	<div class="modal-dialog modal-lg">	1206	<div class="modal-dialog modal-lg">
1139	<div class="modal-content">	1207	<div class="modal-content">
1140	<div class="modal-header">	1208	<div class="modal-header">
		1209	<button type="button" class="closebtn" data-dismiss="modal" aria-hidden="true">×</button>
1141	<h3 id="mana_search_result_label"></h3>	1210	<h3 id="mana_search_result_label"></h3>
1142	</div>	1211	</div>
1143	<div class="modal-body">	1212	<div class="modal-body">
1144	</div>	1213	</div>
1145	<div class="modal-footer">
1146	<button class="btn" data-dismiss="modal" aria-hidden="true">Close</button>
1147	</div>
1148	</div>	1214	</div>
1149	</div>	1215	</div>
1150	</div>	1216	</div>




use Koha::BiblioFrameworks;
use Koha::Libraries;
use Koha::Patron::Categories;
use Koha::SharedContent;

=head1 NAME


        }
    }
    $template->param(
        'manamsg' => $input->param('manamsg')||'',
        'saved1' => 1,
        'savedreports' => $reports,
        'usecache' => $usecache,


elsif ( $phase eq 'Save' ) {
    # Save the report that has just been built
    my $area = $input->param('area');
    my $sql  = $input->param('sql');
    my $type = $input->param('type');
    $template->param(

                    cache_expiry   => $cache_expiry,
                    public         => $public,
                } );

                logaction( "REPORTS", "ADD", $id, "$name | $sql" ) if C4::Context->preference("ReportsLog");
            $template->param(
                'save_successful' => 1,

    }
}

elsif ($phase eq 'Share'){
    my $result = Koha::SharedContent::manaShareInfos($input, $borrowernumber, $input->param('reportid'), 'report');
    if ( $result and ($result->{code} eq "200" or $result->{code} eq "201") ) {
        print $input->redirect("/cgi-bin/koha/reports/guided_reports.pl?phase=Use%20saved&manamsg=success");
    }else{
        print $input->redirect("/cgi-bin/koha/reports/guided_reports.pl?phase=Use%20saved&manamsg=fail");
    }
}
elsif ($phase eq 'Run this report'){
    # execute a saved report
    my $limit      = $input->param('limit') || 20;

Lines 375-381 sub redirect_add_subscription { Link Here

(-)a/serials/subscription-add.pl (-3 / +6 lines)
375	my $mana_id;	375	my $mana_id;
376	if ( $query->param('mana_id') ne "" ) {	376	if ( $query->param('mana_id') ne "" ) {
377	$mana_id = $query->param('mana_id');	377	$mana_id = $query->param('mana_id');
378	Koha::SharedContent::manaNewUserPatchRequest("subscription",$mana_id);	378	Koha::SharedContent::manaIncrementRequest("subscription",$mana_id, "nbofusers");
379	}	379	}
380	else {	380	else {
381	$mana_id = undef;	381	$mana_id = undef;
Lines 402-408 sub redirect_add_subscription { Link Here
402	$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate,	402	$staffdisplaycount, $opacdisplaycount, $graceperiod, $location, $enddate,
403	$skip_serialseq, $mana_id	403	$skip_serialseq, $mana_id
404	);	404	);
405		405	if ( grep { $_ eq "subscription" } split(/,/, C4::Context->preference('AutoShareWithMana')) ){
		406	my $result = Koha::SharedContent::manaShareInfos( $query, $loggedinuser, $subscriptionid, 'subscription');
		407	$template->param( mana_code => $result->{code} );
		408	}
406	my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );	409	my $additional_fields = Koha::AdditionalField->all( { tablename => 'subscription' } );
407	insert_additional_fields( $additional_fields, $biblionumber, $subscriptionid );	410	insert_additional_fields( $additional_fields, $biblionumber, $subscriptionid );
408		411
Lines 462-468 sub redirect_mod_subscription { Link Here
462	my $mana_id;	465	my $mana_id;
463	if ( defined( $query->param('mana_id') ) ) {	466	if ( defined( $query->param('mana_id') ) ) {
464	$mana_id = $query->param('mana_id');	467	$mana_id = $query->param('mana_id');
465	Koha::SharedContent::manaNewUserPatchRequest("subscription",$mana_id);	468	Koha::SharedContent::manaIncrementRequest("subscription",$mana_id, "nbofusers");
466	}	469	}
467	else {	470	else {
468	$mana_id = undef;	471	$mana_id = undef;




    }
}
elsif ( $op and $op eq "share" ) {
    my $result = Koha::SharedContent::manaShareInfos($query, $loggedinuser, $subscriptionid, 'subscription');
    if ( $query->param('mana_language') ) {
        $mana_language = $query->param('mana_language');
    }
    else {
        $mana_language = C4::Context->preference('language');
    }

    my $mana_email;
    if ( $loggedinuser ne 0 ) {
        my $borrower = Koha::Patrons->find($loggedinuser);
        $mana_email = $borrower->email
          if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
        $mana_email = $borrower->emailpro
          if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
        $mana_email =
          Koha::Libraries->find( C4::Context->userenv->{'branch'} )->branchemail
          if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
    }
    $mana_email = C4::Context->preference('KohaAdminEmailAddress')
      if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
    my %versions = C4::Context::get_versions();

    my $mana_info = {
        language    => $mana_language,
        kohaversion => $versions{'kohaVersion'},
        exportemail => $mana_email
    };
    my $sub_mana_info = Koha::Subscription::get_sharable_info($subscriptionid);
    $sub_mana_info = { %$sub_mana_info, %$mana_info };
    my $result = Koha::SharedContent::manaPostRequest( "subscription",
        $sub_mana_info );
    if ( $result->{code} eq "200" and $result->{code} eq "201" ) {
        my $subscription = Koha::Subscriptions->find($subscriptionid);
        $subscription->set( { mana_id => $result->{id} } )->store;
        $subs->{mana_id} = $result->{id};
    }
    $template->param( mana_code => $result->{code} );
    $subs->{mana_id} = $result->{id};
}

my $hasRouting = check_routing($subscriptionid);




#
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
#

use Modern::Perl;

use Koha::SharedContent;
use C4::Auth qw(check_cookie_auth);
use Koha::Report;

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' } );

use Modern::Perl;
use CGI qw ( -utf8 );

binmode STDOUT, ":encoding(UTF-8)";
print $input->header(-type => 'text/plain', -charset => 'UTF-8');
print to_json( $frequencyrecord );

my $result = Koha::SharedContent::manaGetRequestWithId($input->param('resource'), $input->param('id') );
my $package = "Koha::".ucfirst($input->param('resource'));
my $resource;

if ( $input->param( 'saveinbase' )) {
    $resource = { id => $package->new_from_mana($result->{data})->id };
}
else{
    $resource = $result->{data};
}
print(to_json($resource));




#!/usr/bin/perl

# Copyright 2017 BibLibre Baptiste Wojtkowski
#
# 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 Modern::Perl;

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::manaIncrementRequest($input->param('resource'), $input->param('id'), $input->param('field'), $input->param('step') );
return $result;




#!/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 2017 BibLibre Baptiste Wojtkowski
#
# 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 Modern::Perl;

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 $content;
$content->{resource_id} = $input->param("resource_id");
$content->{resource_type} = $input->param("resource");
$content->{message} = $input->param("message");
Koha::SharedContent::manaPostRequest('resource_comment', $content);

Return to bug 17047

Line 0 Link Here

(-)a/Koha/Report.pm (+82 lines)
		1	package Koha::Report;
		2
		3	# Copyright 2017 Biblibre Baptiste Wojtkowski
		4	#
		5	# This file is part of Koha.
		6	#
		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 3 of the License, or (at your option) any later
		10	# version.
		11	#
		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.
		15	#
		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.
		19
		20	use Modern::Perl;
		21
		22	use Carp;
		23
		24	use Koha::Database;
		25	use JSON;
		26	use Koha::Reports;
		27
		28	use base qw(Koha::Object);
		29
		30	=head1 NAME
		31
		32	Koha::Report - Koha Report Object Class
		33
		34	=head1 Ap
		35
		36	=head2 Class Methods
		37
		38	=cut
		39
		40	=head3 type
		41
		42	=cut
		43
		44	sub get_search_info {
		45	my $self=shift;
		46	my $sub_mana_info = { 'query' => shift };
		47	return $sub_mana_info;
		48	}
		49
		50	sub get_sharable_info{
		51	my $self=shift;
		52	my $shared_report_id=shift;
		53	my $report = Koha::Reports->find($shared_report_id);
		54	my $sub_mana_info = {
		55	'savedsql' => $report->savedsql,
		56	'report_name' => $report->report_name,
		57	'notes' => $report->notes,
		58	'report_group' => $report->report_group,
		59	'type' => $report->type,
		60	};
		61	return $sub_mana_info;
		62	}
		63
		64	sub new_from_mana{
65	my $self = shift;
66	my $data = shift;
67	delete $data->{exportemail};
68	delete $data->{kohaversion};
69	delete $data->{creationdate};
70	delete $data->{lastimport};
71	$data->{mana_id} = $data->{id};
72	delete $data->{id};
73	delete $data->{nbofusers};
74	delete $data->{language};
75	Koha::Report->new($data)->store;
76	}
77
78	sub _type {
79	return 'SavedSql';
80	}
81
82	1;

Line 0 Link Here

(-)a/Koha/Reports.pm (+58 lines)
	1	package Koha::Reports;
	2
	3	# Copyright 2017 Biblibre Baptiste Wojtkowski
	4	#
	5	# This file is part of Koha.
	6	#
	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 3 of the License, or (at your option) any later
	10	# version.
	11	#
	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.
	15	#
	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.
	19
	20	use Modern::Perl;
	21
	22	use Carp;
	23
	24	use Koha::Database;
	25
	26	use Koha::Report;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Serial - Koha Serial Object class
	33
	34	=head1 API
	35
	36	=head2 Class Methods
	37
	38	=cut
	39
	40	=head3 type
	41
	42	=cut
	43
	44	sub _type {
	45	return 'SavedSql';
	46	}
	47
	48	sub object_class {
	49	return 'Koha::Report';
	50	}
	51
	52	=head1 AUTHOR
	53
	54	Kyle M Hall <kyle@bywatersolutions.com>
	55
	56	=cut
	57
	58	1;

Line 0 Link Here

(-)a/Koha/SharedContent.pm (+90 lines)
		1	package Koha::SharedContent;
		2
		3	# Copyright 2016 BibLibre Morgane Alonso
		4	#
		5	# This file is part of Koha.
		6	#
		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 3 of the License, or (at your option) any later
		10	# version.
		11	#
		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.
		15	#
		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.
		19
		20	use Modern::Perl;
		21	use JSON;
		22	use HTTP::Request;
		23	use LWP::UserAgent;
		24
		25	our $MANA_IP = "http://10.25.159.107:5000";
		26
		27	sub manaRequest {
		28	my $mana_request = shift;
		29	my $result;
		30
		31	$mana_request->content_type('application/json');
		32	my $userAgent = LWP::UserAgent->new;
		33	my $response = $userAgent->request($mana_request);
		34
		35	if ( $response->code ne "204" ) {
		36	$result = from_json( $response->decoded_content );
		37	}
		38	$result->{code} = $response->code;
		39
		40	return $result if ( $response->code =~ /^2..$/ );
		41	}
		42
		43	sub manaNewUserPatchRequest {
		44	my $resource = shift;
		45	my $id = shift;
		46
		47	my $url = "$MANA_IP/$resource/$id.json/newUser";
		48	my $request = HTTP::Request->new( PATCH => $url );
		49
		50	return manaRequest($request);
		51	}
		52
		53	sub manaPostRequest {
		54	my $resource = shift;
		55	my $content = shift;
		56
		57	my $url = "$MANA_IP/$resource.json";
		58	my $request = HTTP::Request->new( POST => $url );
		59
		60	$content->{bulk_import} = 0;
		61	my $json = to_json( $content, { utf8 => 1 } );
		62	$request->content($json);
		63
		64	return manaRequest($request);
65	}
66
67	sub manaGetRequestWithId {
68	my $resource = shift;
69	my $id = shift;
70
71	my $url = "$MANA_IP/$resource/$id.json";
72	my $request = HTTP::Request->new( GET => $url );
73
74	return manaRequest($request);
75	}
76
77	sub manaGetRequest {
78	my $resource = shift;
79	my $parameters = shift;
80
81	$parameters = join '&',
82	map { defined $parameters->{$_} ? $_ . "=" . $parameters->{$_} : () }
83	keys %$parameters;
84	my $url = "$MANA_IP/$resource.json?$parameters";
85	my $request = HTTP::Request->new( GET => $url );
86
87	return manaRequest($request);
88	}
89
90	1;

Line 0 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/mana/mana-report-search-result.inc (+83 lines)
		1	[% USE KohaDates %]
		2	[% USE Koha %]
		3	[% USE AuthorisedValues %]
		4	[% USE Branches %]
		5
		6	<table id="mana_results_datatable" width=100%>
		7	<thead>
		8	<tr>
		9	<th>Report Name</th>
		10	<th class="anti-the" width=35%>Notes</th>
		11	<th>Type</th>
		12	<th title="number of libraries using this pattern"># of users</th>
		13	<th class="title-string" title="last time a library used this pattern">Last import</th>
		14	<th> Comments </th>
		15	[% UNLESS search_only %]
		16	<th class="NoSort">Actions</th>
		17	[% END %]
		18	</tr>
		19	</thead>
		20	<tbody>
		21	[% FOREACH report IN reports %]
		22	[% UNLESS report.cannotdisplay %]
		23	<tr id="row[% report.id %]"
		24	[% IF report.nbofcomment > highWarned %]
		25	class = "high-warned-row"
		26	[% ELSIF report.nbofcomment > warned %]
		27	class = "warned-row"
		28	[% ELSIF report.nbofcomment > lowWarned %]
		29	class = "highlighted-row"
		30	[% END %]
		31	>
		32	<input hidden class="rowid" value="[% report.id %]">
		33	<td>[% IF ( report.report_name ) %][% report.report_name %][% END %]</td>
		34	<td title="[% report.savedsql %]"><div>
		35	[% IF report.notes.length > 200 %]
		36	[% report.notes.substr(0,200) %]<a class="showbutton">Show More</a></div><div hidden>
		37	[% END %]
		38	[% report.notes %]
		39	[% IF report.notes.length > 200 %]
		40	<a class="hidebutton">Show Less</a></div> </td>
		41	[% END %]
		42	<td> [% report.type %] </td>
		43	<td>[% IF ( report.nbofusers ) %][% report.nbofusers %][% END %]</td>
		44	<td><span title="[% report.lastimport %]">[% report.lastimport \| $KohaDates %]</span></td>
		45	<td>[% FOREACH comment IN report.comments %][% comment.message %] ([% comment.nb %]) <br>[% END %]</td>
		46
		47	[% UNLESS search_only %]
		48	<td>
		49	<button onclick="mana_use([% report.id %])"> <i class="fa fa-inbox"></i> Use</button>
		50	<input hidden type="text" id="selectedcomment">
		51	<select>
		52	<option selected disabled>Report mistake</option>
		53	[% FOREACH comment IN report.comments %]
		54	<option class="actionreport1" value="[% comment.id %]" onclick="mana_increment('[% comment.id %]', 'resource_comment', 'nb')"> [% comment.message %] ([% comment.nb %])
		55	[% END %]
		56	<option data-toggle="modal" onclick="($('#selected_id').val($('.rowid').val()))" data-target="#comment_box"> other
		57	</select>
		58	<button hidden class="actionreport2" hidden> Cancel</button>
		59	</td>
		60	[% END %]
		61	</tr>
		62	[% END %]
		63	[% END %]
		64	</tbody>
65	</table>
66
67	<div id="comment_box" class="modal" tabindex="-1" role="dialog" aria-labelledby="mana_search_result_label" style="display: none;">
68	<div class="modal-dialog modal-lg" style="width: 30%">
69	<div class="modal-content" style="">
70	<div class="modal-header">
71	<button type="button" id="commentCloseButton" class="closebtn" aria-hidden="true">×</button>
72	<h3 id="mana_submit_comment"> Please enter a new commment (max 35 caracters)</h3>
73	</div>
74	<div class="modal-body">
75	<form>
76	<input hidden id="selected_id" value="">
77	<input type="text" id="manamsg">
78	</form>
79	<button id="CommentButton"> Comment </button>
80	</div>
81	</div>
82	</div>
83	</div>

Lines 37-42 use Koha::AuthorisedValues; Link Here

(-)a/reports/guided_reports.pl (-1 / +12 lines)
37	use Koha::BiblioFrameworks;	37	use Koha::BiblioFrameworks;
38	use Koha::Libraries;	38	use Koha::Libraries;
39	use Koha::Patron::Categories;	39	use Koha::Patron::Categories;
		40	use Koha::SharedContent;
40		41
41	=head1 NAME	42	=head1 NAME
42		43
Lines 144-149 elsif ( $phase eq 'Build new' ) { Link Here
144	}	145	}
145	}	146	}
146	$template->param(	147	$template->param(
		148	'manamsg' => $input->param('manamsg')\|\|'',
147	'saved1' => 1,	149	'saved1' => 1,
148	'savedreports' => $reports,	150	'savedreports' => $reports,
149	'usecache' => $usecache,	151	'usecache' => $usecache,
Lines 539-545 elsif ( $phase eq 'Build report' ) { Link Here
539		541
540	elsif ( $phase eq 'Save' ) {	542	elsif ( $phase eq 'Save' ) {
541	# Save the report that has just been built	543	# Save the report that has just been built
542	my $area = $input->param('area');	544	my $area = $input->param('area');
543	my $sql = $input->param('sql');	545	my $sql = $input->param('sql');
544	my $type = $input->param('type');	546	my $type = $input->param('type');
545	$template->param(	547	$template->param(
Lines 643-648 elsif ( $phase eq 'Save Report' ) { Link Here
643	cache_expiry => $cache_expiry,	645	cache_expiry => $cache_expiry,
644	public => $public,	646	public => $public,
645	} );	647	} );
		648
646	logaction( "REPORTS", "ADD", $id, "$name \| $sql" ) if C4::Context->preference("ReportsLog");	649	logaction( "REPORTS", "ADD", $id, "$name \| $sql" ) if C4::Context->preference("ReportsLog");
647	$template->param(	650	$template->param(
648	'save_successful' => 1,	651	'save_successful' => 1,
Lines 653-658 elsif ( $phase eq 'Save Report' ) { Link Here
653	}	656	}
654	}	657	}
655		658
		659	elsif ($phase eq 'Share'){
		660	my $result = Koha::SharedContent::manaShareInfos($input, $borrowernumber, $input->param('reportid'), 'report');
		661	if ( $result and ($result->{code} eq "200" or $result->{code} eq "201") ) {
		662	print $input->redirect("/cgi-bin/koha/reports/guided_reports.pl?phase=Use%20saved&manamsg=success");
		663	}else{
		664	print $input->redirect("/cgi-bin/koha/reports/guided_reports.pl?phase=Use%20saved&manamsg=fail");
		665	}
		666	}
656	elsif ($phase eq 'Run this report'){	667	elsif ($phase eq 'Run this report'){
657	# execute a saved report	668	# execute a saved report
658	my $limit = $input->param('limit') \|\| 20;	669	my $limit = $input->param('limit') \|\| 20;

Lines 100-143 if ($op eq 'del') { Link Here

(-)a/serials/subscription-detail.pl (-37 / +2 lines)
100	}	100	}
101	}	101	}
102	elsif ( $op and $op eq "share" ) {	102	elsif ( $op and $op eq "share" ) {
103	my $mana_language;	103	my $result = Koha::SharedContent::manaShareInfos($query, $loggedinuser, $subscriptionid, 'subscription');
104	if ( $query->param('mana_language') ) {
105	$mana_language = $query->param('mana_language');
106	}
107	else {
108	$mana_language = C4::Context->preference('language');
109	}
110
111	my $mana_email;
112	if ( $loggedinuser ne 0 ) {
113	my $borrower = Koha::Patrons->find($loggedinuser);
114	$mana_email = $borrower->email
115	if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
116	$mana_email = $borrower->emailpro
117	if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
118	$mana_email =
119	Koha::Libraries->find( C4::Context->userenv->{'branch'} )->branchemail
120	if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
121	}
122	$mana_email = C4::Context->preference('KohaAdminEmailAddress')
123	if ( ( not defined($mana_email) ) or ( $mana_email eq '' ) );
124	my %versions = C4::Context::get_versions();
125
126	my $mana_info = {
127	language => $mana_language,
128	kohaversion => $versions{'kohaVersion'},
129	exportemail => $mana_email
130	};
131	my $sub_mana_info = Koha::Subscription::get_sharable_info($subscriptionid);
132	$sub_mana_info = { %$sub_mana_info, %$mana_info };
133	my $result = Koha::SharedContent::manaPostRequest( "subscription",
134	$sub_mana_info );
135	if ( $result->{code} eq "200" and $result->{code} eq "201" ) {
136	my $subscription = Koha::Subscriptions->find($subscriptionid);
137	$subscription->set( { mana_id => $result->{id} } )->store;
138	$subs->{mana_id} = $result->{id};
139	}
140	$template->param( mana_code => $result->{code} );	104	$template->param( mana_code => $result->{code} );
		105	$subs->{mana_id} = $result->{id};
141	}	106	}
142		107
143	my $hasRouting = check_routing($subscriptionid);	108	my $hasRouting = check_routing($subscriptionid);

Lines 16-21 Link Here

(-)a/serials/subscription-frequency.pl (+31 lines)
16	#	16	#
17	# You should have received a copy of the GNU General Public License	17	# You should have received a copy of the GNU General Public License
18	# along with Koha; if not, see <http://www.gnu.org/licenses>.	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		19	#
		20
		21	use Modern::Perl;
		22
		23	use Koha::SharedContent;
		24	use C4::Auth qw(check_cookie_auth);
		25	use Koha::Report;
		26
		27	use CGI;
		28	use JSON;
		29
		30
		31	my $input = new CGI;
		32	binmode STDOUT, ":encoding(UTF-8)";
		33	print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
		34
		35	my ( $auth_status, $sessionID ) =
		36	check_cookie_auth( $input->cookie('CGISESSID'),
		37	{ serials => 'create_subscription' } );
19		38
20	use Modern::Perl;	39	use Modern::Perl;
21	use CGI qw ( -utf8 );	40	use CGI qw ( -utf8 );
Lines 34-36 my $frequencyrecord=GetSubscriptionFrequency($frqid); Link Here
34	binmode STDOUT, ":encoding(UTF-8)";	53	binmode STDOUT, ":encoding(UTF-8)";
35	print $input->header(-type => 'text/plain', -charset => 'UTF-8');	54	print $input->header(-type => 'text/plain', -charset => 'UTF-8');
36	print to_json( $frequencyrecord );	55	print to_json( $frequencyrecord );
		56
		57	my $result = Koha::SharedContent::manaGetRequestWithId($input->param('resource'), $input->param('id') );
		58	my $package = "Koha::".ucfirst($input->param('resource'));
		59	my $resource;
		60
		61	if ( $input->param( 'saveinbase' )) {
		62	$resource = { id => $package->new_from_mana($result->{data})->id };
		63	}
		64	else{
		65	$resource = $result->{data};
		66	}
		67	print(to_json($resource));

Line 0 Link Here

(-)a/svc/mana/addvaluetofield (+42 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2017 BibLibre Baptiste Wojtkowski
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it
	8	# under the terms of the GNU General Public License as published by
	9	# the Free Software Foundation; either version 3 of the License, or
	10	# (at your option) any later version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but
	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	19	#
	20
	21	use Modern::Perl;
	22
	23	use Koha::SharedContent;
	24	use C4::Auth qw(check_cookie_auth);
	25
	26	use CGI;
	27	use JSON;
	28
	29
	30	my $input = new CGI;
	31	binmode STDOUT, ":encoding(UTF-8)";
	32	print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
	33
	34	my ( $auth_status, $sessionID ) =
	35	check_cookie_auth( $input->cookie('CGISESSID'),
	36	{ serials => 'create_subscription' } );
	37
	38	if ( $auth_status ne "ok" ) {
	39	exit 0;
	40	}
	41	my $result = Koha::SharedContent::manaIncrementRequest($input->param('resource'), $input->param('id'), $input->param('field'), $input->param('step') );
	42	return $result;

Line 0 Link Here

(-)a/svc/mana/search (+62 lines)
	1	#!/usr/bin/perl
	2
	3	# Copyright 2016 BibLibre Morgane Alonso
	4	#
	5	# This file is part of Koha.
	6	#
	7	# Koha is free software; you can redistribute it and/or modify it
	8	# under the terms of the GNU General Public License as published by
	9	# the Free Software Foundation; either version 3 of the License, or
	10	# (at your option) any later version.
	11	#
	12	# Koha is distributed in the hope that it will be useful, but
	13	# WITHOUT ANY WARRANTY; without even the implied warranty of
	14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	15	# GNU General Public License for more details.
	16	#
	17	# You should have received a copy of the GNU General Public License
	18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
	19	#
	20
	21	use strict;
	22	use warnings;
	23
	24	use Koha::SharedContent;
	25	use Koha::Subscription;
	26	use C4::Auth qw(check_cookie_auth), qw(get_template_and_user);
	27	use C4::Output qw( output_with_http_headers );
	28
	29	use CGI;
	30	use JSON;
	31
	32	my $input = new CGI;
	33
	34	my ( $auth_status, $sessionID ) =
	35	check_cookie_auth( $input->cookie('CGISESSID'),
	36	{ serials => 'create_subscription' } );
	37
	38	if ( $auth_status ne "ok" ) {
	39	exit 0;
	40	}
	41
	42	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
	43	{
	44	template_name => "serials/mana-subscription-search-result.tt",
	45	query => $input,
	46	type => "intranet",
	47	authnotrequired => 0,
	48
	49	# flagsrequired => { serials => $permission },
	50	flagsrequired => { serials => 'create_subscription' },
	51	debug => 1,
	52	}
	53	);
	54
	55	my $biblionumber = $input->param('biblionumber');
	56
	57	my $sub_mana_info = Koha::Subscription::get_search_info($biblionumber);
	58	my $result =
	59	Koha::SharedContent::manaGetRequest( "subscription", $sub_mana_info );
	60	$template->param( subscriptions => $result->{data} );
	61
	62	output_with_http_headers $input, $cookie, $template->output, 'json';

Line 0 Link Here

(-)a/svc/mana/share (-1 / +47 lines)
0	-	1	#!/usr/bin/perl
		2
		3	# Copyright 2017 BibLibre Baptiste Wojtkowski
		4	#
		5	# This file is part of Koha.
		6	#
		7	# Koha is free software; you can redistribute it and/or modify it
		8	# under the terms of the GNU General Public License as published by
		9	# the Free Software Foundation; either version 3 of the License, or
		10	# (at your option) any later version.
		11	#
		12	# Koha is distributed in the hope that it will be useful, but
		13	# WITHOUT ANY WARRANTY; without even the implied warranty of
		14	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		15	# GNU General Public License for more details.
		16	#
		17	# You should have received a copy of the GNU General Public License
		18	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		19	#
		20
		21	use Modern::Perl;
		22
		23	use Koha::SharedContent;
		24	use C4::Auth qw(check_cookie_auth);
		25
		26	use CGI;
		27	use JSON;
		28
		29
		30	my $input = new CGI;
		31	binmode STDOUT, ":encoding(UTF-8)";
		32	print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
		33
		34	my ( $auth_status, $sessionID ) =
		35	check_cookie_auth( $input->cookie('CGISESSID'),
		36	{ serials => 'create_subscription' } );
		37
		38	if ( $auth_status ne "ok" ) {
		39	exit 0;
		40	}
		41
		42
		43	my $content;
		44	$content->{resource_id} = $input->param("resource_id");
		45	$content->{resource_type} = $input->param("resource");
		46	$content->{message} = $input->param("message");
		47	Koha::SharedContent::manaPostRequest('resource_comment', $content);