Select Code to Download

sub get_udx_media_relations {
    my $SupplierID = shift;
...
      AND isDeleted != 'Yes'
      GROUP BY Filename, Extension
      ORDER BY Priority DESC, Rank ASC|;

    while ($_ = $sth->fetchrow_hashref) {
        if ($prev_priority->{$_->{Purpose}} > $_->{Priority}) {
...
          . '/' . $media->{filename} if $_->{Folder};
        push(@{$return->{$_->{Purpose}}}, $media);
    }