added missing module import to C4::ILSDI::Utility

[koha.git] / C4 / Members.pm

diff --git a/C4/Members.pm b/C4/Members.pm
index a76e078..5bb3476 100644 (file)
--- a/C4/Members.pm
+++ b/C4/Members.pm
@@ -677,6 +677,7 @@ sub AddMember {
       . ",address="     . $dbh->quote( $data{'address'} )
       . ",address2="    . $dbh->quote( $data{'address2'} )
       . ",zipcode="     . $dbh->quote( $data{'zipcode'} )
+      . ",country="     . $dbh->quote( $data{'country'} )
       . ",city="        . $dbh->quote( $data{'city'} )
       . ",phone="       . $dbh->quote( $data{'phone'} )
       . ",email="       . $dbh->quote( $data{'email'} )
@@ -693,7 +694,9 @@ sub AddMember {
       . ",dateexpiry="  . $dbh->quote( $data{'dateexpiry'} )
       . ",contactnote=" . $dbh->quote( $data{'contactnote'} )
       . ",B_address="   . $dbh->quote( $data{'B_address'} )
+      . ",B_address2="   . $dbh->quote( $data{'B_address2'} )
       . ",B_zipcode="   . $dbh->quote( $data{'B_zipcode'} )
+      . ",B_country="   . $dbh->quote( $data{'B_country'} )
       . ",B_city="      . $dbh->quote( $data{'B_city'} )
       . ",B_phone="     . $dbh->quote( $data{'B_phone'} )
       . ",B_email="     . $dbh->quote( $data{'B_email'} )
@@ -720,6 +723,7 @@ sub AddMember {
       . ",altcontactaddress2="  . $dbh->quote( $data{'altcontactaddress2'} ) 
       . ",altcontactaddress3="  . $dbh->quote( $data{'altcontactaddress3'} ) 
       . ",altcontactzipcode="   . $dbh->quote( $data{'altcontactzipcode'} ) 
+      . ",altcontactcountry="   . $dbh->quote( $data{'altcontactcountry'} ) 
       . ",altcontactphone="     . $dbh->quote( $data{'altcontactphone'} ) ;
     $debug and print STDERR "AddMember SQL: ($query)\n";
     my $sth = $dbh->prepare($query);
@@ -1129,9 +1133,9 @@ sub GetMemberAccountRecords {
                $data->{title} = $biblio->{title};
         $acctlines[$numlines] = $data;
         $numlines++;
-        $total += int(100 * $data->{'amountoutstanding'}); # convert float to integer to avoid round-off errors
+        $total += int(1000 * $data->{'amountoutstanding'}); # convert float to integer to avoid round-off errors
     }
-    $total /= 100;
+    $total /= 1000;
     $sth->finish;
     return ( $total, \@acctlines,$numlines);
 }