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

reindent some stuff ala WBGP

Browse source
This commit is contained in:
Colin Kuskie 2008-04-07 23:29:18 +00:00
parent be8eb6cfad
commit ca61c81967
1 changed files with 16 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

32
lib/WebGUI/Asset/Sku/Product.pm
View file

@ -510,21 +510,20 @@ Used to define which data set to reorder. Defaults to the value of setName (defa
=cut =cut
sub reorderCollateral { sub reorderCollateral {
my $self = shift; my $self = shift;
my $table = shift; my $table = shift;
my $keyName = shift; my $keyName = shift;
my $setName = shift || "assetId"; my $setName = shift || "assetId";
my $setValue = shift || $self->get($setName); my $setValue = shift || $self->get($setName);
my $i = 1; my $i = 1;
my $sth = $self->session->db->read("select $keyName from $table where $setName=? order by sequenceNumber", [$setValue]); my $sth = $self->session->db->read("select $keyName from $table where $setName=? order by sequenceNumber", [$setValue]);
my $sth2 = $self->session->db->prepare("update $table set sequenceNumber=? where $setName=? and $keyName=?"); my $sth2 = $self->session->db->prepare("update $table set sequenceNumber=? where $setName=? and $keyName=?");
while (my ($id) = $sth->array) { while (my ($id) = $sth->array) {
$sth2->execute([$i, $setValue, $id]); $sth2->execute([$i, $setValue, $id]);
$i++; $i++;
} }
$sth2->finish; $sth2->finish;
$sth->finish; $sth->finish;
$sth->finish;
} }
@ -580,7 +579,7 @@ sub setCollateral {
$properties->{$keyName} = $self->session->id->generate(); $properties->{$keyName} = $self->session->id->generate();
$sql = "insert into $table ("; $sql = "insert into $table (";
my $dbkeys = ""; my $dbkeys = "";
my $dbvalues = ""; my $dbvalues = "";
unless ($useSequence eq "0") { unless ($useSequence eq "0") {
unless (exists $properties->{sequenceNumber}) { unless (exists $properties->{sequenceNumber}) {
my ($seq) = $self->session->db->quickArray("select max(sequenceNumber) from $table where $setName=?",[$setValue]); my ($seq) = $self->session->db->quickArray("select max(sequenceNumber) from $table where $setName=?",[$setValue]);
@ -600,7 +599,8 @@ sub setCollateral {
} }
$sql .= $dbkeys.') values ('.$dbvalues.')'; $sql .= $dbkeys.') values ('.$dbvalues.')';
$self->updateHistory("added collateral item ".$table." ".$properties->{$keyName}); $self->updateHistory("added collateral item ".$table." ".$properties->{$keyName});
} else { }
else {
$sql = "update $table set "; $sql = "update $table set ";
foreach my $key (keys %{$properties}) { foreach my $key (keys %{$properties}) {
unless ($key eq "sequenceNumber") { unless ($key eq "sequenceNumber") {