Attachment 69849 Details for Bug 19826 – Bug 19826: Add K::Acq::Budget(s) and K::Acq::Budget::Fund(s)

[patch] Bug 19826: Add K::Acq::Budget(s) and K::Acq::Budget::Fund(s)

Bug-19826-Add-KAcqBudgets-and-KAcqBudgetFunds.patch (text/plain), 6.16 KB, created by Tomás Cohen Arazi (tcohen) on 2017-12-18 14:42:36 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Tomás Cohen Arazi (tcohen)

Created: 2017-12-18 14:42:36 UTC

Size: 6.16 KB

patch

obsolete

>From 217335c16821062cc72a122f186269928be97327 Mon Sep 17 00:00:00 2001
>From: Tomas Cohen Arazi <tomascohen@theke.io>
>Date: Mon, 18 Dec 2017 11:25:00 -0300
>Subject: [PATCH] Bug 19826: Add K::Acq::Budget(s) and K::Acq::Budget::Fund(s)
>
>This patch introduces Koha::Object(s)-derived classes for budgets and funds (aqbudgetperiods and aqbudgets respectively).
>
>C4::Budgets already uses DBIC calls on those tables so transition should be easy on top of this.
>
>To test:
>- Check the referenced schema files are the right ones.
>- QA scripts shoudl be happy.
>- Sign off :-D
>
>Note: the POD coverage report throws a false negative result on singular classes which is trivially wrong.
>---
> Koha/Acquisition/Budget.pm       | 40 +++++++++++++++++++++++++++++++++
> Koha/Acquisition/Budget/Fund.pm  | 40 +++++++++++++++++++++++++++++++++
> Koha/Acquisition/Budget/Funds.pm | 48 ++++++++++++++++++++++++++++++++++++++++
> Koha/Acquisition/Budgets.pm      | 48 ++++++++++++++++++++++++++++++++++++++++
> 4 files changed, 176 insertions(+)
> create mode 100644 Koha/Acquisition/Budget.pm
> create mode 100644 Koha/Acquisition/Budget/Fund.pm
> create mode 100644 Koha/Acquisition/Budget/Funds.pm
> create mode 100644 Koha/Acquisition/Budgets.pm
>
>diff --git a/Koha/Acquisition/Budget.pm b/Koha/Acquisition/Budget.pm
>new file mode 100644
>index 0000000000..3fea5de5d3
>--- /dev/null
>+++ b/Koha/Acquisition/Budget.pm
>@@ -0,0 +1,40 @@
>+package Koha::Acquisition::Budget;
>+
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 3 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
>+#
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, write to the Free Software Foundation, Inc.,
>+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
>+
>+use Modern::Perl;
>+
>+use Koha::Database;
>+
>+use base qw(Koha::Object);
>+
>+=head1 NAME
>+
>+Koha::Acquisition::Budget object class
>+
>+=head1 API
>+
>+=head2 Internal methods
>+
>+=head3 _type
>+
>+=cut
>+
>+sub _type {
>+    return 'Aqbudgetperiod';
>+}
>+
>+1;
>diff --git a/Koha/Acquisition/Budget/Fund.pm b/Koha/Acquisition/Budget/Fund.pm
>new file mode 100644
>index 0000000000..969ba9d21d
>--- /dev/null
>+++ b/Koha/Acquisition/Budget/Fund.pm
>@@ -0,0 +1,40 @@
>+package Koha::Acquisition::Budget::Fund;
>+
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 3 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
>+#
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, write to the Free Software Foundation, Inc.,
>+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
>+
>+use Modern::Perl;
>+
>+use Koha::Database;
>+
>+use base qw(Koha::Object);
>+
>+=head1 NAME
>+
>+Koha::Acquisition::Budget::Fund object class
>+
>+=head1 API
>+
>+=head2 Internal methods
>+
>+=head3 _type
>+
>+=cut
>+
>+sub _type {
>+    return 'Aqbudget';
>+}
>+
>+1;
>diff --git a/Koha/Acquisition/Budget/Funds.pm b/Koha/Acquisition/Budget/Funds.pm
>new file mode 100644
>index 0000000000..f619ef78a0
>--- /dev/null
>+++ b/Koha/Acquisition/Budget/Funds.pm
>@@ -0,0 +1,48 @@
>+package Koha::Acquisition::Budget::Funds;
>+
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 3 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
>+#
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, write to the Free Software Foundation, Inc.,
>+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
>+
>+use Modern::Perl;
>+
>+use Koha::Database;
>+
>+use base qw(Koha::Objects);
>+
>+=head1 NAME
>+
>+Koha::Acquisition::Budget::Funds object set class
>+
>+=head1 API
>+
>+=head2 Internal methods
>+
>+=head3 _type (internal)
>+
>+=cut
>+
>+sub _type {
>+    return 'Aqbudget';
>+}
>+
>+=head3 object_class (internal)
>+
>+=cut
>+
>+sub object_class {
>+    return 'Koha::Acquisition::Fund';
>+}
>+
>+1;
>diff --git a/Koha/Acquisition/Budgets.pm b/Koha/Acquisition/Budgets.pm
>new file mode 100644
>index 0000000000..e9cae2227b
>--- /dev/null
>+++ b/Koha/Acquisition/Budgets.pm
>@@ -0,0 +1,48 @@
>+package Koha::Acquisition::Budgets;
>+
>+# This file is part of Koha.
>+#
>+# Koha is free software; you can redistribute it and/or modify it under the
>+# terms of the GNU General Public License as published by the Free Software
>+# Foundation; either version 3 of the License, or (at your option) any later
>+# version.
>+#
>+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
>+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
>+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
>+#
>+# You should have received a copy of the GNU General Public License along
>+# with Koha; if not, write to the Free Software Foundation, Inc.,
>+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
>+
>+use Modern::Perl;
>+
>+use Koha::Database;
>+
>+use base qw(Koha::Objects);
>+
>+=head1 NAME
>+
>+Koha::Acquisition::Budgets object set class
>+
>+=head1 API
>+
>+=head2 Internal methods
>+
>+=head3 _type (internal)
>+
>+=cut
>+
>+sub _type {
>+    return 'Aqbudgetperiod';
>+}
>+
>+=head3 object_class (internal)
>+
>+=cut
>+
>+sub object_class {
>+    return 'Koha::Acquisition::Budget';
>+}
>+
>+1;
>-- 
>2.14.1

Actions: View | Diff | Splinter Review

Attachments on bug 19826: 69848 | 69849 | 69891 | 69918 | 69919 | 70063 | 70064 | 70119 | 70120 | 70156 | 70157