Lines 1005-1013
sub TO_JSON {
Link Here
|
1005 |
if ( $embed->{patron} ) { |
1005 |
if ( $embed->{patron} ) { |
1006 |
my $patron = $self->patron; |
1006 |
my $patron = $self->patron; |
1007 |
$object->{patron} = { |
1007 |
$object->{patron} = { |
1008 |
firstname => $patron->firstname, |
1008 |
borrowernumber => $patron->borrowernumber, |
1009 |
surname => $patron->surname, |
1009 |
firstname => $patron->firstname, |
1010 |
cardnumber => $patron->cardnumber |
1010 |
surname => $patron->surname, |
|
|
1011 |
cardnumber => $patron->cardnumber |
1011 |
}; |
1012 |
}; |
1012 |
} |
1013 |
} |
1013 |
# Augment the request response with metadata details if appropriate |
1014 |
# Augment the request response with metadata details if appropriate |