Attachment #136346 for bug #28854

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




use Modern::Perl;

use List::MoreUtils qw( any );
use Try::Tiny qw( catch try );

use Koha::Database;
use Koha::DateUtils qw( dt_from_string output_pref );

    return $to_biblionumber;
}

=head3 bundle_items

  my $bundle_items = $item->bundle_items;

Returns the items associated with this bundle

=cut

sub bundle_items {
    my ($self) = @_;

    if ( !$self->{_bundle_items_cached} ) {
        my $bundle_items = Koha::Items->search(
            { 'item_bundles_item.host' => $self->itemnumber },
            { join                     => 'item_bundles_item' } );
        $self->{_bundle_items}        = $bundle_items;
        $self->{_bundle_items_cached} = 1;
    }

    return $self->{_bundle_items};
}

=head3 is_bundle

  my $is_bundle = $item->is_bundle;

Returns whether the item is a bundle or not

=cut

sub is_bundle {
    my ($self) = @_;
    return $self->bundle_items->count ? 1 : 0;
}

=head3 bundle_host

  my $bundle = $item->bundle_host;

Returns the bundle item this item is attached to

=cut

sub bundle_host {
    my ($self) = @_;

    my $bundle_items_rs = $self->_result->item_bundles_item;
    return unless $bundle_items_rs;
    return Koha::Item->_new_from_dbic($bundle_items_rs->host);
}

=head3 in_bundle

  my $in_bundle = $item->in_bundle;

Returns whether this item is currently in a bundle

=cut

sub in_bundle {
    my ($self) = @_;
    return $self->bundle_host ? 1 : 0;
}

=head3 add_to_bundle

  my $link = $item->add_to_bundle($bundle_item);

Adds the bundle_item passed to this item

=cut

sub add_to_bundle {
    my ( $self, $bundle_item ) = @_;

    my $schema = Koha::Database->new->schema;

    my $BundleNotLoanValue = C4::Context->preference('BundleNotLoanValue');

    try {
        $schema->txn_do(
            sub {
                $self->_result->add_to_item_bundles_hosts(
                    { item => $bundle_item->itemnumber } );

                $bundle_item->notforloan($BundleNotLoanValue)->store();
            }
        );
    }
    catch {

        # FIXME: See if we can move the below copy/paste from Koha::Object::store into it's own class and catch at a lower level in the Schema instantiation.. take inspiration fro DBIx::Error
        if ( ref($_) eq 'DBIx::Class::Exception' ) {
            warn $_->{msg};
            if ( $_->{msg} =~ /Cannot add or update a child row: a foreign key constraint fails/ ) {
                # FK constraints
                # FIXME: MySQL error, if we support more DB engines we should implement this for each
                if ( $_->{msg} =~ /FOREIGN KEY \(`(?<column>.*?)`\)/ ) {
                    Koha::Exceptions::Object::FKConstraint->throw(
                        error     => 'Broken FK constraint',
                        broken_fk => $+{column}
                    );
                }
            }
            elsif (
                $_->{msg} =~ /Duplicate entry '(.*?)' for key '(?<key>.*?)'/ )
            {
                Koha::Exceptions::Object::DuplicateID->throw(
                    error        => 'Duplicate ID',
                    duplicate_id => $+{key}
                );
            }
            elsif ( $_->{msg} =~
/Incorrect (?<type>\w+) value: '(?<value>.*)' for column \W?(?<property>\S+)/
              )
            {    # The optional \W in the regex might be a quote or backtick
                my $type     = $+{type};
                my $value    = $+{value};
                my $property = $+{property};
                $property =~ s/['`]//g;
                Koha::Exceptions::Object::BadValue->throw(
                    type     => $type,
                    value    => $value,
                    property => $property =~ /(\w+\.\w+)$/
                    ? $1
                    : $property
                    ,    # results in table.column without quotes or backtics
                );
            }

            # Catch-all for foreign key breakages. It will help find other use cases
            $_->rethrow();
        }
        else {
            $_;
        }
    };
}

=head3 remove_from_bundle

Remove this item from any bundle it may have been attached to.

=cut

sub remove_from_bundle {
    my ($self) = @_;

    my $bundle_item_rs = $self->_result->item_bundles_item;
    if ( $bundle_item_rs ) {
        $bundle_item_rs->delete;
        $self->notforloan(0)->store();
        return 1;
    }
    return 0;
}

=head2 Internal methods

=head3 _after_item_action_hooks




    };
}

=head3 bundled_items

Controller function that handles bundled_items Koha::Item objects

=cut

sub bundled_items {
    my $c = shift->openapi->valid_input or return;

    my $item_id = $c->validation->param('item_id');
    my $item = Koha::Items->find( $item_id );

    unless ($item) {
        return $c->render(
            status  => 404,
            openapi => { error => "Item not found" }
        );
    }

    return try {
        my $items_set = $item->bundle_items;
        my $items     = $c->objects->search( $items_set );
        return $c->render(
            status  => 200,
            openapi => $items
        );
    }
    catch {
        $c->unhandled_exception($_);
    };
}

=head3 add_to_bundle

Controller function that handles adding items to this bundle

=cut

sub add_to_bundle {
    my $c = shift->openapi->valid_input or return;

    my $item_id = $c->validation->param('item_id');
    my $item = Koha::Items->find( $item_id );

    unless ($item) {
        return $c->render(
            status  => 404,
            openapi => { error => "Item not found" }
        );
    }


    my $bundle_item_id = $c->validation->param('body')->{'external_id'};
    my $bundle_item = Koha::Items->find( { barcode => $bundle_item_id } );

    unless ($bundle_item) {
        return $c->render(
            status  => 404,
            openapi => { error => "Bundle item not found" }
        );
    }

    return try {
        my $link = $item->add_to_bundle($bundle_item);
        return $c->render(
            status  => 201,
            openapi => $bundle_item
        );
    }
    catch {
        if ( ref($_) eq 'Koha::Exceptions::Object::DuplicateID' ) {
            return $c->render(
                status  => 409,
                openapi => {
                    error => 'Item is already bundled',
                    key   => $_->duplicate_id
                }
            );
        }
        else {
            $c->unhandled_exception($_);
        }
    };
}

