Lines 91-96
BEGIN {
Link Here
|
91 |
&DeleteMessage |
91 |
&DeleteMessage |
92 |
&GetMessages |
92 |
&GetMessages |
93 |
&GetMessagesCount |
93 |
&GetMessagesCount |
|
|
94 |
&SetMemberInfosInTemplate |
95 |
&getFullBorrowerAddress |
94 |
); |
96 |
); |
95 |
|
97 |
|
96 |
#Modify data |
98 |
#Modify data |
Lines 1726-1731
sub DelMember {
Link Here
|
1726 |
return $sth->rows; |
1728 |
return $sth->rows; |
1727 |
} |
1729 |
} |
1728 |
|
1730 |
|
|
|
1731 |
=head2 SetMemberInfosInTemplate |
1732 |
&SetMemberInfosInTemplate($borrowernumber, $template) |
1733 |
|
1734 |
|
1735 |
Settings borrower informations for template user |
1736 |
|
1737 |
=cut |
1738 |
|
1739 |
sub SetMemberInfosInTemplate { |
1740 |
my ($borrowernumber, $template) = @_; |
1741 |
|
1742 |
my $borrower = GetMemberDetails( $borrowernumber, 0 ); |
1743 |
foreach my $key (keys %$borrower){ |
1744 |
$template->param($key => $borrower->{$key}); |
1745 |
} |
1746 |
|
1747 |
# Computes full borrower address |
1748 |
my (undef, $roadttype_hashref) = &GetRoadTypes(); |
1749 |
my $address = $borrower->{'streetnumber'}.' '.$roadttype_hashref->{$borrower->{'streettype'}}.' '.$borrower->{'address'}; |
1750 |
$template->param(is_child => ($borrower->{'category_type'} eq 'C'), |
1751 |
address => $address, |
1752 |
branchname => GetBranchName($borrower->{'branchcode'}), |
1753 |
); |
1754 |
|
1755 |
foreach (qw(dateenrolled dateexpiry dateofbirth)) { |
1756 |
my $userdate = $borrower->{$_}; |
1757 |
unless ($userdate) { |
1758 |
$borrower->{$_} = ''; |
1759 |
next; |
1760 |
} |
1761 |
$userdate = C4::Dates->new($userdate,'iso')->output('syspref'); |
1762 |
$borrower->{$_} = $userdate || ''; |
1763 |
$template->param( $_ => $userdate ); |
1764 |
} |
1765 |
|
1766 |
my $attributes = GetBorrowerAttributes($borrowernumber); |
1767 |
$template->param( |
1768 |
extendedattributes => $attributes, |
1769 |
); |
1770 |
} |
1771 |
|
1772 |
sub getFullBorrowerAddress { |
1773 |
my ( $borrowernumber ) = @_; |
1774 |
my $borrower = GetMemberDetails( $borrowernumber, 0 ); |
1775 |
# Computes full borrower address |
1776 |
my ( undef, $roadttype_hashref ) = &GetRoadTypes(); |
1777 |
my $address1=""; |
1778 |
if(($borrower->{'streetnumber'}) ne ''){$address1=$address1.$borrower->{'streetnumber'}.' ';} |
1779 |
if(($roadttype_hashref->{ $borrower->{'streettype'} }) ne ""){$address1=$address1.$roadttype_hashref->{ $borrower->{'streettype'} }.' ';} |
1780 |
$address1=$address1.$borrower->{'address'}; |
1781 |
return $address1; |
1782 |
} |
1783 |
|
1729 |
=head2 ExtendMemberSubscriptionTo (OUEST-PROVENCE) |
1784 |
=head2 ExtendMemberSubscriptionTo (OUEST-PROVENCE) |
1730 |
|
1785 |
|
1731 |
$date = ExtendMemberSubscriptionTo($borrowerid, $date); |
1786 |
$date = ExtendMemberSubscriptionTo($borrowerid, $date); |