sub get_udx_media_relations {
    my $SupplierID = shift;
    my $SupplierPID = shift;
    my $return;
    my $query = qq|SELECT
      ProviderID,
      SourceID,
      Folder,
      Filename,
      Extension,
      Purpose,
      Rank,
      Priority,
      Width,
      Height
      FROM CT_Media_Relations
      WHERE SupplierID = '$SupplierID'
      AND SupplierPID = '$SupplierPID'
      AND isDeleted != 'Yes'
      GROUP BY Filename, Extension
      ORDER BY Priority DESC, Rank ASC|;

##</code><code>##

    while ($_ = $sth->fetchrow_hashref) {
        if ($prev_priority->{$_->{Purpose}} > $_->{Priority}) {
            next unless $_->{Purpose} eq 'PDB';
        }
        #get rid of mds when manufacturer is present (4 vs 5)
        if ($_->{Purpose} eq 'AAB'
          or $_->{Purpose} eq 'EBD'
          or $_->{Purpose} eq 'PBS'
          or $_->{Purpose} eq 'PRI') {
            if ($prev_priority->{IMG} > $_->{Priority}) {
                next;
            }
            else {
                $prev_priority->{IMG} = $_->{Priority};
            }
        }
        $prev_priority->{$_->{Purpose}} = $_->{Priority};
        if ($_->{Purpose} eq 'PRI' && !$return->{Primary}->{path}) {
            $return->{Primary} = $_;
            $return->{Primary}->{path} = '/dx/' . $_->{ProviderID}
              . "/" . $_->{SourceID};
            $return->{Primary}->{filename} = $_->{Filename}
              . '.' . $_->{Extension};
            $return->{Primary}->{filename} = $_->{Folder} . '/'
              . $return->{Primary}->{filename} if $_->{Folder};
        }
        my $media = $_;
        $media->{path} = '/dx/' . $_->{ProviderID} 
          . "/" . $_->{SourceID};
        $media->{filename} = $_->{Filename} 
          . '.' . $_->{Extension};
        $media->{filename} = $_->{Folder} 
          . '/' . $media->{filename} if $_->{Folder};
        push(@{$return->{$_->{Purpose}}}, $media);
    }