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
28 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
30 # set the version for version checking
34 @EXPORT = qw(&BorrowerAddress);
35 %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
37 # your exported package globals go here,
38 # as well as any optionally exported functions
40 @EXPORT_OK = qw($Var1 %Hashit);
41 # non-exported package globals go here
42 use vars qw(@more $stuff);
44 # initalize package globals, first exported ones
49 # then the others (which are still accessible as $Some::Module::stuff)
53 # all file-scoped lexicals must be created before
54 # the functions below that use them.
56 # file-private lexicals go here
60 # here's a file-private function as a closure,
61 # callable as &$priv_func; it cannot be prototyped.
66 # make all your functions, whether exported or not;
68 my ($env,$bornum,$borrower)=@_;
69 my $titlepanel = titlepanel($env,$env{'sysarea'},"Update Borrower");
71 my BorrAdd = BorrAddpame
74 my ($env,$bornum,$borrower)=@_;
75 my $titlepanel = titlepanel($env,$env{'sysarea'},"Update Borrower");
76 my @rowtitl = ("Card Number","Surname","First Name","Other Names","Initials",
77 "Address","Area","Town","Telephone","Email","Fax Number","Alt Address",
78 "Alt Area","Alt Town","Alt Phone","Contact Name");
80 my @coltypes = ("UMIXED");
82 my $entrymatrix = new Cdk::Matrix (
83 'ColTitles'=> \@coltitles,
84 'RowTitles'=> \@rowtitles,
85 'ColWidths'=> \@colwidths,
86 'ColTypes'=> \@coltypes,
91 $data[0] = $borrower{'cardnumber'};
92 $data[1] = $borrower{'surname'};
93 $data[2] = $borrower{'firstname'};
94 $data[3] = $borrower{'
95 $entrymatrix->inject('Input'=>"KEY_DOWN");
97 my ($rows,$cols,$info) = $entrymatrix->activate();
103 while ($i < $numflds) {
104 $responses[$i] =$info->[$i][0];
108 return($reason,@responses);
111 END { } # module clean-up code here (global destructor)