1 package C4::Interface::BorrowerCDK; #asummes C4/Interface/BorrowerCDK
5 # Copyright 2000-2002 Katipo Communications
7 # This file is part of Koha.
9 # Koha is free software; you can redistribute it and/or modify it under the
10 # terms of the GNU General Public License as published by the Free Software
11 # Foundation; either version 2 of the License, or (at your option) any later
14 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
15 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
16 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
18 # You should have received a copy of the GNU General Public License along with
19 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
20 # Suite 330, Boston, MA 02111-1307 USA
22 # FIXME - I'm pretty sure that this, along with the rest of the
23 # CDK-based stuff, is obsolete.
31 use vars qw($VERSION @ISA @EXPORT);
32 # set the version for version checking
36 @EXPORT = qw(&BorrowerAddress);
39 my ($env,$bornum,$borrower)=@_;
40 my $titlepanel = titlepanel($env,$env{'sysarea'},"Update Borrower");
42 my BorrAdd = BorrAddpame
45 my ($env,$bornum,$borrower)=@_;
46 my $titlepanel = titlepanel($env,$env{'sysarea'},"Update Borrower");
47 my @rowtitl = ("Card Number","Surname","First Name","Other Names","Initials",
48 "Address","Area","Town","Telephone","Email","Fax Number","Alt Address",
49 "Alt Area","Alt Town","Alt Phone","Contact Name");
51 my @coltypes = ("UMIXED");
53 my $entrymatrix = new Cdk::Matrix (
54 'ColTitles'=> \@coltitles,
55 'RowTitles'=> \@rowtitles,
56 'ColWidths'=> \@colwidths,
57 'ColTypes'=> \@coltypes,
62 $data[0] = $borrower{'cardnumber'};
63 $data[1] = $borrower{'surname'};
64 $data[2] = $borrower{'firstname'};
65 $data[3] = $borrower{'
66 $entrymatrix->inject('Input'=>"KEY_DOWN");
68 my ($rows,$cols,$info) = $entrymatrix->activate();
74 while ($i < $numflds) {
75 $responses[$i] =$info->[$i][0];
79 return($reason,@responses);
82 END { } # module clean-up code here (global destructor)