=head3 remove_from_bundle

Controller function that handles removing items from this bundle

=cut

sub remove_from_bundle {
    my $c = shift->openapi->valid_input or return;

    my $item_id = $c->validation->param('item_id');
    my $item = Koha::Items->find( $item_id );

    unless ($item) {
        return $c->render(
            status  => 404,
            openapi => { error => "Item not found" }
        );
    }

    my $bundle_item_id = $c->validation->param('bundled_item_id');
    my $bundle_item = Koha::Items->find( { itemnumber => $bundle_item_id } );

    unless ($bundle_item) {
        return $c->render(
            status  => 404,
            openapi => { error => "Bundle item not found" }
        );
    }

    $bundle_item->remove_from_bundle;
    return $c->render(
        status  => 204,
        openapi => q{}
    );
}

1;




            -
              columnname: checkin_on

      bundle_tables:
        columns:
            -
              columnname: title
              cannot_be_toggled: 1
            -
              columnname: author
            -
              columnname: collection_code
            -
              columnname: item_type
            -
              columnname: callnumber
            -
              columnname: external_id
            -
              columnname: status
            -
              columnname: bundle_actions
              cannot_be_toggled: 1
              cannot_be_modified: 1

  cataloguing:
    addbooks:
      reservoir-table:




---
type: object
properties:
  item_id:
    type:
      - integer
      - "null"
    description: Internal item identifier
  external_id:
    type:
      - string
      - "null"
    description: Item barcode
additionalProperties: false

Lines 7-12 properties: Link Here

(-)a/api/v1/swagger/definitions/item.yaml (+1 lines)
7	biblio_id:	7	biblio_id:
8	type: integer	8	type: integer
9	description: Internal identifier for the parent bibliographic record	9	description: Internal identifier for the parent bibliographic record
		10	biblio: {}
10	external_id:	11	external_id:
11	type:	12	type:
12	- string	13	- string




    x-koha-authorization:
      permissions:
        catalogue: "1"
"/items/{item_id}/bundled_items":
  post:
    x-mojo-to: Items#add_to_bundle
    operationId: addToBundle
    tags:
      - items
    summary: Add item to bundle
    parameters:
      - $ref: "../swagger.yaml#/parameters/item_id_pp"
      - name: body
        in: body
        description: A JSON object containing information about the new bundle link
        required: true
        schema:
          $ref: "../swagger.yaml#/definitions/bundle_link"
    consumes:
      - application/json
    produces:
      - application/json
    responses:
      "201":
        description: A successfully created bundle link
        schema:
          items:
            $ref: "../swagger.yaml#/definitions/item"
      "400":
        description: Bad parameter
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "401":
        description: Authentication required
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "403":
        description: Access forbidden
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "404":
        description: Resource not found
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "409":
        description: Conflict in creating resource
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "500":
        description: Internal server error
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "503":
        description: Under maintenance
        schema:
          $ref: "../swagger.yaml#/definitions/error"
    x-koha-authorization:
      permissions:
        catalogue: 1
  get:
    x-mojo-to: Items#bundled_items
    operationId: bundledItems
    tags:
      - items
    summary: List bundled items
    parameters:
      - $ref: "../swagger.yaml#/parameters/item_id_pp"
      - name: external_id
        in: query
        description: Search on the item's barcode
        required: false
        type: string
      - $ref: "../swagger.yaml#/parameters/match"
      - $ref: "../swagger.yaml#/parameters/order_by"
      - $ref: "../swagger.yaml#/parameters/page"
      - $ref: "../swagger.yaml#/parameters/per_page"
      - $ref: "../swagger.yaml#/parameters/q_param"
      - $ref: "../swagger.yaml#/parameters/q_body"
      - $ref: "../swagger.yaml#/parameters/q_header"
    consumes:
      - application/json
    produces:
      - application/json
    responses:
      "200":
        description: A list of item
        schema:
          type: array
          items:
            $ref: "../swagger.yaml#/definitions/item"
      "401":
        description: Authentication required
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "403":
        description: Access forbidden
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "500":
        description: Internal server error
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "503":
        description: Under maintenance
        schema:
          $ref: "../swagger.yaml#/definitions/error"
    x-koha-authorization:
      permissions:
        catalogue: "1"
    x-koha-embed:
      - biblio
      - checkout
"/items/{item_id}/bundled_items/{bundled_item_id}":
  delete:
    x-mojo-to: Items#remove_from_bundle
    operationId: removeFromBundle
    tags:
      - items
    summary: Remove item from bundle
    parameters:
      - $ref: "../swagger.yaml#/parameters/item_id_pp"
      - name: bundled_item_id
        in: path
        description: Internal identifier for the bundled item
        required: true
        type: string
    consumes:
      - application/json
    produces:
      - application/json
    responses:
      "204":
        description: Bundle link deleted
      "400":
        description: Bad parameter
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "401":
        description: Authentication required
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "403":
        description: Access forbidden
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "404":
        description: Resource not found
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "500":
        description: Internal server error
        schema:
          $ref: "../swagger.yaml#/definitions/error"
      "503":
        description: Under maintenance
        schema:
          $ref: "../swagger.yaml#/definitions/error"
    x-koha-authorization:
      permissions:
        catalogue: 1
"/items/{item_id}/pickup_locations":
  get:
    x-mojo-to: Items#pickup_locations

Lines 10-15 definitions: Link Here

(-)a/api/v1/swagger/swagger.yaml (+6 lines)
10	$ref: ./definitions/allows_renewal.yaml	10	$ref: ./definitions/allows_renewal.yaml
11	basket:	11	basket:
12	$ref: ./definitions/basket.yaml	12	$ref: ./definitions/basket.yaml
		13	bundle_link:
		14	$ref: ./definitions/bundle_link.yaml
