Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

script to update child to other member-catergory.

Browse source 
Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Mason James 2007-12-16 18:42:58 -06:00 committed by Joshua Ferraro
parent f4811762d0
commit b9ef87d3d6
1 changed files with 91 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

91
members/update-child.pl Executable file
View file

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