diff --git a/lib/WebGUI/Asset/Sku.pm b/lib/WebGUI/Asset/Sku.pm
index b19d330eb..6a6abdbf5 100644
--- a/lib/WebGUI/Asset/Sku.pm
+++ b/lib/WebGUI/Asset/Sku.pm
@@ -28,7 +28,7 @@ Package WebGUI::Asset::Sku
 
 =head1 DESCRIPTION
 
-This is the base class for all products in the commerce system.
+This is the base class for all products in the WebGUI Shop.
 
 =head1 SYNOPSIS
 
diff --git a/lib/WebGUI/Search/Index.pm b/lib/WebGUI/Search/Index.pm
index a55900957..e25b1ba9a 100644
--- a/lib/WebGUI/Search/Index.pm
+++ b/lib/WebGUI/Search/Index.pm
@@ -74,13 +74,14 @@ Add more text to the keywords index for this asset.
 
 =head3 text
 
-A string of text. You may optionally also put HTML here, and it will be automatically filtered.
+A string (or array of strings) of text. You may optionally also put HTML here, and it will be automatically filtered.
 
 =cut
 
 sub addKeywords {
 	my $self = shift;
-	my $text = shift;
+	my $text = join(" ", @_);
+
 	$text = WebGUI::HTML::filter($text, "all");
 	#-------------------- added by zxp for chinese word segment
 	utf8::decode($text);
diff --git a/lib/WebGUI/Shop/Transaction.pm b/lib/WebGUI/Shop/Transaction.pm
index 4e8f05a65..cfa68c4c3 100644
--- a/lib/WebGUI/Shop/Transaction.pm
+++ b/lib/WebGUI/Shop/Transaction.pm
@@ -386,6 +386,44 @@ sub getTransactionIdsForUser {
     return $session->db->buildArrayRef("select transactionId from transaction where userId=? order by dateOfPurchase desc",[$userId]);
 }
 
+#-------------------------------------------------------------------
+
+=head2 isFirst ( )
+
+Returns 1 if this is the first of a set of recurring transactions.
+
+=cut
+
+sub isFirst {
+    my $self = shift;
+	return ($self->get('originatingTransactionId') eq '');
+}
+
+#-------------------------------------------------------------------
+
+=head2 isRecurring ( )
+
+Returns 1 if this is a recurring transaction.
+
+=cut
+
+sub isRecurring {
+    my $self = shift;
+	return $self->get('isRecurring');
+}
+
+#-------------------------------------------------------------------
+
+=head2 isSuccessful ( )
+
+Returns 1 if this transaction had a successful payment applied to it.
+
+=cut
+
+sub isSuccessful {
+    my $self = shift;
+	return $self->get('isSuccessful');
+}
 
 #-------------------------------------------------------------------