script to update child to other member-catergory.

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>

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;
+}
+