X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=members%2Fupdate-child.pl;h=492219f483341868342faddd859fc2e611995b30;hb=1c6cdaf162591892cc8a4318044482563fe47bdc;hp=cdfc5ffdb79d0360c93fd661a84df024814916e6;hpb=3675d8803579a275831816cd68b2dc1430f0763f;p=koha_fer diff --git a/members/update-child.pl b/members/update-child.pl index cdfc5ffdb7..492219f483 100755 --- a/members/update-child.pl +++ b/members/update-child.pl @@ -13,9 +13,9 @@ # 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., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# 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. =head1 updatechild.pl @@ -27,6 +27,7 @@ =cut use strict; +#use warnings; FIXME - Bug 2505 use CGI; use C4::Context; use C4::Auth; @@ -79,8 +80,8 @@ if ( $op eq 'multi' ) { } elsif ( $op eq 'update' ) { - my $member = GetMember($borrowernumber); - $member->{'guarantorid'} = '0'; + my $member = GetMember('borrowernumber'=>$borrowernumber); + $member->{'guarantorid'} = 0; $member->{'categorycode'} = $catcode; my $borcat = GetBorrowercategory($catcode); $member->{'category_type'} = $borcat->{'category_type'};