Attachment #36700 for bug #13799

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

Lines 742-747 our $PERL_DEPS = { Link Here

(-)a/C4/Installer/PerlDependencies.pm (+5 lines)
742	'required' => '0',	742	'required' => '0',
743	'min_ver' => '5.61',	743	'min_ver' => '5.61',
744	},	744	},
		745	'Mojolicious' => {
		746	'usage' => 'REST API',
		747	'required' => '0',
		748	'min_ver' => '6.0',
		749	},
745	};	750	};
746		751
747	1;	752	1;




package Koha::REST;

use Modern::Perl;
use Mojo::Base 'Mojolicious';

sub startup {
    my $self = shift;

    my $route = $self->routes->under->to(
        cb => sub {
            my $c = shift;
            my $user = $c->param('user');
            # Do the authentication stuff here...
            $c->stash('user', $user);
            return 1;
        }
    );

    $self->plugin(Swagger2 => {
        route => $route,
        url => $self->home->rel_file("rest.json"),
    });
}

1;




package Koha::REST::Borrowers;

use Modern::Perl;

use Mojo::Base 'Mojolicious::Controller';

use C4::Members;

sub list_borrowers {
    my ($c, $args, $cb) = @_;

    my $borrowers = C4::Members::Search;

    $c->$cb($borrowers, 200);
}

sub get_borrower {
    my ($c, $args, $cb) = @_;

    my $borrower = C4::Members::GetMemberDetails($args->{borrowernumber});

    if ($borrower) {
        return $c->$cb($borrower, 200);
    }

    $c->$cb({error => "Borrower not found"}, 404);
}

1;

Line 0 Link Here

(-)a/rest (+6 lines)
	1	#!/usr/bin/env perl
	2
	3	use Modern::Perl;
	4
	5	require Mojolicious::Commands;
	6	Mojolicious::Commands->start_app('Koha::REST');




{
  "swagger": "2.0",
  "info": {
    "title": "Koha REST API",
    "version": "0.1",
    "license": {
      "name": "GPL v3",
      "url": "http://www.gnu.org/licenses/gpl.txt"
    },
    "contact": {
      "name": "Koha Team",
      "url": "http://koha-community.org/"
    }
  },
  "basePath": "/",
  "paths": {
    "/borrowers": {
      "get": {
        "x-mojo-controller": "Koha::REST::Borrowers",
        "operationId": "listBorrowers",
        "produces": [
          "application/json"
        ],
        "responses": {
          "200": {
            "description": "A list of borrowers",
            "schema": {
              "type": "array",
              "items": {
                "$ref": "#/definitions/borrower"
              }
            }
          }
        }
      }
    },
    "/borrowers/{borrowernumber}": {
      "get": {
        "x-mojo-controller": "Koha::REST::Borrowers",
        "operationId": "getBorrower",
        "parameters": [
          {
            "$ref": "#/parameters/borrowernumberPathParam"
          }
        ],
        "produces": [
          "application/json"
        ],
        "responses": {
          "200": {
            "description": "A borrower",
            "schema": {
              "$ref": "#/definitions/borrower"
            }
          },
          "404": {
            "description": "Borrower not found",
            "schema": {
              "$ref": "#/definitions/error"
            }
          }
        }
      }
    }
  },
  "definitions": {
    "borrower": {
      "type": "object",
      "properties": {
        "borrowernumber": {
          "description": "Borrower internal identifier"
        },
        "cardnumber": {
          "description": "library assigned ID number for borrowers"
        },
        "surname": {
          "description": "borrower's last name"
        },
        "firstname": {
          "description": "borrower's first name"
        }
      }
    },
    "error": {
      "type": "object",
      "properties": {
        "error": {
          "description": "Error message",
          "type": "string"
        }
      }
    }
  },
  "parameters": {
    "borrowernumberPathParam": {
      "name": "borrowernumber",
      "in": "path",
      "description": "Internal borrower identifier",
      "required": "true",
      "type": "integer"
    }
  }
}




#!/usr/bin/env perl

use Modern::Perl;

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

use C4::Context;

use Koha::Database;
use Koha::Borrower;

my $dbh = C4::Context->dbh;
$dbh->{AutoCommit} = 0;
$dbh->{RaiseError} = 1;

my $t = Test::Mojo->new('Koha::REST');

my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode();
my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode();

my $borrower = Koha::Borrower->new;
$borrower->categorycode( $categorycode );
$borrower->branchcode( $branchcode );
$borrower->surname("Test Surname");
$borrower->store;
my $borrowernumber = $borrower->borrowernumber;

$t->get_ok('/borrowers')
  ->status_is(200);

$t->get_ok("/borrowers/$borrowernumber")
  ->status_is(200)
  ->json_is('/borrowernumber' => $borrowernumber)
  ->json_is('/surname' => "Test Surname");

$dbh->rollback;

Return to bug 13799

Line 0 Link Here

