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

(-)a/C4/Letters.pm (-7 / +5 lines)
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
- 

Return to bug 9016