13	cashup:	15	cashup:
14	$ref: ./definitions/cashup.yaml	16	$ref: ./definitions/cashup.yaml
15	checkout:	17	checkout:
Lines 153-158 paths: Link Here
153	$ref: ./paths/items.yaml#/~1items	155	$ref: ./paths/items.yaml#/~1items
154	"/items/{item_id}":	156	"/items/{item_id}":
155	$ref: "./paths/items.yaml#/~1items~1{item_id}"	157	$ref: "./paths/items.yaml#/~1items~1{item_id}"
		158	"/items/{item_id}/bundled_items":
		159	$ref: ./paths/items.yaml#/~1items~1{item_id}~1bundled_items
		160	"/items/{item_id}/bundled_items/{bundled_item_id}":
		161	$ref: ./paths/items.yaml#/~1items~1{item_id}~1bundled_items~1{bundled_item_id}
156	"/items/{item_id}/pickup_locations":	162	"/items/{item_id}/pickup_locations":
157	$ref: "./paths/items.yaml#/~1items~1{item_id}~1pickup_locations"	163	$ref: "./paths/items.yaml#/~1items~1{item_id}~1pickup_locations"
158	/libraries:	164	/libraries:

Lines 173-178 if (@hostitems){ Link Here

(-)a/catalogue/detail.pl (+14 lines)
173		173
174	my $dat = &GetBiblioData($biblionumber);	174	my $dat = &GetBiblioData($biblionumber);
175		175
		176	#is biblio a collection and are bundles enabled
		177	my $leader = $record->leader();
		178	$dat->{bundlesEnabled} = ( ( substr( $leader, 7, 1 ) eq 'c' )
		179	&& C4::Context->preference('BundleNotLoanValue') ) ? 1 : 0;
		180
176	#coping with subscriptions	181	#coping with subscriptions
177	my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);	182	my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
178	my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, orderby => 'title' });	183	my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, orderby => 'title' });
Lines 415-420 foreach my $item (@items) { Link Here
415	}	420	}
416	}	421	}
417		422
		423	if ($item_object->is_bundle) {
		424	$itemfields{bundles} = 1;
		425	$item->{is_bundle} = 1;
		426	}
		427
		428	if ($item_object->in_bundle) {
		429	$item->{bundle_host} = $item_object->bundle_host;
		430	}
		431