(-)a/Koha/REST/Borrowers.pm (+29 lines)
	1	package Koha::REST::Borrowers;
	2
	3	use Modern::Perl;
	4
	5	use Mojo::Base 'Mojolicious::Controller';
	6
	7	use C4::Members;
	8
	9	sub list_borrowers {
	10	my ($c, $args, $cb) = @_;
	11
	12	my $borrowers = C4::Members::Search;
	13
	14	$c->$cb($borrowers, 200);
	15	}
	16
	17	sub get_borrower {
	18	my ($c, $args, $cb) = @_;
	19
	20	my $borrower = C4::Members::GetMemberDetails($args->{borrowernumber});
	21
	22	if ($borrower) {
	23	return $c->$cb($borrower, 200);
	24	}
	25
	26	$c->$cb({error => "Borrower not found"}, 404);
	27	}
	28
	29	1;

Line 0 Link Here

(-)a/Koha/REST.pm (+25 lines)
	1	package Koha::REST;
	2
	3	use Modern::Perl;
	4	use Mojo::Base 'Mojolicious';
	5
	6	sub startup {
	7	my $self = shift;
	8
	9	my $route = $self->routes->under->to(
	10	cb => sub {
	11	my $c = shift;
	12	my $user = $c->param('user');
	13	# Do the authentication stuff here...
	14	$c->stash('user', $user);
	15	return 1;
	16	}
	17	);
	18
	19	$self->plugin(Swagger2 => {
	20	route => $route,
	21	url => $self->home->rel_file("rest.json"),
	22	});
	23	}
	24
	25	1;

Line 0 Link Here

(-)a/rest.json (+103 lines)
		1	{
		2	"swagger": "2.0",
		3	"info": {
		4	"title": "Koha REST API",
		5	"version": "0.1",
		6	"license": {
		7	"name": "GPL v3",
		8	"url": "http://www.gnu.org/licenses/gpl.txt"
		9	},
		10	"contact": {
		11	"name": "Koha Team",
		12	"url": "http://koha-community.org/"
		13	}
		14	},
		15	"basePath": "/",
		16	"paths": {
		17	"/borrowers": {
		18	"get": {
		19	"x-mojo-controller": "Koha::REST::Borrowers",
		20	"operationId": "listBorrowers",
		21	"produces": [
		22	"application/json"
		23	],
		24	"responses": {
		25	"200": {
		26	"description": "A list of borrowers",
		27	"schema": {
		28	"type": "array",
		29	"items": {
		30	"$ref": "#/definitions/borrower"
		31	}
		32	}
		33	}
		34	}
		35	}
		36	},
		37	"/borrowers/{borrowernumber}": {
		38	"get": {
		39	"x-mojo-controller": "Koha::REST::Borrowers",
		40	"operationId": "getBorrower",
		41	"parameters": [
		42	{
		43	"$ref": "#/parameters/borrowernumberPathParam"
		44	}
		45	],
		46	"produces": [
		47	"application/json"
		48	],
		49	"responses": {
		50	"200": {
		51	"description": "A borrower",
		52	"schema": {
		53	"$ref": "#/definitions/borrower"
		54	}
		55	},
		56	"404": {
		57	"description": "Borrower not found",
		58	"schema": {
		59	"$ref": "#/definitions/error"
		60	}
		61	}
		62	}
		63	}
		64	}
65	},
66	"definitions": {
67	"borrower": {
68	"type": "object",
69	"properties": {
70	"borrowernumber": {
71	"description": "Borrower internal identifier"
72	},
73	"cardnumber": {
74	"description": "library assigned ID number for borrowers"
75	},
76	"surname": {
77	"description": "borrower's last name"
78	},
79	"firstname": {
80	"description": "borrower's first name"
81	}
82	}
83	},
84	"error": {
85	"type": "object",
86	"properties": {
87	"error": {
88	"description": "Error message",
89	"type": "string"
90	}
91	}
92	}
93	},
94	"parameters": {
95	"borrowernumberPathParam": {
96	"name": "borrowernumber",
97	"in": "path",
98	"description": "Internal borrower identifier",
99	"required": "true",
100	"type": "integer"
101	}
102	}
103	}

Line 0 Link Here

(-)a/t/db_dependent/rest/borrowers.t (-1 / +37 lines)
0	-	1	#!/usr/bin/env perl
		2
		3	use Modern::Perl;
		4
		5	use Test::More tests => 6;
		6	use Test::Mojo;
		7
		8	use C4::Context;
		9
		10	use Koha::Database;
		11	use Koha::Borrower;
		12
		13	my $dbh = C4::Context->dbh;
		14	$dbh->{AutoCommit} = 0;
		15	$dbh->{RaiseError} = 1;
		16
		17	my $t = Test::Mojo->new('Koha::REST');
		18
		19	my $categorycode = Koha::Database->new()->schema()->resultset('Category')->first()->categorycode();
		20	my $branchcode = Koha::Database->new()->schema()->resultset('Branch')->first()->branchcode();
		21
		22	my $borrower = Koha::Borrower->new;
		23	$borrower->categorycode( $categorycode );
		24	$borrower->branchcode( $branchcode );
		25	$borrower->surname("Test Surname");
		26	$borrower->store;
		27	my $borrowernumber = $borrower->borrowernumber;
		28
		29	$t->get_ok('/borrowers')
		30	->status_is(200);
		31
		32	$t->get_ok("/borrowers/$borrowernumber")
		33	->status_is(200)
		34	->json_is('/borrowernumber' => $borrowernumber)
		35	->json_is('/surname' => "Test Surname");
		36
		37	$dbh->rollback;