Bugfixes, removed warnings, XHTML compliance

This commit is contained in:
Wouter van Oijen 2006-05-19 21:23:56 +00:00
parent 5b885ddbfd
commit e136fb5b4e
3 changed files with 16 additions and 15 deletions

View file

@ -296,7 +296,7 @@ sub newByPalette {
my $session = shift;
my $paletteId = shift;
my $sth = $session->db->read('select imageColor.* from imageColor, imagePaletteColors where '.
$sth = $session->db->read('select imageColor.* from imageColor, imagePaletteColors where '.
' imageColor.colorId=imagePaletteColors.colorId and paletteId=?', [
$paletteId
]);

View file

@ -136,7 +136,7 @@ sub getColorIndex {
my $self = shift;
my $color = shift;
my @palette = @{$self->getColorsInPalette};
@palette = @{$self->getColorsInPalette};
for ($index = 0; $index < scalar(@palette); $index++) {
return $index if ($self->getColor($index)->getId eq $color->getId);