oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[ 1441488 ] Sort Order of Profile Fields in Form "Create New Account"

Browse source 
fixed a few syntax things in Item.pm
This commit is contained in:
Matthew Wilson 2006-03-10 19:00:05 +00:00
parent 27c2d07443
commit 279233b367
4 changed files with 17 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Commerce/Item.pm
View file

@ -55,6 +55,7 @@ This returns the description of the item. This must be implemented by an item pl
=cut
sub description {
my $self = shift;
return $self->session->errorHandler->fatal('The description method of WebGUI::Commerce::Item must be overridden.');
}
@ -95,6 +96,7 @@ by an item plugin.
=cut
sub id {
my $self = shift;
return $self->session->errorHandler->fatal('The id method of WebGUI::Commerce::Item must be overridden.');
}
@ -120,6 +122,7 @@ Returns the name of the item. This must be implemented by an item plugin.
=cut
sub name {
my $self = shift;
return $self->session->errorHandler->fatal('The name method of WebGUI::Commerce::Item must be overridden.');
}
@ -183,6 +186,7 @@ term price. This must be implemented by an item plugin.
=cut
sub price {
my $self = shift;
return $self->session->errorHandler->fatalError('The price method of WebGUI::Commerce::Item must be overridden.');
}
@ -195,6 +199,7 @@ Returns the type (namespace) of the item.
=cut
sub type {
my $self = shift;
return $self->session->errorHandler->fatalError('The type method of WebGUI::Commerce::Item must be overridden.');
}

1
lib/WebGUI/Commerce/Item/Product.pm
View file

@ -60,6 +60,7 @@ Overload default constructor to glue in a WebGUI::Product object.
sub new {
my ($class, $session, $sku, $product, $variantId);
$class = shift;
$session = shift;
$variantId = shift;
$product = WebGUI::Product->getByVariantId($session,$variantId);

12
lib/WebGUI/ProfileField.pm
View file

@ -292,12 +292,12 @@ Returns an array reference of WebGUI::ProfileField objects that are marked "requ
=cut
sub getRequiredFields {
my $self = shift;
my @fields = ();
foreach my $fieldName ($self->session->db->buildArray("select fieldName from userProfileField where required=1 order by sequenceNumber")) {
push(@fields,WebGUI::ProfileField->new($self->session,$fieldName));
}
return \@fields;
my $self = shift;
my @fields = ();
foreach my $fieldName ($self->session->db->buildArray("select userProfileField.fieldName from userProfileField LEFT JOIN userProfileCategory ON userProfileField.profileCategoryId = userProfileCategory.profileCategoryId where userProfileField.required=1 order by userProfileCategory.sequenceNumber, userProfileField.sequenceNumber")) {
push(@fields,WebGUI::ProfileField->new($self->session,$fieldName));
}
return \@fields;
}
#-------------------------------------------------------------------