Attachment #55471 for bug #7677

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




    @EXPORT = qw(
      &NewSubscription    &ModSubscription    &DelSubscription
      &GetSubscription    &CountSubscriptionFromBiblionumber      &GetSubscriptionsFromBiblionumber
      &SearchSubscriptions
      &GetFullSubscriptionsFromBiblionumber   &GetFullSubscription &ModSubscriptionHistory
      &HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire
      &GetSubscriptionHistoryFromSubscriptionId

    return $dbh->prepare($query);
}

=head2 GetItemnumberFromSerialId

$itemnumber = GetSerialInformation($serialid);
this function returns the itemnumber, given a serialid in parameter
return : itemnumber

=cut

sub GetItemnumberFromSerialId {
    my ($serialid) = @_;
    my $dbh   = C4::Context->dbh;
    my $query = qq|
        SELECT itemnumber
        FROM   serialitems
        WHERE  serialid = ?
    |;
    my $sth = $dbh->prepare($query);
    $sth->execute($serialid);
    my ($result) = $sth->fetchrow;
    return ($result);
}



=head2 GetSerialInformation


$data = GetSerialInformation($serialid);
returns a hash_ref containing :
  items : items marcrecord (can be an array)




package Koha::Serial::Item;

# Copyright ByWater Solutions 2016
#
# 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 base qw(Koha::Object);

=head1 NAME

Koha::Serial::Item - Koha Serial Item Object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub type {
    return 'Serialitem';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;




package Koha::Serial::Items;

# Copyright ByWater Solutions 2016
#
# 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::Serial::Item;

use base qw(Koha::Objects);

=head1 NAME

Koha::Serial::Items - Koha Serial Items Object class

=head1 API

=head2 Class Methods

=cut

=head3 type

=cut

sub type {
    return 'Serialitem';
}

sub object_class {
    return 'Koha::Serial::Item';
}

=head1 AUTHOR

Kyle M Hall <kyle@bywatersolutions.com>

=cut

1;

Lines 74-79 use C4::Context; Link Here

(-)a/serials/serials-edit.pl (-2 / +4 lines)
74	use C4::Serials;	74	use C4::Serials;
75	use C4::Search qw/enabled_staff_search_views/;	75	use C4::Search qw/enabled_staff_search_views/;
76	use Koha::DateUtils;	76	use Koha::DateUtils;
		77	use Koha::Serial::Items;
77		78
78	use List::MoreUtils qw/uniq/;	79	use List::MoreUtils qw/uniq/;
79		80
Lines 256-262 if ( $op and $op eq 'serialchangestatus' ) { Link Here
256	my $previous = GetPreviousSerialid($subscriptionids[$i]);	257	my $previous = GetPreviousSerialid($subscriptionids[$i]);
257	if ($previous) {	258	if ($previous) {
258		259
259	if (my $itemnumber = GetItemnumberFromSerialId($previous)) {	260	my $serialitem = Koha::Serial::Items->find( $previous );
		261	my $itemnumber = $serialitem ? $serialitem->itemnumber : undef;
		262	if ($itemnumber) {
260		263
261	# Getting the itemtype to set from the database	264	# Getting the itemtype to set from the database
262	my $subscriptioninfos = GetSubscription($subscriptionids[$i]);	265	my $subscriptioninfos = GetSubscription($subscriptionids[$i]);
263	-

Return to bug 7677

Lines 66-72 BEGIN { Link Here

(-)a/C4/Serials.pm (-26 / +1 lines)
66	@EXPORT = qw(	66	@EXPORT = qw(
67	&NewSubscription &ModSubscription &DelSubscription	67	&NewSubscription &ModSubscription &DelSubscription
68	&GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber	68	&GetSubscription &CountSubscriptionFromBiblionumber &GetSubscriptionsFromBiblionumber
69	&SearchSubscriptions &GetItemnumberFromSerialId	69	&SearchSubscriptions
70	&GetFullSubscriptionsFromBiblionumber &GetFullSubscription &ModSubscriptionHistory	70	&GetFullSubscriptionsFromBiblionumber &GetFullSubscription &ModSubscriptionHistory
71	&HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire	71	&HasSubscriptionStrictlyExpired &HasSubscriptionExpired &GetExpirationDate &abouttoexpire
72	&GetSubscriptionHistoryFromSubscriptionId	72	&GetSubscriptionHistoryFromSubscriptionId
Lines 183-215 sub GetSerialStatusFromSerialId { Link Here
183	return $dbh->prepare($query);	183	return $dbh->prepare($query);
184	}	184	}
185		185
186	=head2 GetItemnumberFromSerialId
187
188	$itemnumber = GetSerialInformation($serialid);
189	this function returns the itemnumber, given a serialid in parameter
190	return : itemnumber
191
192	=cut
193
194	sub GetItemnumberFromSerialId {
195	my ($serialid) = @_;
196	my $dbh = C4::Context->dbh;
197	my $query = qq\|
198	SELECT itemnumber
199	FROM serialitems
200	WHERE serialid = ?
201	\|;
202	my $sth = $dbh->prepare($query);
203	$sth->execute($serialid);
204	my ($result) = $sth->fetchrow;
205	return ($result);
206	}
207
208
209
210	=head2 GetSerialInformation	186	=head2 GetSerialInformation
211		187
212
213	$data = GetSerialInformation($serialid);	188	$data = GetSerialInformation($serialid);
214	returns a hash_ref containing :	189	returns a hash_ref containing :
215	items : items marcrecord (can be an array)	190	items : items marcrecord (can be an array)

Line 0 Link Here

(-)a/Koha/Serial/Item.pm (+52 lines)
	1	package Koha::Serial::Item;
	2
	3	# Copyright ByWater Solutions 2016
	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 base qw(Koha::Object);
	27
	28	=head1 NAME
	29
	30	Koha::Serial::Item - Koha Serial Item Object class
	31
	32	=head1 API
	33
	34	=head2 Class Methods
	35
	36	=cut
	37
	38	=head3 type
	39
	40	=cut
	41
	42	sub type {
	43	return 'Serialitem';
	44	}
	45
	46	=head1 AUTHOR
	47
	48	Kyle M Hall <kyle@bywatersolutions.com>
	49
	50	=cut
	51
	52	1;

Line 0 Link Here

(-)a/Koha/Serial/Items.pm (+58 lines)
	1	package Koha::Serial::Items;
	2
	3	# Copyright ByWater Solutions 2016
	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::Serial::Item;
	27
	28	use base qw(Koha::Objects);
	29
	30	=head1 NAME
	31
	32	Koha::Serial::Items - Koha Serial Items 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 'Serialitem';
	46	}
	47
	48	sub object_class {
	49	return 'Koha::Serial::Item';
	50	}
	51
	52	=head1 AUTHOR
	53
	54	Kyle M Hall <kyle@bywatersolutions.com>
	55
	56	=cut
	57
	58	1;