add stock filter

Makefile.PL

@@ -34,6 +34,7 @@ requires 'Image::OCR::Tesseract';
 requires 'Business::ISBN';
 requires 'Date::Calc';
 requires 'Catalyst::Helper::View::JSON';
+requires 'AnyEvent::HTTP';
 
 test_requires 'Test::More' => '0.88';
 catalyst;

lib/Ptt/Controller/Search.pm

@@ -27,6 +27,17 @@ sub search : Chained("/") : PathPart("search") : Args(0) {
     $qh->{p1} = $c->req->params->{p1};
     $qh->{p2} = $c->req->params->{p2};
 
+    # NOTE: stock is 0, include: all
+    #       stock is 1, only include: in stock
+    #       stock is 2, only include: out of stock
+    #       stock is 3, only include: pre order
+
+    if ( defined $c->req->params->{stock} && $c->req->params->{stock} ne '' ) {
+	$qh->{stock} = $c->req->params->{stock};
+    } else {
+	$qh->{stock} = 1;
+    }
+
     my $data = $c->model("API::Search")->search($qh, $sort)->recv;
 
     my $total_results = $data->{response}->{numFound};

lib/Ptt/Model/API/Search.pm

@@ -33,6 +33,19 @@ sub search {
         $path .= "&fq=" . uri_escape($pr);
     }
 
+    my $stock;
+    if ( $qh->{stock} == 1 ) {
+	$stock = 'available:"in stock"';
+    } elsif ( $qh->{stock} == 2 ) {
+	$stock = 'available:"out of stock"';
+    } elsif ( $qh->{stock} == 3 ) {
+	$stock = 'available:"pre order"';
+    }
+
+    if ( $stock ) {
+	$path .= "&fq=" . uri_escape($stock);
+    }
+
     if ( $qh->{p} && $qh->{page_size} ) {
 	$path .= "&rows=$qh->{page_size}&start=" . ($qh->{page_size}*($qh->{p}-1));
     }