From e22429c53e1093bb97803906851617bae43017c6 Mon Sep 17 00:00:00 2001
From: Ryan Higgins <rch@liblime.com>
Date: Mon, 5 Nov 2007 17:13:59 -0600
Subject: [PATCH] continue getmember

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/SIP/ILS/Patron.pm | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/C4/SIP/ILS/Patron.pm b/C4/SIP/ILS/Patron.pm
index 19b93024fb..6b2f2a8fd4 100644
--- a/C4/SIP/ILS/Patron.pm
+++ b/C4/SIP/ILS/Patron.pm
@@ -25,7 +25,7 @@ our (@ISA, @EXPORT_OK);
 
 @EXPORT_OK = qw(invalid_patron);
 
-our %patron_db = (
+our %patron_example = (
 		  djfiander => {
 		      name => "David J. Fiander",
 		      id => 'djfiander',
@@ -70,6 +70,8 @@ warn Dumper($kp);
 	my $pw = $kp->{password};    ## FIXME - md5hash -- deal with . 
 	my $dob= $kp->{dateofbirth};
 	$dob =~ s/\-//g;
+my $fines_out = GetMemberAccountRecords($kp->{borrowernumber});
+my ($num_cur_issues,$cur_issues) = GetPendingIssues($kp->{borrowernumber});
 
 	my $debarred = $kp->{debarred}; ### 1 if ($kp->{flags}->{DBARRED}->{noissues});
 warn "i am debarred: $debarred";
@@ -80,29 +82,29 @@ warn "i am debarred: $debarred";
 		      id => $kp->{cardnumber},
 		      password => $pw,
 		      ptype => $kp->{categorycode}, # 'A'dult.  Whatever.
-		      birthdate => $dob,
+		      birthdate => $kp->{dateofbirth}, ##$dob,
 		      address => $adr,
 		      home_phone => $kp->{phone},
 		      email_addr => $kp->{email},
 		      charge_ok => (!$debarred) , ##  (C4::Context->preference('FinesMode') eq 'charge') || 0,
-		      renew_ok => 0,
-			  recall_ok => 0,
-		      hold_ok => 0,
-		      card_lost => 0,#$kp->{flags}->{LOST},
+		      renew_ok => 1,
+			  recall_ok => 1,
+		      hold_ok => 1,
+		      card_lost => ($kp->{lost} || $kp->{gonenoaddress}) ,
 		      claims_returned => 0,
-		      fines => 0,#$kp->{flags}->{CHARGES},
+		      fines => $fines_out,
 		      fees => 0,
 		      recall_overdue => 0,
 		      items_billed => 0,
-		      screen_msg => '',
+		      screen_msg => 'Greetings from Koha',
 		      print_line => '',
-		      items => [] ,
+		      items => ['one item','itemstring 2'] ,
 		      hold_items => [],#$kp->{flags}->{WAITING}{itemlist}->{biblionumber},
 		      overdue_items =>[], # [$kp->{flags}->{ODUES}{itemlisttext}],   ### FIXME -> this should be array, not texts string.
 		      fine_items => [],
 		      recall_items => [],
 		      unavail_holds => [],
-		      inet => 0,
+		      inet => '',
 			  );
 	} else {
 		syslog("LOG_DEBUG", "new ILS::Patron(%s): no such patron", $patron_id);
-- 
2.39.5