Lines 87-92
BEGIN {
Link Here
|
87 |
&DeleteMessage |
87 |
&DeleteMessage |
88 |
&GetMessages |
88 |
&GetMessages |
89 |
&GetMessagesCount |
89 |
&GetMessagesCount |
|
|
90 |
&SetMemberInfosInTemplate |
91 |
&getFullBorrowerAddress |
90 |
); |
92 |
); |
91 |
|
93 |
|
92 |
#Modify data |
94 |
#Modify data |
Lines 1642-1647
sub DelMember {
Link Here
|
1642 |
return $sth->rows; |
1644 |
return $sth->rows; |
1643 |
} |
1645 |
} |
1644 |
|
1646 |
|
|
|
1647 |
=head2 SetMemberInfosInTemplate |
1648 |
&SetMemberInfosInTemplate($borrowernumber, $template) |
1649 |
|
1650 |
|
1651 |
Settings borrower informations for template user |
1652 |
|
1653 |
=cut |
1654 |
|
1655 |
sub SetMemberInfosInTemplate { |
1656 |
my ($borrowernumber, $template) = @_; |
1657 |
|
1658 |
my $borrower = GetMemberDetails( $borrowernumber, 0 ); |
1659 |
foreach my $key (keys %$borrower){ |
1660 |
$template->param($key => $borrower->{$key}); |
1661 |
} |
1662 |
|
1663 |
# Computes full borrower address |
1664 |
my (undef, $roadttype_hashref) = &GetRoadTypes(); |
1665 |
my $address = $borrower->{'streetnumber'}.' '.$roadttype_hashref->{$borrower->{'streettype'}}.' '.$borrower->{'address'}; |
1666 |
$template->param(is_child => ($borrower->{'category_type'} eq 'C'), |
1667 |
address => $address, |
1668 |
branchname => GetBranchName($borrower->{'branchcode'}), |
1669 |
); |
1670 |
|
1671 |
foreach (qw(dateenrolled dateexpiry dateofbirth)) { |
1672 |
my $userdate = $borrower->{$_}; |
1673 |
unless ($userdate) { |
1674 |
$borrower->{$_} = ''; |
1675 |
next; |
1676 |
} |
1677 |
$userdate = C4::Dates->new($userdate,'iso')->output('syspref'); |
1678 |
$borrower->{$_} = $userdate || ''; |
1679 |
$template->param( $_ => $userdate ); |
1680 |
} |
1681 |
|
1682 |
my $attributes = GetBorrowerAttributes($borrowernumber); |
1683 |
$template->param( |
1684 |
extendedattributes => $attributes, |
1685 |
); |
1686 |
} |
1687 |
|
1688 |
sub getFullBorrowerAddress { |
1689 |
my ( $borrowernumber ) = @_; |
1690 |
my $borrower = GetMemberDetails( $borrowernumber, 0 ); |
1691 |
# Computes full borrower address |
1692 |
my ( undef, $roadttype_hashref ) = &GetRoadTypes(); |
1693 |
my $address1=""; |
1694 |
if(($borrower->{'streetnumber'}) ne ''){$address1=$address1.$borrower->{'streetnumber'}.' ';} |
1695 |
if(($roadttype_hashref->{ $borrower->{'streettype'} }) ne ""){$address1=$address1.$roadttype_hashref->{ $borrower->{'streettype'} }.' ';} |
1696 |
$address1=$address1.$borrower->{'address'}; |
1697 |
return $address1; |
1698 |
} |
1699 |
|
1645 |
=head2 ExtendMemberSubscriptionTo (OUEST-PROVENCE) |
1700 |
=head2 ExtendMemberSubscriptionTo (OUEST-PROVENCE) |
1646 |
|
1701 |
|
1647 |
$date = ExtendMemberSubscriptionTo($borrowerid, $date); |
1702 |
$date = ExtendMemberSubscriptionTo($borrowerid, $date); |