From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Wed, 3 May 2000 08:55:13 +0000 (+0000)
Subject: r32: Allowed negative numbers for window levels
X-Git-Tag: debian-4.5.3-3~985
X-Git-Url: http://git.kpe.io/?p=ctsim.git;a=commitdiff_plain;h=f86c64e8bb20ba2dff61dc579123de946ea2c363

r32: Allowed negative numbers for window levels
---

diff --git a/cgi-bin/ctsim.cgi.in b/cgi-bin/ctsim.cgi.in
index 60b4bb0..3ec39ca 100755
--- a/cgi-bin/ctsim.cgi.in
+++ b/cgi-bin/ctsim.cgi.in
@@ -56,11 +56,11 @@ my $Disp_Min = "auto";
 my $Disp_Max = "auto";
 $Disp_Min = FilterToNumber($in{'Disp_Min'}) if ($in{'Disp_Min'} ne "auto" && $in{'Disp_Min'} ne "");
 $Disp_Max = FilterToNumber($in{'Disp_Max'}) if ($in{'Disp_Max'} ne "auto" && $in{'Disp_Max'} ne "");
-if ($Disp_Min ne 'auto' && ! ($Disp_Min =~ /^[\d\.]+$/)) {
-    $error .= "Display Minimum must be 'auto' or numeric (received '$Disp_Min') <br>";
+if ($Disp_Min ne 'auto' && ! ($Disp_Min =~ /^[\d\.\-]+$/)) {
+    $error .= "Display Minimum must be 'auto' or numeric (received $Disp_Min) <br>";
 }
-if ($Disp_Max ne 'auto' && ! ($Disp_Max =~ /^[\d\.]+$/)) {
-    $error .= "Display Maximum must be 'auto' or numeric (received '$Disp_Max') <br>";
+if ($Disp_Max ne 'auto' && ! ($Disp_Max =~ /^[\d\.\-]+$/)) {
+    $error .= "Display Maximum must be 'auto' or numeric (received $Disp_Max) <br>";
 }
 
 my $MPI_Str = FilterMetaChars($in{'MPI'});
@@ -282,6 +282,6 @@ sub FilterMetaChars
 sub FilterToNumber
 {
    my $var = pop(@_);
-   $var =~ /^(\d*\.*\d*)$/;  
+   $var =~ /^(\-*\d*\.*\d*)$/;  
    $1;
 }