[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/members memberentry.pl
From: |
Chris Cormack |
Subject: |
[Koha-cvs] koha/members memberentry.pl |
Date: |
Thu, 01 Jun 2006 21:49:25 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Chris Cormack <address@hidden> 06/06/01 21:49:25
Modified files:
members : memberentry.pl
Log message:
Fix for adding organisations to a borrower
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/members/memberentry.pl.diff?tr1=1.22&tr2=1.23&r1=text&r2=text
Patches:
Index: koha/members/memberentry.pl
diff -u koha/members/memberentry.pl:1.22 koha/members/memberentry.pl:1.23
--- koha/members/memberentry.pl:1.22 Tue May 23 02:18:21 2006
+++ koha/members/memberentry.pl Thu Jun 1 21:49:25 2006
@@ -1,5 +1,5 @@
#!/usr/bin/perl
-# $Id: memberentry.pl,v 1.22 2006/05/23 02:18:21 rangi Exp $
+# $Id: memberentry.pl,v 1.23 2006/06/01 21:49:25 rangi Exp $
# Copyright 2006 SAN OUEST PROVENCE et Paul POULAIN
#
@@ -204,9 +204,10 @@
$nok=1;
} else {
$borrowerid = &newmember(%data);
- if ($data{'organisations'}){
+ if ($data{'organisations'}){
# need to add the members organisations
-
add_member_orgs($borrowerid,$data{'organisations'});
+ my @orgs=split(/\|/,$data{'organisations'});
+ add_member_orgs($borrowerid,address@hidden);
}
logaction($loggedinuser,"MEMBERS","add member",
$borrowerid, "");
}
- [Koha-cvs] koha/members memberentry.pl,
Chris Cormack <=