[bse.git] / site / cgi-bin / modules / BSE / TB / ProductOptionValue.pm

package BSE::TB::ProductOptionValue;
use strict;
use base "Squirrel::Row";

sub columns {
  return qw/id product_option_id value display_order/;
}

sub table {
  "bse_product_option_values";
}

sub option {
  my ($self) = @_;

  require BSE::TB::ProductOptions;
  return BSE::TB::ProductOptions->getByPkey($self->{product_option_id});
}

1;
Commit	Line	Data
58baa27b TC	1	package BSE::TB::ProductOptionValue;
	2	use strict;
	3	use base "Squirrel::Row";
	4
	5	sub columns {
	6	return qw/id product_option_id value display_order/;
	7	}
	8
	9	sub table {
	10	"bse_product_option_values";
	11	}
	12
	13	sub option {
	14	my ($self) = @_;
	15
	16	require BSE::TB::ProductOptions;
	17	return BSE::TB::ProductOptions->getByPkey($self->{product_option_id});
	18	}
	19
	20	1;