Attachment #48447 for bug #15566

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





    my $body = $c->req->json;

    my $onlyfirst = $body->{onlyfirst};
    my $reserve_group_id;
    if ($onlyfirst) {
        $reserve_group_id = AddReserveGroup();
    my $expirationdate = $body->{expirationdate};

    my $borrower = Koha::Borrowers->find($borrowernumber);
    unless ($borrower) {
        return $c->$cb({error => "Borrower not found"}, 404);
    }

    unless ($biblionumber or $itemnumber) {
        return $c->$cb({
            error => "At least one of biblionumber, itemnumber should be given"
        }, 400);
    }
    unless ($branchcode) {
        return $c->$cb({
            error => "Branchcode is required"
        }, 400);
    }

    my $item_biblionumber = C4::Biblio::GetBiblionumberFromItemnumber($itemnumber);
    if ($biblionumber and $biblionumber != $item_biblionumber) {
        return $c->$cb({
            error => "Item $itemnumber doesn't belong to biblio $biblionumber"
        }, 400);
    }

    my @possible_reserves;
    foreach my $reserve (@{ $body->{reserves} }) {
        my $borrowernumber = $reserve->{borrowernumber};
        my $biblionumber = $reserve->{biblionumber};
        my $itemnumber = $reserve->{itemnumber};
        my $branchcode = $reserve->{branchcode};
        my $expirationdate = $reserve->{expirationdate};

        my $borrower = Koha::Borrowers->find($borrowernumber);
        unless ($borrower) {
            return $c->$cb({error => "Borrower not found"}, 404);
        }

        unless ($biblionumber or $itemnumber) {
            return $c->$cb({
                error => "At least one of biblionumber, itemnumber should be given"
            }, 400);
        }
        unless ($branchcode) {
            return $c->$cb({
                error => "Branchcode is required"
            }, 400);
        }

        my $item_biblionumber = C4::Biblio::GetBiblionumberFromItemnumber($itemnumber);
        if ($biblionumber and $biblionumber != $item_biblionumber) {
            return $c->$cb({
                error => "Item $itemnumber doesn't belong to biblio $biblionumber"
            }, 400);
        }

        $biblionumber ||= $item_biblionumber;
        my $biblio = C4::Biblio::GetBiblio($biblionumber);

        my $can_reserve =
          $itemnumber
          ? CanItemBeReserved( $borrowernumber, $itemnumber )
          : CanBookBeReserved( $borrowernumber, $biblionumber );

        unless ($can_reserve eq 'OK') {
            return $c->$cb({
                error => "Reserve cannot be placed. Reason: $can_reserve"
            }, 403);
        }

        $reserve->{title} = $biblio->{title};
        push @possible_reserves, $reserve;
    }

    my @reserves;
    foreach my $reserve (@possible_reserves) {
        my $borrowernumber = $reserve->{borrowernumber};
        my $biblionumber = $reserve->{biblionumber};
        my $itemnumber = $reserve->{itemnumber};
        my $branchcode = $reserve->{branchcode};
        my $expirationdate = $reserve->{expirationdate};

        my $priority = C4::Reserves::CalculatePriority($biblionumber);
        $itemnumber ||= undef;

        # AddReserve expects date to be in syspref format
        if ($expirationdate) {
            $expirationdate = output_pref(dt_from_string($expirationdate, 'iso'));
        }

        my $reserve_id = C4::Reserves::AddReserve($branchcode, $borrowernumber,
            $biblionumber, undef, $priority, undef, $expirationdate, undef,
            $reserve->{title}, $itemnumber, undef, $reserve_group_id);

        unless ($reserve_id) {
            return $c->$cb({
                error => "Error while placing reserve. See Koha logs for details."
            }, 500);
        }

        push @reserves, C4::Reserves::GetReserve($reserve_id);
    }

    return $c->$cb(\@reserves, 201);
        $biblionumber, undef, $priority, undef, $expirationdate, undef,
        $biblio->{title}, $itemnumber);

    unless ($reserve_id) {
        return $c->$cb({
            error => "Error while placing reserve. See Koha logs for details."
        }, 500);
    }

    my $reserve = C4::Reserves::GetReserve($reserve_id);

    return $c->$cb($reserve, 201);
}