418	if ($currentbranch and C4::Context->preference('SeparateHoldings')) {	432	if ($currentbranch and C4::Context->preference('SeparateHoldings')) {
419	if ($itembranchcode and $itembranchcode eq $currentbranch) {	433	if ($itembranchcode and $itembranchcode eq $currentbranch) {
420	push @itemloop, $item;	434	push @itemloop, $item;

Lines 2355-2360 td { Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/css/src/staff-global.scss (+4 lines)
2355	display: block;	2355	display: block;
2356	}	2356	}
2357		2357
		2358	.bundled {
		2359	display: block;
		2360	}
		2361
2358	.datedue {	2362	.datedue {
2359	color: #999;	2363	color: #999;
2360	display: block;	2364	display: block;

Lines 165-170 Cataloging: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref (+4 lines)
165	- and record's last modifier name in MARC subfield	165	- and record's last modifier name in MARC subfield
166	- pref: MarcFieldForModifierName	166	- pref: MarcFieldForModifierName
167	- ". <br/><strong>NOTE:</strong> Use a dollar sign between field and subfield like 123$a."	167	- ". <br/><strong>NOTE:</strong> Use a dollar sign between field and subfield like 123$a."
		168	-
		169	- Use the NOT_LOAN authorised value
		170	- pref: BundleNotLoanValue
		171	- to represent 'added to bundle' when an item is attached to bundle.
168	Display:	172	Display:
169	-	173	-
170	- 'Separate main entry and subdivisions with '	174	- 'Separate main entry and subdivisions with '

Lines 354-365 Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt (-3 / +256 lines)
354	[% IF ( analyze ) %]<th id="[% tab \| html %]_usedin" data-colname="[% tab \| html %]_usedin">Used in</th><th></th>[% END %]	354	[% IF ( analyze ) %]<th id="[% tab \| html %]_usedin" data-colname="[% tab \| html %]_usedin">Used in</th><th></th>[% END %]
355	[% IF ( ShowCourseReserves ) %]<th id="[% tab \| html %]_course_reserves" data-colname="[% tab \| html %]_course_reserves">Course reserves</th>[% END %]	355	[% IF ( ShowCourseReserves ) %]<th id="[% tab \| html %]_course_reserves" data-colname="[% tab \| html %]_course_reserves">Course reserves</th>[% END %]
356	[% IF ( SpineLabelShowPrintOnBibDetails ) %]<th id="[% tab \| html %]_spinelabel" data-colname="[% tab \| html %]_spinelabel" class="NoSort">Spine label</th>[% END %]	356	[% IF ( SpineLabelShowPrintOnBibDetails ) %]<th id="[% tab \| html %]_spinelabel" data-colname="[% tab \| html %]_spinelabel" class="NoSort">Spine label</th>[% END %]
357	[% IF ( CAN_user_editcatalogue_edit_items ) %]<th id="[% tab \| html %]_actions" data-colname="[% tab \| html %]_actions"class="NoSort"> </th>[% END %]	357	[% IF ( CAN_user_editcatalogue_edit_items ) %]<th id="[% tab \| html %]_actions" data-colname="[% tab \| html %]_actions"class="NoSort noExport"> </th>[% END %]
358	</tr>	358	</tr>
359	</thead>	359	</thead>
360	<tbody>	360	<tbody>
361	[% FOREACH item IN items %]	361	[% FOREACH item IN items %]
362	<tr>	362	<tr id="item_[% item.itemnumber \| html %]" data-itemnumber="[% item.itemnumber \| html %]">
363	[% IF (StaffDetailItemSelection) %]	363	[% IF (StaffDetailItemSelection) %]
364	<td style="text-align:center;vertical-align:middle">	364	<td style="text-align:center;vertical-align:middle">
365	<input type="checkbox" value="[% item.itemnumber \| html %]" name="itemnumber" />	365	<input type="checkbox" value="[% item.itemnumber \| html %]" name="itemnumber" />
Lines 530-535 Note that permanent location is a code, and location may be an authval. Link Here
530	[% IF ( item.restricted ) %]	530	[% IF ( item.restricted ) %]
531	<span class="restricted">([% item.restrictedvalue \| html %])</span>	531	<span class="restricted">([% item.restrictedvalue \| html %])</span>
532	[% END %]	532	[% END %]
		533
		534	[% IF ( item.bundle_host ) %]
		535	<span class="bundled">In bundle: [% INCLUDE 'biblio-title.inc' biblio = item.bundle_host.biblio link = 1 %]</span>
		536	[% END %]
		537
533	</td>	538	</td>
534	<td class="datelastseen" data-order="[% item.datelastseen \| html %]">[% item.datelastseen \| $KohaDates %]</td>	539	<td class="datelastseen" data-order="[% item.datelastseen \| html %]">[% item.datelastseen \| $KohaDates %]</td>
535	<td class="dateaccessioned" data-order="[% item.dateaccessioned \| html %]">[% item.dateaccessioned \| $KohaDates %]</td>	540	<td class="dateaccessioned" data-order="[% item.dateaccessioned \| html %]">[% item.dateaccessioned \| $KohaDates %]</td>
Lines 614-619 Note that permanent location is a code, and location may be an authval. Link Here
614	<a class="btn btn-default btn-xs" href="/cgi-bin/koha/cataloguing/additem.pl?op=edititem&biblionumber=[% item.biblionumber \| html %]&itemnumber=[% item.itemnumber \| html %]#edititem"><i class="fa fa-pencil"></i> Edit</a>	619	<a class="btn btn-default btn-xs" href="/cgi-bin/koha/cataloguing/additem.pl?op=edititem&biblionumber=[% item.biblionumber \| html %]&itemnumber=[% item.itemnumber \| html %]#edititem"><i class="fa fa-pencil"></i> Edit</a>
615	[% END %]	620	[% END %]
616	[% END %]	621	[% END %]
		622	[% IF bundlesEnabled %]
		623	<button class="btn btn-default btn-xs details-control"><i class="fa fa-folder"></i> Manage bundle</button>
		624	[% END %]
617	</td>	625	</td>
618	[% END %]	626	[% END %]
619	</tr>	627	</tr>
Lines 1055-1060 Note that permanent location is a code, and location may be an authval. Link Here
1055		1063
1056	[% END %]	1064	[% END %]
1057		1065
		1066	[% IF bundlesEnabled %]
		1067	<div class="modal" id="bundleItemsModal" tabindex="-1" role="dialog" aria-labelledby="bundleItemsLabel">
		1068	<form id="bundleItemsForm" action="">
		1069	<div class="modal-dialog" role="document">
		1070	<div class="modal-content">
		1071	<div class="modal-header">
		1072	<button type="button" class="closebtn" data-dismiss="modal" aria-hidden="true">×</button>
		1073	<h3 id="bundleItemsLabel">Add to bundle</h3>
		1074	</div>
		1075	<div class="modal-body">
		1076	<div id="result"></div>
		1077	<fieldset class="rows">
		1078	<ol>
		1079	<li>
		1080	<label class="required" for="external_id">Item barcode: </label>
		1081	<input type="text" id="external_id" name="external_id" required="required">
		1082	<span class="required">Required</span>
		1083	</li>
		1084	</ol>
		1085	</fieldset>
		1086	</div>
		1087	<div class="modal-footer">
		1088	<button type="submit" class="btn btn-default">Submit</button>
		1089	<button class="btn btn-default" data-dismiss="modal" aria-hidden="true">Close</button>
		1090	</div>
		1091	</div>
		1092	</div>
		1093	</form>
		1094	</div>
		1095	[% END %]
		1096
1058	[% MACRO jsinclude BLOCK %]	1097	[% MACRO jsinclude BLOCK %]
1059	[% INCLUDE 'catalog-strings.inc' %]	1098	[% INCLUDE 'catalog-strings.inc' %]
1060	[% Asset.js("js/catalog.js") \| $raw %]	1099	[% Asset.js("js/catalog.js") \| $raw %]
Lines 1360-1365 Note that permanent location is a code, and location may be an authval. Link Here
1360	[% INCLUDE 'datatables.inc' %]	1399	[% INCLUDE 'datatables.inc' %]
1361	[% Asset.js("lib/jquery/plugins/jquery.dataTables.columnFilter.js") \| $raw %]	1400	[% Asset.js("lib/jquery/plugins/jquery.dataTables.columnFilter.js") \| $raw %]
1362	[% INCLUDE 'columns_settings.inc' %]	1401	[% INCLUDE 'columns_settings.inc' %]
		1402	[% INCLUDE 'js-date-format.inc' %]
1363	[% Asset.js("js/browser.js") \| $raw %]	1403	[% Asset.js("js/browser.js") \| $raw %]
1364	[% Asset.js("js/table_filters.js") \| $raw %]	1404	[% Asset.js("js/table_filters.js") \| $raw %]
1365	<script>	1405	<script>
Lines 1367-1373 Note that permanent location is a code, and location may be an authval. Link Here
1367	browser = KOHA.browser('[% searchid \| html %]', parseInt(biblionumber, 10));	1407	browser = KOHA.browser('[% searchid \| html %]', parseInt(biblionumber, 10));
1368	browser.show();	1408	browser.show();
1369		1409
		1410	[% IF bundlesEnabled %]
		1411	var bundle_settings = [% TablesSettings.GetTableSettings('catalogue', 'detail','bundle_tables','json') \| $raw %];
		1412	[% END %]
1370	$(document).ready(function() {	1413	$(document).ready(function() {
		1414
		1415	[% IF bundlesEnabled %] // Bundle handling
		1416	function createChild ( row, itemnumber ) {
		1417
		1418	// Toolbar
		1419	var bundle_toolbar = $('<div id="toolbar" class="btn-toolbar"><a class="btn btn-default" data-toggle="modal" data-target="#bundleItemsModal" data-item="' + itemnumber + '"><i class="fa fa-plus"></i> Add to bundle</a></div>');
		1420
		1421	// This is the table we'll convert into a DataTable
		1422	var bundles_table = $('<table class="display tbundle" data-itemnumber="'+itemnumber+'" id="bundle_table_'+itemnumber+'" width="100%"/>');
		1423
		1424	// Display it the child row
		1425	row.child( bundle_toolbar.add(bundles_table) ).show();
		1426
		1427	// Initialise as a DataTable
		1428	var bundle_table_url = "/api/v1/items/" + itemnumber + "/bundled_items?";
		1429	var bundle_table = bundles_table.kohaTable({
		1430	"ajax": {
		1431	"url": bundle_table_url
		1432	},
		1433	"header_filter": false,
		1434	"embed": [
		1435	"biblio"
		1436	],
		1437	"order": [[ 1, "asc" ]],
		1438	"columnDefs": [ {
		1439	"targets": [0,1,2,3,4,5],
		1440	"render": function (data, type, row, meta) {
		1441	if ( data && type == 'display' ) {
		1442	return data.escapeHtml();
		1443	}
		1444	return data;
		1445	}
		1446	} ],
		1447	"columns": [
		1448	{
		1449	"data": "biblio.title:biblio.medium",
		1450	"title": "Title",
		1451	"searchable": true,
		1452	"orderable": true,
		1453	"render": function(data, type, row, meta) {
		1454	var title = "";
		1455	if ( row.biblio.title ) {
		1456	title = title.concat('<span class="biblio-title">',row.biblio.title,'</span>');
		1457	}
		1458	if ( row.biblio.subtitle ) {
		1459	title = title.concat('<span class="biblio-subtitle">',row.biblio.subtitle,'</span>');
		1460	}
		1461	if ( row.biblio.medium ) {
		1462	title = title.concat('<span class="biblio-medium">',row.biblio.medium,'</span>');
		1463	}
		1464	return title;
		1465	}
		1466	},
		1467	{
		1468	"data": "biblio.author",
		1469	"title": "Author",
		1470	"searchable": true,
		1471	"orderable": true,
		1472	},
		1473	{
		1474	"data": "collection_code",
		1475	"title": "Collection code",
		1476	"searchable": true,
		1477	"orderable": true,
1478	},
1479	{
1480	"data": "item_type",
1481	"title": "Item Type",
1482	"searchable": false,
1483	"orderable": true,
1484	},
1485	{
1486	"data": "callnumber",
1487	"title": "Callnumber",
1488	"searchable": true,
1489	"orderable": true,
1490	},
1491	{
1492	"data": "external_id",
1493	"title": "Barcode",
1494	"searchable": true,
1495	"orderable": true,
1496	},
1497	{
1498	"data": "lost_status:last_seen_date",
1499	"title": "Status",
1500	"searchable": false,
1501	"orderable": true,
1502	"render": function(data, type, row, meta) {
1503	if ( row.lost_status ) {
1504	return "Lost: " + row.lost_status;
1505	}
1506	return "";
1507	}
1508	},
1509	{
1510	"data": function( row, type, val, meta ) {
1511	var result = '<button class="btn btn-default btn-xs remove" role="button" data-itemnumber="'+row.item_id+'"><i class="fa fa-minus" aria-hidden="true"></i> '+_("Remove")+'</button>\n';
1512	return result;
1513	},
1514	"title": "Actions",
1515	"searchable": false,
1516	"orderable": false,
1517	"class": "noExport"
1518	}
1519	]
1520	}, bundle_settings, 1);
1521
1522	$(".tbundle").on("click", ".remove", function(){
1523	var bundle_table = $(this).closest('table');
1524	var host_itemnumber = bundle_table.data('itemnumber');
1525	var component_itemnumber = $(this).data('itemnumber');
1526	var unlink_item_url = "/api/v1/items/" + host_itemnumber + "/bundled_items/" + component_itemnumber;
1527	$.ajax({
1528	type: "DELETE",
1529	url: unlink_item_url,
1530	success: function(){
1531	bundle_table.DataTable({ 'retrieve': true }).draw(false);
1532	}
1533	});
1534	});
1535
1536	return;
1537	}
1538
1539	var bundle_changed;
1540	var bundle_form_active;
1541	$("#bundleItemsModal").on("shown.bs.modal", function(e){
1542	var button = $(e.relatedTarget);
1543	var item_id = button.data('item');
1544	$("#result").replaceWith('<div id="result"></div>');
1545	$("#bundleItemsForm").attr('action', '/api/v1/items/' + item_id + '/bundled_items');
1546	$("#external_id").focus();
1547	bundle_changed = 0;
1548	bundle_form_active = item_id;
1549	});
1550
1551	$("#bundleItemsForm").submit(function(event) {
1552
1553	/* stop form from submitting normally */
1554	event.preventDefault();
1555
1556	/* get the action attribute from the <form action=""> element */
1557	var $form = $(this),
1558	url = $form.attr('action');
1559
1560	/* Send the data using post with external_id */
1561	var posting = $.post({
1562	url: url,
1563	data: JSON.stringify({ external_id: $('#external_id').val()}),
1564	contentType: "application/json; charset=utf-8",
1565	dataType: "json"
1566	});
1567
1568	/* Report the results */
1569	posting.done(function(data) {
1570	var barcode = $('#external_id').val();
1571	$('#result').replaceWith('<div id="result" class="alert alert-success">Success: Added '+barcode+'</div>');
1572	$('#external_id').val('').focus();
1573	bundle_changed = 1;
1574	});
1575	posting.fail(function(data) {
1576	var barcode = $('#external_id').val();
1577	if ( data.status === 409 ) {
1578	var response = data.responseJSON;
1579	if ( response.key === "PRIMARY" ) {
1580	$('#result').replaceWith('<div id="result" class="alert alert-warning">Warning: Item '+barcode+' already attached</div>');
1581	} else {
1582	$('#result').replaceWith('<div id="result" class="alert alert-danger">Failure: Item '+barcode+' belongs to another bundle</div>');
1583	}
1584	} else {
1585	$('#result').replaceWith('<div id="result" class="alert alert-danger">Failure: Check the logs for details</div>');
1586	}
1587	$('#external_id').val('').focus();
1588	});
1589	});
1590
1591	$("#bundleItemsModal").on("hidden.bs.modal", function(e){
1592	if ( bundle_changed ) {
1593	$('#bundle_table_'+bundle_form_active).DataTable({ 'retrieve': true }).ajax.reload();
1594	}
1595	bundle_form_active = 0;
1596	bundle_changed = 0;
1597	});
1598
1599	// End bundle handling
1600	[% END %]
1601
1371	var table_names = [ 'holdings_table', 'otherholdings_table' ];	1602	var table_names = [ 'holdings_table', 'otherholdings_table' ];
1372	var table_settings = [ [% TablesSettings.GetTableSettings('catalogue', 'detail','holdings_table','json') \| $raw %], [% TablesSettings.GetTableSettings('catalogue', 'detail','otherholdings_table','json') \| $raw %] ];	1603	var table_settings = [ [% TablesSettings.GetTableSettings('catalogue', 'detail','holdings_table','json') \| $raw %], [% TablesSettings.GetTableSettings('catalogue', 'detail','otherholdings_table','json') \| $raw %] ];
1373	var has_images = [ "[% itemloop_has_images \| html %]", "[% otheritemloop_has_images \| html %]" ];	1604	var has_images = [ "[% itemloop_has_images \| html %]", "[% otheritemloop_has_images \| html %]" ];
Lines 1383-1388 Note that permanent location is a code, and location may be an authval. Link Here
1383	"sDom": 'C<"top pager"ilpfB><"#filter_c">tr<"bottom pager"ip>',	1614	"sDom": 'C<"top pager"ilpfB><"#filter_c">tr<"bottom pager"ip>',
1384	};	1615	};
1385	var table = KohaTable( table_name, dt_parameters, table_settings[index], 'with_filters' );	1616	var table = KohaTable( table_name, dt_parameters, table_settings[index], 'with_filters' );
		1617
		1618	[% IF bundlesEnabled %]
		1619	// Add event listener for opening and closing bundle details
		1620	$('#' + table_name + ' tbody').on('click', 'button.details-control', function () {
		1621	var tr = $(this).closest('tr');
		1622	var dTable = $(this).closest('table').DataTable({ 'retrieve': true });
		1623
		1624	var itemnumber = tr.data('itemnumber');
		1625	var row = dTable.row( tr );
		1626
		1627	if ( row.child.isShown() ) {
		1628	// This row is already open - close it
		1629	row.child.hide();
		1630	tr.removeClass('shown');
		1631	}
		1632	else {
		1633	// Open this row
		1634	createChild(row, itemnumber);
		1635	tr.addClass('shown');
		1636	}
		1637	} );
		1638	[% END %]
1386	});	1639	});
1387		1640
1388	[% IF Koha.Preference('AcquisitionDetails') %]	1641	[% IF Koha.Preference('AcquisitionDetails') %]
Lines 1404-1409 Note that permanent location is a code, and location may be an authval. Link Here
1404	"sPaginationType": "full"	1657	"sPaginationType": "full"
1405	}));	1658	}));
1406	[% END %]	1659	[% END %]
		1660
