gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Uploading borrowers works now 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Chris Cormack 2007-10-28 21:50:59 -05:00 committed by Joshua Ferraro
parent 3e42b7777a
commit fc2c1f88b2
2 changed files with 27 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
koha-tmpl/intranet-tmpl/prog/en/modules/tools/import_borrowers.tmpl
View File

@ -24,7 +24,7 @@
<li><!-- TMPL_VAR name="alreadyindb" --> not imported because already in borrowers table and overwrite disabled</li>
<li><!-- TMPL_VAR name="invalid" --> not imported because they are not in the expected format !</li>
<li><!-- TMPL_VAR name="total" --> records parsed</li>
<li><a href="/cgi-bin/koha/admin-home.pl">Back</a></li>
<li><a href="/cgi-bin/koha/tools/tools-home.pl">Back</a></li>
</ul>
<!-- TMPL_ELSE -->
<ul>

41
tools/import_borrowers.pl
View File

@ -31,29 +31,31 @@
#
# any fields except cardnumber can be blank but the number of fields must match
# dates should be in the format you have set up Koha to expect
# branchcode and categorycode need to be valid
use strict;
use C4::Auth;
use C4::Output;
use C4::Date;
use C4::Context;
use C4::Members;
use Text::CSV;
use CGI;
my @columnkeys = (
'cardnumber', 'surname', 'firstname', 'title',
'othernames', 'initials', 'streetnumber', 'streettype',
'address', 'address2', 'city', 'email',
'phone', 'mobile', 'fax', 'emailpro',
'phonepro', 'B_streetnumber', 'B_streettype', 'B_address',
'B_city', 'B_zipcode', 'B_email', 'B_phone',
'dateofbirth', 'branchcode', 'categorycode', 'dateenrolled',
'dateexpiry', 'gonenoaddress', 'lost', 'debarred',
'contactname', 'contactfirstname', 'contacttitle', 'borrowernotes',
'relationship', 'ethnicity', 'ethnotes', 'sex',
'userid', 'opacnote', 'contactnote', 'password',
'sort1', 'sort2'
'cardnumber', 'surname', 'firstname', 'title',
'othernames', 'initials', 'streetnumber', 'streettype',
'address', 'address2', 'city', 'zipcode',
'email', 'phone', 'mobile', 'fax',
'emailpro', 'phonepro', 'B_streetnumber', 'B_streettype',
'B_address', 'B_city', 'B_zipcode', 'B_email',
'B_phone', 'dateofbirth', 'branchcode', 'categorycode',
'dateenrolled', 'dateexpiry', 'gonenoaddress', 'lost',
'debarred', 'contactname', 'contactfirstname', 'contacttitle',
'borrowernotes', 'relationship', 'ethnicity', 'ethnotes',
'sex', 'userid', 'opacnote', 'contactnote',
'password', 'sort1', 'sort2'
);
my $input = new CGI;
@ -86,11 +88,15 @@ if ( $uploadborrowers && length($uploadborrowers) > 0 ) {
my @columns = $csv->fields();
my %borrower;
if ( @columns == @columnkeys ) {
@borrower{@columnkeys} = @columns;
if ( GetMember( $borrower{'cardnumber'}, 'cardnumber' ) ) {
if ( my $member =
GetMember( $borrower{'cardnumber'}, 'cardnumber' ) )
{
# borrower exists
if ($overwrite_cardnumber) {
$borrower{'borrowernumber'} = $member->{'borrowernumber'};
ModMember(%borrower);
$overwritten++;
}
@ -99,8 +105,13 @@ if ( $uploadborrowers && length($uploadborrowers) > 0 ) {
}
}
else {
AddMember(%borrower);
$imported++;
my $borrowernumber = AddMember(%borrower);
if ($borrowernumber) {
$imported++;
}
else {
$invalid;
}
}
}
else {