$link | "; $ret .= "";
$ret .= $ppe->{location} eq 'none' ? "PhonePost" : "PhonePost";
$ret .= " $K $duration | ";
unless ($mode eq 'notrans') {
my $trans_url = "$LJ::SITEROOT/phonepost/transcribe.bml?user=$u->{user}&ppid=$dppid";
$ret .= ""; my $trans = LJ::PhonePost::get_latest_trans($u, $phonepostid); if ($trans) { my $by; if ($trans->{revid} == 1) { $by = LJ::ljuser(LJ::get_username($trans->{posterid})); } else { # multiple users transcribing, or just multiple transcriptions of one user? my $memkey = [$u->{userid},"ppetu:$u->{userid}:$phonepostid"]; my $tu = LJ::MemCache::get($memkey); unless (defined $tu) { my $dbr = LJ::get_cluster_reader($u); $tu = $dbr->selectrow_array("SELECT COUNT(DISTINCT(posterid)) " . "FROM phoneposttrans " . "WHERE journalid=? AND blobid=?", undef, $u->{'userid'}, $phonepostid + 0); LJ::MemCache::set($memkey, $tu); } $by = ($tu == 1) ? LJ::ljuser(LJ::get_username($trans->{posterid})) : "multiple users"; } my $text = LJ::ehtml($trans->{body}); $text =~ s/\n/ | “$text” ". "Transcribed by: $by | ";
} elsif (LJ::PhonePost::may_transcribe($u, $remote)) {
$ret .= "(transcribe) | "; } else { $ret .= "(no transcription available) | "; } } $ret .= "