1407	});	1661	});
1408		1662
1409	[% IF (found1) %]	1663	[% IF (found1) %]
1410	-

Return to bug 28854

Lines 20-25 package Koha::Item; Link Here

(-)a/Koha/Item.pm (+158 lines)
20	use Modern::Perl;	20	use Modern::Perl;
21		21
22	use List::MoreUtils qw( any );	22	use List::MoreUtils qw( any );
		23	use Try::Tiny qw( catch try );
23		24
24	use Koha::Database;	25	use Koha::Database;
25	use Koha::DateUtils qw( dt_from_string output_pref );	26	use Koha::DateUtils qw( dt_from_string output_pref );
Lines 1441-1446 sub move_to_biblio { Link Here
1441	return $to_biblionumber;	1442	return $to_biblionumber;
1442	}	1443	}
1443		1444
		1445	=head3 bundle_items
		1446
		1447	my $bundle_items = $item->bundle_items;
		1448
		1449	Returns the items associated with this bundle
		1450
		1451	=cut
		1452
		1453	sub bundle_items {
		1454	my ($self) = @_;
		1455
		1456	if ( !$self->{_bundle_items_cached} ) {
		1457	my $bundle_items = Koha::Items->search(
		1458	{ 'item_bundles_item.host' => $self->itemnumber },
		1459	{ join => 'item_bundles_item' } );
		1460	$self->{_bundle_items} = $bundle_items;
		1461	$self->{_bundle_items_cached} = 1;
		1462	}
		1463
		1464	return $self->{_bundle_items};
		1465	}
		1466
		1467	=head3 is_bundle
		1468
		1469	my $is_bundle = $item->is_bundle;
		1470
		1471	Returns whether the item is a bundle or not
		1472
		1473	=cut
		1474
		1475	sub is_bundle {
		1476	my ($self) = @_;
		1477	return $self->bundle_items->count ? 1 : 0;
		1478	}
		1479
		1480	=head3 bundle_host
		1481
		1482	my $bundle = $item->bundle_host;
		1483
		1484	Returns the bundle item this item is attached to
		1485
		1486	=cut
		1487
		1488	sub bundle_host {
		1489	my ($self) = @_;
		1490
		1491	my $bundle_items_rs = $self->_result->item_bundles_item;
		1492	return unless $bundle_items_rs;
		1493	return Koha::Item->_new_from_dbic($bundle_items_rs->host);
		1494	}
		1495
		1496	=head3 in_bundle
		1497
		1498	my $in_bundle = $item->in_bundle;
		1499
		1500	Returns whether this item is currently in a bundle
		1501
		1502	=cut
		1503
		1504	sub in_bundle {
		1505	my ($self) = @_;
		1506	return $self->bundle_host ? 1 : 0;
		1507	}
		1508
