Model::Stories: add 'set_dirty' method

diff --git a/src/newslash_web/lib/Newslash/Model/Stories.pm b/src/newslash_web/lib/Newslash/Model/Stories.pm
index 2206795..f0fe75d 100644 (file)
--- a/src/newslash_web/lib/Newslash/Model/Stories.pm
+++ b/src/newslash_web/lib/Newslash/Model/Stories.pm
@@ -304,6 +304,59 @@ EOSQL
     return $params;
 }
 
+#========================================================================
+
+=head2 set_dirty($key, $id)
+
+set writestatus dirty for the story.
+
+=over 4
+
+=item Parameters
+
+=over 4
+
+=item $key
+
+'stoid'
+
+=item $id
+
+id of the story
+
+=back
+
+=item Return value
+
+1/0
+
+=back
+
+=cut
+
+sub set_dirty {
+    my ($self, $key, $id) = @_;
+
+    my $stoid;
+    if ($key eq 'stoid') {
+        $stoid = $id;
+    }
+    else {
+        return;
+    }
+
+    my $dbh = $self->connect_db;
+    my $sql = <<"EOSQL";
+INSERT INTO story_dirty (stoid) VALUES (?)
+EOSQL
+
+    my $rs = $dbh->do($sql, undef, $stoid);
+    if (!$rs) {
+        return;
+    }
+    return 1;
+}
+
 sub _generalize {
     my ($self, $story) = @_;