sub edit {

Lines 58-63 Link Here

(-)a/api/v1/definitions/reserve.json (+4 lines)
58	},	58	},
59	"suspend_until": {	59	"suspend_until": {
60	"description": ""	60	"description": ""
		61	},
		62	"reserve_group_id": {
		63	"description": "Identifier of the group the reserve belongs to",
		64	"type": ["string", "null"]
61	}	65	}
62	}	66	}
63	}	67	}




            "schema": {
              "type": "object",
              "properties": {
                "reserves": {
                  "description": "Reserves informations",
                  "type": "array",
                  "items": {
                    "type": "object",
                    "properties": {
                      "borrowernumber": {
                        "description": "Borrower internal identifier",
                        "type": "integer"
                      },
                      "biblionumber": {
                        "description": "Biblio internal identifier",
                        "type": "integer"
                      },
                      "itemnumber": {
                        "description": "Item internal identifier",
                        "type": "integer"
                      },
                      "branchcode": {
                        "description": "Pickup location",
                        "type": "string"
                      },
                      "expirationdate": {
                        "description": "Reserve end date",
                        "type": "string",
                        "format": "date"
                      }
                    }
                  }
                },
                "onlyfirst": {
                  "description": "Reserve only first available item",
                  "type": "boolean"
                },
                "itemnumber": {
                  "description": "Item internal identifier",
                  "type": "integer"
                },
                "branchcode": {
                  "description": "Pickup location",
                  "type": "string"
                },
                "expirationdate": {
                  "description": "Reserve end date",
                  "type": "string",
                  "format": "date"
                }
              }
            }

        "responses": {
          "201": {
            "description": "Created reserve",
            "schema": {
              "type": "array",
              "items": { "$ref": "#/definitions/reserve" }
            }
          },
          "400": {
            "description": "Missing or wrong parameters",





use Modern::Perl;

use Test::More tests => 37;
use Test::Mojo;

use DateTime;


my $expirationdate = DateTime->now->add(days => 10)->ymd;
my $post_data = {
    reserves => [
        {
            borrowernumber => int($borrowernumber),
            biblionumber => int($biblionumber),
            itemnumber => int($itemnumber),
            branchcode => $branchcode,
            expirationdate => $expirationdate,
        },
    ],
};
$t->post_ok("/api/v1/reserves" => json => $post_data)
  ->status_is(201)
  ->json_has('/0/reserve_id');

$reserve_id = $t->tx->res->json->[0]->{reserve_id};

$t->get_ok("/api/v1/reserves?borrowernumber=$borrowernumber")
  ->status_is(200)

  ->status_is(403)
  ->json_like('/error', qr/tooManyReserves/);

$t->delete_ok("/api/v1/reserves/$reserve_id")
  ->status_is(200);

my $biblionumber2 = create_biblio('RESTful Web APIs 2');
my $itemnumber2 = create_item($biblionumber2, 'TEST000002');

$post_data = {
    onlyfirst => \1,
    reserves => [
        {
            borrowernumber => int($borrowernumber),
            biblionumber => int($biblionumber),
            itemnumber => int($itemnumber),
            branchcode => $branchcode,
            expirationdate => $expirationdate,
        },
        {
            borrowernumber => int($borrowernumber),
            biblionumber => int($biblionumber2),
            itemnumber => int($itemnumber2),
            branchcode => $branchcode,
            expirationdate => $expirationdate,
        },
    ],
};
$t->post_ok("/api/v1/reserves" => json => $post_data)
  ->status_is(201);

$t->get_ok("/api/v1/reserves?borrowernumber=$borrowernumber")
  ->status_is(200);

my $json = $t->tx->res->json;
is($json->[0]->{reserve_group_id}, $json->[1]->{reserve_group_id}, "Both reserves belong to the same reserve group");

$dbh->rollback;

- 

Return to bug 15566

Lines 111-136 Link Here

(-)a/api/v1/swagger.json (-20 / +36 lines)
111	"schema": {	111	"schema": {
112	"type": "object",	112	"type": "object",
113	"properties": {	113	"properties": {
114	"borrowernumber": {	114	"reserves": {
115	"description": "Borrower internal identifier",	115	"description": "Reserves informations",
116	"type": "integer"	116	"type": "array",
		117	"items": {
		118	"type": "object",
		119	"properties": {
		120	"borrowernumber": {
		121	"description": "Borrower internal identifier",
		122	"type": "integer"
		123	},
		124	"biblionumber": {
		125	"description": "Biblio internal identifier",
		126	"type": "integer"
		127	},
		128	"itemnumber": {
		129	"description": "Item internal identifier",
		130	"type": "integer"
		131	},
		132	"branchcode": {
		133	"description": "Pickup location",
		134	"type": "string"
		135	},
		136	"expirationdate": {
		137	"description": "Reserve end date",
		138	"type": "string",
		139	"format": "date"
		140	}
		141	}
		142	}
117	},	143	},
118	"biblionumber": {	144	"onlyfirst": {
119	"description": "Biblio internal identifier",	145	"description": "Reserve only first available item",
120	"type": "integer"	146	"type": "boolean"
121	},
122	"itemnumber": {
123	"description": "Item internal identifier",
124	"type": "integer"
125	},
126	"branchcode": {
127	"description": "Pickup location",
128	"type": "string"
129	},
130	"expirationdate": {
131	"description": "Reserve end date",
132	"type": "string",
133	"format": "date"
134	}	147	}
135	}	148	}
136	}	149	}
Lines 141-147 Link Here
141	"responses": {	154	"responses": {
142	"201": {	155	"201": {
143	"description": "Created reserve",	156	"description": "Created reserve",
144	"schema": { "$ref": "#/definitions/reserve" }	157	"schema": {
		158	"type": "array",
		159	"items": { "$ref": "#/definitions/reserve" }
		160	}
145	},	161	},
146	"400": {	162	"400": {
147	"description": "Missing or wrong parameters",	163	"description": "Missing or wrong parameters",

Lines 17-23 Link Here

(-)a/t/db_dependent/api/v1/reserves.t (-9 / +45 lines)
17		17
18	use Modern::Perl;	18	use Modern::Perl;
19		19
20	use Test::More tests => 30;	20	use Test::More tests => 37;
21	use Test::Mojo;	21	use Test::Mojo;
22		22
23	use DateTime;	23	use DateTime;
Lines 103-119 $dbh->do(q{ Link Here
103		103
104	my $expirationdate = DateTime->now->add(days => 10)->ymd;	104	my $expirationdate = DateTime->now->add(days => 10)->ymd;
105	my $post_data = {	105	my $post_data = {
106	borrowernumber => int($borrowernumber),	106	reserves => [
107	biblionumber => int($biblionumber),	107	{
108	itemnumber => int($itemnumber),	108	borrowernumber => int($borrowernumber),
109	branchcode => $branchcode,	109	biblionumber => int($biblionumber),
110	expirationdate => $expirationdate,	110	itemnumber => int($itemnumber),
		111	branchcode => $branchcode,
		112	expirationdate => $expirationdate,
		113	},
		114	],
111	};	115	};
112	$t->post_ok("/api/v1/reserves" => json => $post_data)	116	$t->post_ok("/api/v1/reserves" => json => $post_data)
113	->status_is(201)	117	->status_is(201)
114	->json_has('/reserve_id');	118	->json_has('/0/reserve_id');
115		119
116	$reserve_id = $t->tx->res->json->{reserve_id};	120	$reserve_id = $t->tx->res->json->[0]->{reserve_id};
117		121
118	$t->get_ok("/api/v1/reserves?borrowernumber=$borrowernumber")	122	$t->get_ok("/api/v1/reserves?borrowernumber=$borrowernumber")
119	->status_is(200)	123	->status_is(200)
Lines 125-130 $t->post_ok("/api/v1/reserves" => json => $post_data) Link Here
125	->status_is(403)	129	->status_is(403)
126	->json_like('/error', qr/tooManyReserves/);	130	->json_like('/error', qr/tooManyReserves/);
127		131
		132	$t->delete_ok("/api/v1/reserves/$reserve_id")
		133	->status_is(200);
		134
		135	my $biblionumber2 = create_biblio('RESTful Web APIs 2');
		136	my $itemnumber2 = create_item($biblionumber2, 'TEST000002');
		137
		138	$post_data = {
		139	onlyfirst => \1,
		140	reserves => [
		141	{
		142	borrowernumber => int($borrowernumber),
		143	biblionumber => int($biblionumber),
		144	itemnumber => int($itemnumber),
		145	branchcode => $branchcode,
		146	expirationdate => $expirationdate,
		147	},
		148	{
		149	borrowernumber => int($borrowernumber),
		150	biblionumber => int($biblionumber2),
		151	itemnumber => int($itemnumber2),
		152	branchcode => $branchcode,
		153	expirationdate => $expirationdate,
		154	},
		155	],
		156	};
		157	$t->post_ok("/api/v1/reserves" => json => $post_data)
		158	->status_is(201);
		159
		160	$t->get_ok("/api/v1/reserves?borrowernumber=$borrowernumber")
		161	->status_is(200);
		162
		163	my $json = $t->tx->res->json;
		164	is($json->[0]->{reserve_group_id}, $json->[1]->{reserve_group_id}, "Both reserves belong to the same reserve group");
128		165
129	$dbh->rollback;	166	$dbh->rollback;
130		167
131	-

Lines 44-113 sub add { Link Here

(-)a/Koha/REST/V1/Reserve.pm (-58 / +79 lines)
44		44
45	my $body = $c->req->json;	45	my $body = $c->req->json;
46		46
47	my $borrowernumber = $body->{borrowernumber};	47	my $onlyfirst = $body->{onlyfirst};
48	my $biblionumber = $body->{biblionumber};	48	my $reserve_group_id;
49	my $itemnumber = $body->{itemnumber};	49	if ($onlyfirst) {
50	my $branchcode = $body->{branchcode};	50	$reserve_group_id = AddReserveGroup();
51	my $expirationdate = $body->{expirationdate};
52
53	my $borrower = Koha::Borrowers->find($borrowernumber);
54	unless ($borrower) {
55	return $c->$cb({error => "Borrower not found"}, 404);
56	}
57
58	unless ($biblionumber or $itemnumber) {
59	return $c->$cb({
60	error => "At least one of biblionumber, itemnumber should be given"
61	}, 400);
62	}
63	unless ($branchcode) {
64	return $c->$cb({
65	error => "Branchcode is required"
66	}, 400);
67	}
68
69	my $item_biblionumber = C4::Biblio::GetBiblionumberFromItemnumber($itemnumber);
70	if ($biblionumber and $biblionumber != $item_biblionumber) {
71	return $c->$cb({
72	error => "Item $itemnumber doesn't belong to biblio $biblionumber"
73	}, 400);
74	}	51	}
75		52
76	$biblionumber \|\|= $item_biblionumber;	53	my @possible_reserves;
77	my $biblio = C4::Biblio::GetBiblio($biblionumber);	54	foreach my $reserve (@{ $body->{reserves} }) {
78		55	my $borrowernumber = $reserve->{borrowernumber};
79	my $can_reserve =	56	my $biblionumber = $reserve->{biblionumber};
80	$itemnumber	57	my $itemnumber = $reserve->{itemnumber};
81	? CanItemBeReserved( $borrowernumber, $itemnumber )	58	my $branchcode = $reserve->{branchcode};
82	: CanBookBeReserved( $borrowernumber, $biblionumber );	59	my $expirationdate = $reserve->{expirationdate};
83		60
84	unless ($can_reserve eq 'OK') {	61	my $borrower = Koha::Borrowers->find($borrowernumber);
85	return $c->$cb({	62	unless ($borrower) {
86	error => "Reserve cannot be placed. Reason: $can_reserve"	63	return $c->$cb({error => "Borrower not found"}, 404);
87	}, 403);	64	}
		65
		66	unless ($biblionumber or $itemnumber) {
		67	return $c->$cb({
		68	error => "At least one of biblionumber, itemnumber should be given"
		69	}, 400);
		70	}
		71	unless ($branchcode) {
		72	return $c->$cb({
		73	error => "Branchcode is required"
		74	}, 400);
		75	}
		76
		77	my $item_biblionumber = C4::Biblio::GetBiblionumberFromItemnumber($itemnumber);
		78	if ($biblionumber and $biblionumber != $item_biblionumber) {
		79	return $c->$cb({
		80	error => "Item $itemnumber doesn't belong to biblio $biblionumber"
		81	}, 400);
		82	}
		83
		84	$biblionumber \|\|= $item_biblionumber;
		85	my $biblio = C4::Biblio::GetBiblio($biblionumber);
		86
		87	my $can_reserve =
		88	$itemnumber
		89	? CanItemBeReserved( $borrowernumber, $itemnumber )
		90	: CanBookBeReserved( $borrowernumber, $biblionumber );
		91
		92	unless ($can_reserve eq 'OK') {
		93	return $c->$cb({
		94	error => "Reserve cannot be placed. Reason: $can_reserve"
		95	}, 403);
		96	}
		97
		98	$reserve->{title} = $biblio->{title};
		99	push @possible_reserves, $reserve;
88	}	100	}
89		101
90	my $priority = C4::Reserves::CalculatePriority($biblionumber);	102	my @reserves;
91	$itemnumber \|\|= undef;	103	foreach my $reserve (@possible_reserves) {
92		104	my $borrowernumber = $reserve->{borrowernumber};
93	# AddReserve expects date to be in syspref format	105	my $biblionumber = $reserve->{biblionumber};
94	if ($expirationdate) {	106	my $itemnumber = $reserve->{itemnumber};
95	$expirationdate = output_pref(dt_from_string($expirationdate, 'iso'));	107	my $branchcode = $reserve->{branchcode};
		108	my $expirationdate = $reserve->{expirationdate};
		109
		110	my $priority = C4::Reserves::CalculatePriority($biblionumber);
		111	$itemnumber \|\|= undef;
		112
		113	# AddReserve expects date to be in syspref format
		114	if ($expirationdate) {
		115	$expirationdate = output_pref(dt_from_string($expirationdate, 'iso'));
		116	}
		117
		118	my $reserve_id = C4::Reserves::AddReserve($branchcode, $borrowernumber,
		119	$biblionumber, undef, $priority, undef, $expirationdate, undef,
		120	$reserve->{title}, $itemnumber, undef, $reserve_group_id);
		121
		122	unless ($reserve_id) {
		123	return $c->$cb({
		124	error => "Error while placing reserve. See Koha logs for details."
		125	}, 500);
		126	}
		127
		128	push @reserves, C4::Reserves::GetReserve($reserve_id);
96	}	129	}
97		130
98	my $reserve_id = C4::Reserves::AddReserve($branchcode, $borrowernumber,	131	return $c->$cb(\@reserves, 201);
99	$biblionumber, undef, $priority, undef, $expirationdate, undef,
100	$biblio->{title}, $itemnumber);
101
102	unless ($reserve_id) {
103	return $c->$cb({
104	error => "Error while placing reserve. See Koha logs for details."
105	}, 500);
106	}
107
108	my $reserve = C4::Reserves::GetReserve($reserve_id);
109
110	return $c->$cb($reserve, 201);
111	}	132	}
112		133
113	sub edit {	134	sub edit {