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