[livejournal] r20123: LJSUP-9824: fixed visibility function

LJSUP-9824: fixed visibility function

U   branches/delayed_entries/cgi-bin/LJ/DelayedEntry.pm

Modified: branches/delayed_entries/cgi-bin/LJ/DelayedEntry.pm
===================================================================
--- branches/delayed_entries/cgi-bin/LJ/DelayedEntry.pm	2011-09-23 06:59:11 UTC (rev 20122)
+++ branches/delayed_entries/cgi-bin/LJ/DelayedEntry.pm	2011-09-23 07:21:52 UTC (rev 20123)
@@ -764,12 +764,12 @@
                                                      $u );
     }
 
-    my $secwhere = __delayed_entry_secwhere( $journal,
-                                             $journal->userid,
-                                             $userid );
+    #my $secwhere = __delayed_entry_secwhere( $journal,
+    #                                         $journal->userid,
+    #                                         $userid );
 
     return $dbcr->selectcol_arrayref("SELECT delayedid " .
-                                     "FROM delayedlog2 WHERE journalid=$journalid $secwhere ".
+                                     "FROM delayedlog2 WHERE journalid=$journalid  ".
                                      "ORDER BY revptime $sql_limit");
 }
 
@@ -791,6 +791,7 @@
     $sth->execute($journal->userid);
     return $sth;
 }
+
 sub get_entries_for_day_row {
     my ( $class, $journal, $year, $month, $day ) = @_;
     my $entries = [];
@@ -966,7 +967,7 @@
     return get_itemid_near2(@_, "before");
 }
 
-sub get_itemid_near2{
+sub get_itemid_near2 {
     my ($self, $after_before) = @_;
     my $u = $self->journal;
     my $delayedid = $self->delayedid;
@@ -1416,20 +1417,25 @@
         # TODO: error on failure?  depends on the job I suppose?  property of the job?
     }
 
-    return { delete_entry => 1 };
+    return { delete_entry => 1, res => $res };
 }
 
 sub __delayed_entry_can_see {
     my ( $uowner, $poster ) = @_;
 
-    if ( $uowner->equals( $poster) ){
-        return 1;
+    if (!$poster->can_post_to($uowner)) {
+        return 0;
     }
 
     if ($poster->can_manage($uowner)) {
         return 1;
     }
 
+    if ($poster->can_moderate($uowner)) {
+        return 1;
+    }
+    warn "cannot see";
+
     return 0;
 }