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