Minor fixes to previous revision(s).

db/Reservation.pm.in

@@ -1251,7 +1251,7 @@ sub HistoricalReservations($$$;$) {
     }
     my $query_result =
 	DBQueryFatal("select *,UNIX_TIMESTAMP(start) AS s, " .
-		     "       UNIX_TIMESTAMP(end), AS e ".
+		     "       UNIX_TIMESTAMP(end) AS e, ".
 		     "       UNIX_TIMESTAMP(created) AS c, " .
 		     "       UNIX_TIMESTAMP(canceled) AS d, " .
 		     "       UNIX_TIMESTAMP(deleted) AS k " .
@@ -1283,6 +1283,7 @@ sub HistoricalReservations($$$;$) {
     }
     return @answer;
 }
+sub deleted($)     { return $_[0]->{"DELETED"}; }
 
 sub ExptTypes($) {
     my ($exptidx) = @_;

protogeni/lib/GeniCluster.pm.in

@@ -1713,7 +1713,7 @@ sub ReservationHistory($)
 	$blob->{"nodes"}       = $res->nodes();
 	$blob->{"type"}        = $res->type();
 	$blob->{"created"}     = TBDateStringGMT($res->created());
-	$blob->{"canceled"}    = TBDateStringGMT($res->canceled());
+	$blob->{"canceled"}    = TBDateStringGMT($res->cancel());
 	$blob->{"deleted"}     = TBDateStringGMT($res->deleted());
 	$blob->{"start"}       = TBDateStringGMT($res->start());
 	$blob->{"end"}         = TBDateStringGMT($res->end());