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

checkpoint

Browse source
This commit is contained in:
Brian Medley 2009-03-03 14:56:55 +00:00
parent 00cbaa49af
commit c7db6abab0
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lib/WebGUI/Storage.pm
View file

@ -1181,10 +1181,10 @@ sub annotate {
}
warn("there");
# form->process("degree")
my $annotate_text = $form->process("annotate_text");
my $annotate_top = $form->process("annotate_top");
my $annotate_left = $form->process("annotate_left");
my $annotate_width = $form->process("annotate_width");
my $annotate_text = $form->process("annotate_text");
my $annotate_top = $form->process("annotate_top");
my $annotate_left = $form->process("annotate_left");
my $annotate_width = $form->process("annotate_width");
my $annotate_height = $form->process("annotate_height");
warn("there");
unless ($annotate_text) {
@ -1197,11 +1197,16 @@ sub annotate {
if ($imageAsset->{annotations} =~ /\n/) {
$imageAsset->{annotations} .= "\n";
}
warn("there");
$imageAsset->{annotations} .= "top: ${annotate_top}px; left: ${annotate_left}px;\nwidth: ${annotate_width}px; height: ${annotate_height}px;\n$annotate_text";
$self->{_data}{annotations} = $self->{_data};
warn("there: $imageAsset->{annotations}");
$self->{_data}{annotations} = $imageAsset->{annotations};
warn("there: $self->{_data}{annotations}");
$self->session->db->setRow("ImageAsset","assetId",$self->{_data});
foreach my $k (sort keys %{ $self->{_data} }) {
warn("$k => $$self{_data}{$k}");
}
return 1;
}