Lines 851-872
ENDSQL
Link Here
|
851 |
|
851 |
|
852 |
my @mtt = GetMessageTransportTypes(); |
852 |
my @mtt = GetMessageTransportTypes(); |
853 |
|
853 |
|
854 |
returns a list of hashes |
854 |
returns an arrayref of transport types |
855 |
|
855 |
|
856 |
=cut |
856 |
=cut |
857 |
|
857 |
|
858 |
sub GetMessageTransportTypes { |
858 |
sub GetMessageTransportTypes { |
859 |
my $dbh = C4::Context->dbh(); |
859 |
my $dbh = C4::Context->dbh(); |
860 |
my $sth = $dbh->prepare(" |
860 |
my $mtts = $dbh->selectcol_arrayref(" |
861 |
SELECT message_transport_type |
861 |
SELECT message_transport_type |
862 |
FROM message_transport_types |
862 |
FROM message_transport_types |
863 |
ORDER BY message_transport_type |
863 |
ORDER BY message_transport_type |
864 |
"); |
864 |
"); |
865 |
$sth->execute; |
865 |
return $mtts; |
866 |
my @mtts = map{ |
|
|
867 |
$_->[0] |
868 |
} @{ $sth->fetchall_arrayref() }; |
869 |
return \@mtts; |
870 |
} |
866 |
} |
871 |
|
867 |
|
872 |
=head2 _add_attachements |
868 |
=head2 _add_attachements |