[Koha-cvs] koha/members memberentry.pl

[Chris Cormack]

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, "");
                        }