From 9c7b6416c75df136de1cd45be72ee49951aedc1f Mon Sep 17 00:00:00 2001 From: Nick Clemens Date: Wed, 18 Jul 2018 16:34:50 +0000 Subject: [PATCH] Bug 20287: (RM follow-up) Add POD Signed-off-by: Nick Clemens --- Koha/Patron.pm | 32 ++++++++++++++++++++++++++++++-- 1 file changed, 30 insertions(+), 2 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index 4ad3124a6a..9524874aca 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -99,6 +99,12 @@ sub new { return $class->SUPER::new($params); } +=head3 fixup_cardnumber + +Autogenerate next cardnumber from highest value found in database + +=cut + sub fixup_cardnumber { my ( $self ) = @_; my $max = Koha::Patrons->search({ @@ -110,8 +116,13 @@ sub fixup_cardnumber { $self->cardnumber(($max || 0) +1); } -# trim whitespace from data which has some non-whitespace in it. -# Could be moved to Koha::Object if need to be reused +=head3 trim_whitespace + +trim whitespace from data which has some non-whitespace in it. +Could be moved to Koha::Object if need to be reused + +=cut + sub trim_whitespaces { my( $self ) = @_; @@ -128,6 +139,15 @@ sub trim_whitespaces { return $self; } +=head3 plain_text_password + +$patron->plain_text_password( $password ); + +stores a copy of the unencrypted password in the object +for use in code before encrypting for db + +=cut + sub plain_text_password { my ( $self, $password ) = @_; if ( $password ) { @@ -140,6 +160,14 @@ sub plain_text_password { return; } +=head3 store + +Patron specific store method to cleanup record +and do other necessary things before saving +to db + +=cut + sub store { my ($self) = @_; -- 2.39.5