# Suite 330, Boston, MA 02111-1307 USA
use CGI;
-use C4::Database;
+use C4::Context;
use C4::Input;
use Date::Manip;
use strict;
foreach my $key (@names){
$data{$key}=$input->param($key);
}
-my $dbh=C4Connect;
+my $dbh = C4::Context->dbh;
my $surname=$data{'institution_name'};
my $query="insert into borrowers (title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
firstname,altnotes,dateofbirth,contactname,emailaddress,dateenrolled,streetcity,
$sth2->finish;
#$sth->finish;
-$dbh->disconnect;
print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$data{'borrowernumber'}");