[Yaacs-svn] SF.net SVN: yaacs: [1408] trunk/yaacs/admin.tcl

[<si...@us...>]

Revision: 1408
          http://svn.sourceforge.net/yaacs/?rev=1408&view=rev
Author:   sickpig
Date:     2007-05-18 00:30:46 -0700 (Fri, 18 May 2007)

Log Message:
-----------
 * temporary fix to a divided by zero 
   bug, same as the one commited at 
   rev 1398. that's happen 'cause 
   there're empty strata in the sampling 
   design.
   

Revision Links:
--------------
    http://svn.sourceforge.net/yaacs/?rev=1398&view=rev

Modified Paths:
--------------
    trunk/yaacs/admin.tcl

Modified: trunk/yaacs/admin.tcl
===================================================================
--- trunk/yaacs/admin.tcl	2007-05-14 10:59:55 UTC (rev 1407)
+++ trunk/yaacs/admin.tcl	2007-05-18 07:30:46 UTC (rev 1408)
@@ -1229,7 +1229,8 @@
 		set num [::yadb::getTuple $db $sql 0]
 		if {$num == -1} {return -1}
 		if {$type == 1} {set num [expr $rec(tobedone) - $num]}
-		set perc [expr [expr $num/$rec(tobedone).0] * 100]
+		set perc 0
+		if {$rec(tobedone) != 0} {set perc [expr [expr $num/$rec(tobedone).0] * 100]}
 		::yalog::debug "quota: $rec(strata) $num $perc"
 		lappend res $rec(strata) $num [format "%3.2f" $perc]
 	}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.