1509	=head3 add_to_bundle
1510
1511	my $link = $item->add_to_bundle($bundle_item);
1512
1513	Adds the bundle_item passed to this item
1514
1515	=cut
1516
1517	sub add_to_bundle {
1518	my ( $self, $bundle_item ) = @_;
1519
1520	my $schema = Koha::Database->new->schema;
1521
1522	my $BundleNotLoanValue = C4::Context->preference('BundleNotLoanValue');
1523
1524	try {
1525	$schema->txn_do(
1526	sub {
1527	$self->_result->add_to_item_bundles_hosts(
1528	{ item => $bundle_item->itemnumber } );
1529
1530	$bundle_item->notforloan($BundleNotLoanValue)->store();
1531	}
1532	);
1533	}
1534	catch {
1535
1536	# FIXME: See if we can move the below copy/paste from Koha::Object::store into it's own class and catch at a lower level in the Schema instantiation.. take inspiration fro DBIx::Error
1537	if ( ref($_) eq 'DBIx::Class::Exception' ) {
1538	warn $_->{msg};
1539	if ( $_->{msg} =~ /Cannot add or update a child row: a foreign key constraint fails/ ) {
1540	# FK constraints
1541	# FIXME: MySQL error, if we support more DB engines we should implement this for each
1542	if ( $_->{msg} =~ /FOREIGN KEY \(`(?<column>.*?)`\)/ ) {
1543	Koha::Exceptions::Object::FKConstraint->throw(
1544	error => 'Broken FK constraint',
1545	broken_fk => $+{column}
1546	);
1547	}
1548	}
1549	elsif (
1550	$_->{msg} =~ /Duplicate entry '(.?)' for key '(?<key>.?)'/ )
1551	{
1552	Koha::Exceptions::Object::DuplicateID->throw(
1553	error => 'Duplicate ID',
1554	duplicate_id => $+{key}
1555	);
1556	}
1557	elsif ( $_->{msg} =~
1558	/Incorrect (?<type>\w+) value: '(?<value>.*)' for column \W?(?<property>\S+)/
1559	)
1560	{ # The optional \W in the regex might be a quote or backtick
1561	my $type = $+{type};
1562	my $value = $+{value};
1563	my $property = $+{property};
1564	$property =~ s/['`]//g;
1565	Koha::Exceptions::Object::BadValue->throw(
1566	type => $type,
1567	value => $value,
1568	property => $property =~ /(\w+\.\w+)$/
1569	? $1
1570	: $property
1571	, # results in table.column without quotes or backtics
1572	);
1573	}
1574
1575	# Catch-all for foreign key breakages. It will help find other use cases
1576	$_->rethrow();
1577	}
1578	else {
1579	$_;
1580	}
1581	};
1582	}
1583
1584	=head3 remove_from_bundle
1585
1586	Remove this item from any bundle it may have been attached to.
1587
1588	=cut
1589
1590	sub remove_from_bundle {
1591	my ($self) = @_;
1592
1593	my $bundle_item_rs = $self->_result->item_bundles_item;
1594	if ( $bundle_item_rs ) {
1595	$bundle_item_rs->delete;
1596	$self->notforloan(0)->store();
1597	return 1;
1598	}
1599	return 0;
1600	}
1601
1444	=head2 Internal methods	1602	=head2 Internal methods
1445		1603
1446	=head3 _after_item_action_hooks	1604	=head3 _after_item_action_hooks

Lines 148-151 sub pickup_locations { Link Here

(-)a/Koha/REST/V1/Items.pm (+121 lines)
148	};	148	};
149	}	149	}
150		150
		151	=head3 bundled_items
		152
		153	Controller function that handles bundled_items Koha::Item objects
		154
		155	=cut
		156
		157	sub bundled_items {
		158	my $c = shift->openapi->valid_input or return;
		159
		160	my $item_id = $c->validation->param('item_id');
		161	my $item = Koha::Items->find( $item_id );
		162
		163	unless ($item) {
		164	return $c->render(
		165	status => 404,
		166	openapi => { error => "Item not found" }
		167	);
		168	}
		169
		170	return try {
		171	my $items_set = $item->bundle_items;
		172	my $items = $c->objects->search( $items_set );
		173	return $c->render(
		174	status => 200,
		175	openapi => $items
		176	);
		177	}
		178	catch {
		179	$c->unhandled_exception($_);
		180	};
		181	}
		182
		183	=head3 add_to_bundle
		184
		185	Controller function that handles adding items to this bundle
		186
		187	=cut
		188
		189	sub add_to_bundle {
		190	my $c = shift->openapi->valid_input or return;
		191
		192	my $item_id = $c->validation->param('item_id');
		193	my $item = Koha::Items->find( $item_id );
		194
		195	unless ($item) {
		196	return $c->render(
		197	status => 404,
		198	openapi => { error => "Item not found" }
		199	);
		200	}
		201
		202
		203	my $bundle_item_id = $c->validation->param('body')->{'external_id'};
		204	my $bundle_item = Koha::Items->find( { barcode => $bundle_item_id } );
		205
		206	unless ($bundle_item) {
		207	return $c->render(
		208	status => 404,
		209	openapi => { error => "Bundle item not found" }
		210	);
		211	}
		212
		213	return try {
		214	my $link = $item->add_to_bundle($bundle_item);
215	return $c->render(
216	status => 201,
217	openapi => $bundle_item
218	);
219	}
220	catch {
221	if ( ref($_) eq 'Koha::Exceptions::Object::DuplicateID' ) {
222	return $c->render(
223	status => 409,
224	openapi => {
225	error => 'Item is already bundled',
226	key => $_->duplicate_id
227	}
228	);
229	}
230	else {
231	$c->unhandled_exception($_);
232	}
233	};
234	}
235
236	=head3 remove_from_bundle
237
238	Controller function that handles removing items from this bundle
239
240	=cut
241
242	sub remove_from_bundle {
243	my $c = shift->openapi->valid_input or return;
244
245	my $item_id = $c->validation->param('item_id');
246	my $item = Koha::Items->find( $item_id );
247
248	unless ($item) {
249	return $c->render(
250	status => 404,
251	openapi => { error => "Item not found" }
252	);
253	}
254
255	my $bundle_item_id = $c->validation->param('bundled_item_id');
256	my $bundle_item = Koha::Items->find( { itemnumber => $bundle_item_id } );
257
258	unless ($bundle_item) {
259	return $c->render(
260	status => 404,
261	openapi => { error => "Bundle item not found" }
262	);
263	}
264
265	$bundle_item->remove_from_bundle;
266	return $c->render(
267	status => 204,
268	openapi => q{}
269	);
270	}
271
151	1;	272	1;

