From b9ef87d3d6607b83041f5d59714768ad89e419d1 Mon Sep 17 00:00:00 2001 From: Mason James Date: Sun, 16 Dec 2007 18:42:58 -0600 Subject: [PATCH] script to update child to other member-catergory. Signed-off-by: Chris Cormack Signed-off-by: Joshua Ferraro --- members/update-child.pl | 91 +++++++++++++++++++++++++++++++++++++++++ 1 file changed, 91 insertions(+) create mode 100755 members/update-child.pl diff --git a/members/update-child.pl b/members/update-child.pl new file mode 100755 index 0000000000..149cb8c1ef --- /dev/null +++ b/members/update-child.pl @@ -0,0 +1,91 @@ +#!/usr/bin/perl + +# Copyright 2000-2002 Katipo Communications +# +# 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 2 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., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA + +=head1 updatechild.pl + + script to update a child member to (usually) an adult member category + + - if called with op=multi, will return all available non child categories, for selection. + - if called with op=update, script will update member record via ModMember(). + +=cut + +use strict; +use CGI; +use C4::Context; +use C4::Auth; +use C4::Output; +use C4::Members; + +use Smart::Comments; + +my $dbh = C4::Context->dbh; +my $input = new CGI; + +my ( $template, $loggedinuser, $cookie ) = get_template_and_user( + { + template_name => "members/update-child.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { borrowers => 1 }, + debug => 1, + } +); + +my $borrowernumber = $input->param('borrowernumber'); +my $catcode = $input->param('catcode'); +my $cattype = $input->param('cattype'); +my $op = $input->param('op'); + +if ( $op eq 'multi' ) { + my ( $catcodes, $labels ) = + GetborCatFromCatType( 'C', 'WHERE category_type <> ?' ); + my @rows; + foreach my $k ( keys %$labels ) { + my $row; + $row->{catcode} = $k; + $row->{catdesc} = $labels->{$k}; + my $borcat = GetBorrowercategory( $row->{catcode} ); + $row->{cattype} = $borcat->{'category_type'}; + push @rows, $row; + } + $template->param( + MULTI => 1, + borrowernumber => $borrowernumber, + CAT_LOOP => \@rows, + ); + output_html_with_http_headers $input, $cookie, $template->output; +} + +elsif ( $op eq 'update' ) { + my $member = GetMember($borrowernumber); + $member->{'guarantorid'} = '0'; + $member->{'categorycode'} = $catcode; + my $borcat = GetBorrowercategory($catcode); + $member->{'category_type'} = $borcat->{'category_type'}; + $member->{'description'} = $borcat->{'description'}; + ModMember(%$member); + $template->param( + SUCCESS => 1, + borrowernumber => $borrowernumber, + ); + output_html_with_http_headers $input, $cookie, $template->output; +} + -- 2.39.5