From afbd8930611d84fa5f519a2f8d0081b78588dbd9 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 17 Aug 2009 23:41:16 +0000
Subject: [PATCH] Fix the IntSlider integer input box.  It was displaying 0
 regardless of the actual value of the slider. Fixes bug #10552.

---
 docs/changelog/7.x.x.txt     | 1 +
 lib/WebGUI/Form/IntSlider.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 0db3352a4..d85a66c60 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,5 @@
 7.7.18
+ - fixed #10552: Map: Editing map properties resets zoom level to 0
  - fixed #10758: CS #replies does not get updated after post restore from trash (Bart Jol / Procolix)
  - fixed #10781: User Profile Editable/Required gotcha
  - fixed #10786: Matrix navigation: search screen to view screen
diff --git a/lib/WebGUI/Form/IntSlider.pm b/lib/WebGUI/Form/IntSlider.pm
index c12e8c90a..a9da30e8b 100644
--- a/lib/WebGUI/Form/IntSlider.pm
+++ b/lib/WebGUI/Form/IntSlider.pm
@@ -87,9 +87,10 @@ Returns the form element used for manual input.
 sub getInputElement {
 	my $self = shift;
 
+    $self->session->log->warn("int slider value: ". $self->getSliderValue);
 	return WebGUI::Form::Integer($self->session, {
 		name	=> $self->get('name'),
-		value	=> $self->getValue(),
+		value	=> $self->getSliderValue(),
 		size	=> $self->get('size'),
 		id	=> 'view-'.$self->get('id'),
 	});