Lines 509-514 modules: Link Here

(-)a/admin/columns_settings.yml (+22 lines)
509	-	509	-
510	columnname: checkin_on	510	columnname: checkin_on
511		511
		512	bundle_tables:
		513	columns:
		514	-
		515	columnname: title
		516	cannot_be_toggled: 1
		517	-
		518	columnname: author
		519	-
		520	columnname: collection_code
		521	-
		522	columnname: item_type
		523	-
		524	columnname: callnumber
		525	-
		526	columnname: external_id
		527	-
		528	columnname: status
		529	-
		530	columnname: bundle_actions
		531	cannot_be_toggled: 1
		532	cannot_be_modified: 1
		533
512	cataloguing:	534	cataloguing:
513	addbooks:	535	addbooks:
514	reservoir-table:	536	reservoir-table:

Line 0 Link Here

(-)a/api/v1/swagger/definitions/bundle_link.yaml (+14 lines)
	1	---
	2	type: object
	3	properties:
	4	item_id:
	5	type:
	6	- integer
	7	- "null"
	8	description: Internal item identifier
	9	external_id:
	10	type:
	11	- string
	12	- "null"
	13	description: Item barcode
	14	additionalProperties: false

Lines 93-98 Link Here

(-)a/api/v1/swagger/paths/items.yaml (+157 lines)
93	x-koha-authorization:	93	x-koha-authorization:
94	permissions:	94	permissions:
95	catalogue: "1"	95	catalogue: "1"
		96	"/items/{item_id}/bundled_items":
		97	post:
		98	x-mojo-to: Items#add_to_bundle
		99	operationId: addToBundle
		100	tags:
		101	- items
		102	summary: Add item to bundle
		103	parameters:
		104	- $ref: "../swagger.yaml#/parameters/item_id_pp"
		105	- name: body
		106	in: body
		107	description: A JSON object containing information about the new bundle link
		108	required: true
		109	schema:
		110	$ref: "../swagger.yaml#/definitions/bundle_link"
		111	consumes:
		112	- application/json
		113	produces:
		114	- application/json
		115	responses:
		116	"201":
		117	description: A successfully created bundle link
		118	schema:
		119	items:
		120	$ref: "../swagger.yaml#/definitions/item"
		121	"400":
		122	description: Bad parameter
		123	schema:
		124	$ref: "../swagger.yaml#/definitions/error"
		125	"401":
		126	description: Authentication required
		127	schema:
		128	$ref: "../swagger.yaml#/definitions/error"
		129	"403":
		130	description: Access forbidden
		131	schema:
		132	$ref: "../swagger.yaml#/definitions/error"
		133	"404":
		134	description: Resource not found
		135	schema:
		136	$ref: "../swagger.yaml#/definitions/error"
		137	"409":
		138	description: Conflict in creating resource
		139	schema:
		140	$ref: "../swagger.yaml#/definitions/error"
		141	"500":
		142	description: Internal server error
		143	schema:
		144	$ref: "../swagger.yaml#/definitions/error"
		145	"503":
		146	description: Under maintenance
		147	schema:
		148	$ref: "../swagger.yaml#/definitions/error"
		149	x-koha-authorization:
		150	permissions:
		151	catalogue: 1
		152	get:
		153	x-mojo-to: Items#bundled_items
		154	operationId: bundledItems
		155	tags:
		156	- items
		157	summary: List bundled items
		158	parameters:
		159	- $ref: "../swagger.yaml#/parameters/item_id_pp"
