[Koha-cvs] koha/members memberentry.pl

[Chris Cormack]

CVSROOT:	/sources/koha
Module name:	koha
Branch: 	
Changes by:	Chris Cormack <rangi at savannah.gnu.org>	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,\@orgs);
 				 }
 				logaction($loggedinuser,"MEMBERS","add member", $borrowerid, "");
 			}