X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FStatus.pm;h=45b01a9a8781863a28f7548ad6fc0cfac403adef;hb=37356e95886969d5a5a5609f3e2fc95226e05cc5;hp=29bd0d6cfa64f6556b86fc261f13d126b125f567;hpb=182ef967a6fb869a85b2920f6b695d127e9ddf75;p=debbugs.git

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 29bd0d6..45b01a9 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -1321,6 +1321,10 @@ sub get_bug_statuses {
      my %param = validate_with(params => \@_,
 			       spec   => $spec,
 			      );
+     my $bin_to_src_cache = {};
+     if (defined $param{binary_to_source_cache}) {
+	 $bin_to_src_cache = $param{binary_to_source_cache};
+     }
      my %status;
      my %statuses;
      if (defined $param{schema}) {
@@ -1339,18 +1343,6 @@ sub get_bug_statuses {
 	     }
 	     $bug_status->{keywords} =
 		 $bug_status->{tags};
-	     $bug_status->{log_modified} =
-		 DateTime::Format::Pg->
-		     parse_datetime($bug_status->{log_modified})->
-		     epoch;
-	     $bug_status->{date} =
-		 DateTime::Format::Pg->
-		     parse_datetime($bug_status->{date})->
-		     epoch;
-	     $bug_status->{last_modified} =
-		 DateTime::Format::Pg->
-		     parse_datetime($bug_status->{last_modified})->
-		     epoch;
 	     $bug_status->{location} = $bug_status->{archived}?'archive':'db-h';
 	     for my $field (qw(found_versions fixed_versions found_date fixed_date)) {
 		 $bug_status->{$field} = [split ' ', $bug_status->{$field} // ''];
@@ -1403,8 +1395,9 @@ sub get_bug_statuses {
 
 	 $status->{source} = binary_to_source(binary=>[split /\s*,\s*/, $status->{package}],
 					      source_only => 1,
-					      exists $param{binary_to_source_cache}?
-					      (cache =>$param{binary_to_source_cache}):(),
+					      cache => $bin_to_src_cache,
+					      defined $param{schema}?
+					      (schema => $param{schema}):(),
 					     );
 
 	 $status->{"package"} = 'unknown' if ($status->{"package"} eq '');