View | Details | Raw Unified | Return to bug 9016
Collapse All | Expand All

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

Return to bug 9016