sub getMediaFile{
	my $self = shift();
	my $q = $self->query();
	my $fileId = $q->param("fileId");
	my $getPreviewFile = $q->param("preview");
	my $mediaFileInfoTemp = BioMeRSAModel::getMediaInfo($fileId);
	my %mediaFileInfo = %$mediaFileInfoTemp;
	my $filePath = $mediaFileInfo{"path"}."/".$mediaFileInfo{"filename"};
	if ($getPreviewFile eq "true"){
		my $NameWithoutExtension = $mediaFileInfo{"filename"};
		$NameWithoutExtension =~ s/\.[^.]*$//;
		my $previewFilePath = $mediaFileInfo{"path"}."/".$NameWithoutExtension."_preview.jpg";
		if (-e $previewFilePath){
			$filePath = $previewFilePath;
		}
	}
	$q->header( -type => 'image/jpeg');
	my $fileData;
	my $fileBuffer;
	open MEDIAFILE, $filePath or return "error opening file";
	binmode MEDIAFILE;
	while(read(MEDIAFILE, $fileBuffer, 1)){
		$fileData.=$fileBuffer;
	}
	return $fileData;