some minor enhancements

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
 

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);

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');
+}
 
 #-------------------------------------------------------------------