Add pseudo-category search for flags

fixes #1915

app/models/post_flag.rb

@@ -49,6 +49,15 @@ class PostFlag < ActiveRecord::Base
         q = q.unresolved
       end
 
+      case params[:category]
+      when "normal"
+        q = q.where("reason != ? and reason != ?", "Unapproved in three days", "Artist requested removal")
+      when "unapproved"
+        q = q.where("reason = ?", "Unapproved in three days")
+      when "banned"
+        q = q.where("reason = ?", "Artist requested removal")
+      end
+
       q
     end
   end

app/views/post_flags/_search.html.erb

@@ -30,6 +30,15 @@
         </td>
       </tr>
 
+      <tr>
+        <th><label for="search_category">Category</label></th>
+        <td>
+          <div class="input">
+            <%= select "search", "category", ["normal", "unapproved", "banned"], :selected => params[:search][:category], :include_blank => true %>
+          </div>
+        </td>
+      </tr>
+
       <tr>
         <td><%= submit_tag "Search" %><td>
       </tr>