|
Lines 97-114
$template->param(LETTERLOOP => \@letterloop);
Link Here
|
| 97 |
sub GetLetters { |
97 |
sub GetLetters { |
| 98 |
|
98 |
|
| 99 |
# returns a reference to a hash of references to ALL letters... |
99 |
# returns a reference to a hash of references to ALL letters... |
| 100 |
my ( $cat, $message_transport_type ) = @_; |
100 |
my ( $cat ) = @_; |
| 101 |
$message_transport_type ||= 'email'; |
|
|
| 102 |
my %letters; |
101 |
my %letters; |
| 103 |
my $dbh = C4::Context->dbh; |
102 |
my $dbh = C4::Context->dbh; |
| 104 |
my $sth; |
103 |
my $sth; |
| 105 |
my $query = q{ |
104 |
my $query = q{ |
| 106 |
SELECT * FROM letter WHERE |
105 |
SELECT * FROM letter WHERE 1 |
| 107 |
}; |
106 |
}; |
| 108 |
$query .= q{ module = ? AND } if defined $cat; |
107 |
$query .= q{ AND module = ? } if defined $cat; |
| 109 |
$query .= q{ message_transport_type = ? ORDER BY name}; |
108 |
$query .= q{ GROUP BY code ORDER BY name}; |
| 110 |
$sth = $dbh->prepare($query); |
109 |
$sth = $dbh->prepare($query); |
| 111 |
$sth->execute((defined $cat ? $cat : ()), $message_transport_type); |
110 |
$sth->execute((defined $cat ? $cat : ())); |
| 112 |
|
111 |
|
| 113 |
while ( my $letter = $sth->fetchrow_hashref ) { |
112 |
while ( my $letter = $sth->fetchrow_hashref ) { |
| 114 |
$letters{ $letter->{'code'} } = $letter->{'name'}; |
113 |
$letters{ $letter->{'code'} } = $letter->{'name'}; |
| 115 |
- |
|
|