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

[ 1457777 ] 6.99: Can't modify non-lvalue subroutine call

Browse source
This commit is contained in:
JT Smith 2006-04-28 18:55:20 +00:00
parent 89e1d83d0f
commit 7921c7a708
8 changed files with 36 additions and 60 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lib/WebGUI/Operation/LDAPLink.pm
View file

@ -98,7 +98,6 @@ sub www_copyLDAPLink {
$db{ldapLinkId} = "new";
$db{ldapLinkName} = "Copy of ".$db{ldapLinkName};
$session->db->setRow("ldapLink","ldapLinkId",\%db);
$session->form->process("op") = "listLDAPLinks";
return www_listLDAPLinks($session);
}

7
lib/WebGUI/Operation/ProductManager.pm
View file

@ -253,8 +253,7 @@ sub www_editProductSave {
skuTemplate => $session->form->process("skuTemplate"),
});
$session->form->process("productId") = $product->get('productId');
return WebGUI::Operation::execute($session,'manageProduct');
return www_manageProduct($session, $product->get('productId'));
}
#-------------------------------------------------------------------
@ -803,13 +802,13 @@ The current WebGUI session object.
sub www_manageProduct {
my $session = shift;
my ($productId, $product, $output, $parameter, $option, $optionId, $i18n);
my ($product, $output, $parameter, $option, $optionId, $i18n);
return $session->privilege->insufficient unless ($session->user->isInGroup(14));
$i18n = WebGUI::International->new($session, "ProductManager");
$productId = $session->form->process("productId") || $session->scratch->get('managingProduct');
my $productId = shift || $session->form->process("productId") || $session->scratch->get('managingProduct');
return WebGUI::Operation::execute($session,'listProducts') if ($productId eq 'new' || !$productId);
$session->scratch->set('managingProduct', $productId);