Attachment #122527 for bug #28026

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

Lines 106-113 sub _new_from_dbic { Link Here

(-)a/Koha/Object.pm (-1 / +2 lines)
106	croak( "DBIC result _type " . ref( $self->{_result} ) . " isn't of the _type " . $class->_type() )	106	croak( "DBIC result _type " . ref( $self->{_result} ) . " isn't of the _type " . $class->_type() )
107	unless ref( $self->{_result} ) eq "Koha::Schema::Result::" . $class->_type();	107	unless ref( $self->{_result} ) eq "Koha::Schema::Result::" . $class->_type();
108		108
109	bless( $self, $class );	109	eval "require Koha::ObjectHooks";
110		110
		111	bless( $self, $class );
111	}	112	}
112		113
113	=head3 $object->store();	114	=head3 $object->store();

Line 0 Link Here

(-)a/Koha/ObjectHooks.pm (+10 lines)
	1	package Koha::ObjectHooks;
	2
	3	use Hook::LexWrap;
	4
	5	wrap 'Koha::Patron::fixup_cardnumber', post =>
	6	sub { my ( $self ) = @_;
	7	$self->cardnumber( sprintf("LB%07d", $self->cardnumber));
	8	};
	9
	10	1;




#!/usr/bin/perl

# 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, see <http://www.gnu.org/licenses>.


use Modern::Perl;
use Koha::Patrons;

use Test::More tests => 1;


my $borrowernumber = 1;

my $patron = Koha::Patrons->find( $borrowernumber );

$patron->fixup_cardnumber();

printf ("%s \n", $patron->cardnumber);
like($patron->cardnumber, qr/LB\d+/, 'cardnumber is prefixed by LB');

Return to bug 28026

Line 0 Link Here

(-)a/t/patron-object-hook.t (-1 / +32 lines)
0	-	1	#!/usr/bin/perl
		2
		3	# This file is part of Koha.
		4	#
		5	# Koha is free software; you can redistribute it and/or modify it
		6	# under the terms of the GNU General Public License as published by
		7	# the Free Software Foundation; either version 3 of the License, or
		8	# (at your option) any later version.
		9	#
		10	# Koha is distributed in the hope that it will be useful, but
		11	# WITHOUT ANY WARRANTY; without even the implied warranty of
		12	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
		13	# GNU General Public License for more details.
		14	#
		15	# You should have received a copy of the GNU General Public License
		16	# along with Koha; if not, see <http://www.gnu.org/licenses>.
		17
		18
		19	use Modern::Perl;
		20	use Koha::Patrons;
		21
		22	use Test::More tests => 1;
		23
		24
		25	my $borrowernumber = 1;
		26
		27	my $patron = Koha::Patrons->find( $borrowernumber );
		28
		29	$patron->fixup_cardnumber();
		30
		31	printf ("%s \n", $patron->cardnumber);
		32	like($patron->cardnumber, qr/LB\d+/, 'cardnumber is prefixed by LB');