the index parameter wasn't used and isn't required

diff --git a/site/cgi-bin/modules/BSE/Cart.pm b/site/cgi-bin/modules/BSE/Cart.pm
index 8c1c6c810d55c4aa95c8eb0d150916d201e0a739..5923e959681643f2937817f196351ae59d9130ca 100644 (file)
--- a/site/cgi-bin/modules/BSE/Cart.pm
+++ b/site/cgi-bin/modules/BSE/Cart.pm
@@ -1001,7 +1001,7 @@ display - display of the option value
 =cut
 
 sub option_list {
-  my ($self, $index) = @_;
+  my ($self) = @_;
 
   my @options = $self->product->option_descs(BSE::Cfg->single, $self->{options});