160	- name: external_id
161	in: query
162	description: Search on the item's barcode
163	required: false
164	type: string
165	- $ref: "../swagger.yaml#/parameters/match"
166	- $ref: "../swagger.yaml#/parameters/order_by"
167	- $ref: "../swagger.yaml#/parameters/page"
168	- $ref: "../swagger.yaml#/parameters/per_page"
169	- $ref: "../swagger.yaml#/parameters/q_param"
170	- $ref: "../swagger.yaml#/parameters/q_body"
171	- $ref: "../swagger.yaml#/parameters/q_header"
172	consumes:
173	- application/json
174	produces:
175	- application/json
176	responses:
177	"200":
178	description: A list of item
179	schema:
180	type: array
181	items:
182	$ref: "../swagger.yaml#/definitions/item"
183	"401":
184	description: Authentication required
185	schema:
186	$ref: "../swagger.yaml#/definitions/error"
187	"403":
188	description: Access forbidden
189	schema:
190	$ref: "../swagger.yaml#/definitions/error"
191	"500":
192	description: Internal server error
193	schema:
194	$ref: "../swagger.yaml#/definitions/error"
195	"503":
196	description: Under maintenance
197	schema:
198	$ref: "../swagger.yaml#/definitions/error"
199	x-koha-authorization:
200	permissions:
201	catalogue: "1"
202	x-koha-embed:
203	- biblio
204	- checkout
205	"/items/{item_id}/bundled_items/{bundled_item_id}":
206	delete:
207	x-mojo-to: Items#remove_from_bundle
208	operationId: removeFromBundle
209	tags:
210	- items
211	summary: Remove item from bundle
212	parameters:
213	- $ref: "../swagger.yaml#/parameters/item_id_pp"
214	- name: bundled_item_id
215	in: path
216	description: Internal identifier for the bundled item
217	required: true
218	type: string
219	consumes:
220	- application/json
221	produces:
222	- application/json
223	responses:
224	"204":
225	description: Bundle link deleted
226	"400":
227	description: Bad parameter
228	schema:
229	$ref: "../swagger.yaml#/definitions/error"
230	"401":
231	description: Authentication required
232	schema:
233	$ref: "../swagger.yaml#/definitions/error"
234	"403":
235	description: Access forbidden
236	schema:
237	$ref: "../swagger.yaml#/definitions/error"
238	"404":
239	description: Resource not found
240	schema:
241	$ref: "../swagger.yaml#/definitions/error"
242	"500":
243	description: Internal server error
244	schema:
245	$ref: "../swagger.yaml#/definitions/error"
246	"503":
247	description: Under maintenance
248	schema:
249	$ref: "../swagger.yaml#/definitions/error"
250	x-koha-authorization:
251	permissions:
252	catalogue: 1
96	"/items/{item_id}/pickup_locations":	253	"/items/{item_id}/pickup_locations":
97	get:	254	get:
98	x-mojo-to: Items#pickup_locations	255	x-mojo-to: Items#pickup_locations