[Yaacs-svn] SF.net SVN: yaacs: [1123] trunk

[<bu...@us...>]

Revision: 1123
          http://svn.sourceforge.net/yaacs/?rev=1123&view=rev
Author:   bugant
Date:     2006-11-15 04:48:09 -0800 (Wed, 15 Nov 2006)

Log Message:
-----------
Show tables' header even if no data are displayed
on them. While I was there I moved away a commented
line.

Modified Paths:
--------------
    trunk/yaacs/op.tcl
    trunk/yacco.tcl

Modified: trunk/yaacs/op.tcl
===================================================================
--- trunk/yaacs/op.tcl	2006-11-14 19:11:27 UTC (rev 1122)
+++ trunk/yaacs/op.tcl	2006-11-15 12:48:09 UTC (rev 1123)
@@ -992,7 +992,6 @@
 proc ::op::RetriveProjs {db_handler uid} {
 	set ALLproj [list ]
 	set ALLprojName [list ]
-#	set uid [lindex [::yadb::getTuple $db_handler "select uid from interviewers.interviewers where login = '$getLogin'" 0] 0]
 	::yadb::pgSelect $db_handler "select a.proj as lproj,b.name as name\
 			from interviewers.paymentslog a, projects.projects b\
 			where uid = $uid and a.proj=b.proj and a.paid = 'f' order by lproj"\

Modified: trunk/yacco.tcl
===================================================================
--- trunk/yacco.tcl	2006-11-14 19:11:27 UTC (rev 1122)
+++ trunk/yacco.tcl	2006-11-15 12:48:09 UTC (rev 1123)
@@ -2744,7 +2744,7 @@
 
 	$::yacco::CalcTab tag configure CalcEnabled -bg green
 	$::yacco::CalcTab tag configure CalcDisabled -bg red
-	
+
 	$::yacco::TrainTab tag configure TrainEnabled -bg green
 	$::yacco::TrainTab tag configure TrainDisabled -bg red
 	
@@ -2839,6 +2839,9 @@
 	grid configure .account.base.buttons -padx 20 -sticky w
 	grid .account.base - -sticky ew
 
+	# shows tables header
+	::yacco::TableHeaders
+
 	set retrProj [::op::RetriveProjs $::yacco::db $::yacco::account::uid]
 	set ::yacco::ALLproj [lindex $retrProj 0]
 	set ::yacco::ALLprojName [lindex $retrProj 1]
@@ -2894,7 +2897,7 @@
 	foreach select $selProj {
 		lappend ::yacco::account::proj [lindex $::yacco::ALLproj $select]
 		lappend ::yacco::account::projName [lindex $::yacco::ALLprojName $select]
-		}
+	}
 ## call uid_calc procedure
 	set uidCalcRet [::op::uid_calc $db_handler $uid $::yacco::account::proj]
 	set ::yacco::in_out [lindex $uidCalcRet 0]
@@ -2961,24 +2964,25 @@
 	set ::yacco::projMoney 0
 	set ::yacco::projHours 0
 	set ::yacco::ckTech 0
+	::yacco::TableHeaders
 	#$::yacco::TrainTab tag col TrainReset 2
 }
 
 
-## an handler for the ::op::recalc_brief proc output
-# uid		= op's ID
-# db		= db connection
-# ckTech	= Technical training flag
-# brfList	= briefing flag list, ready to translate it into array
-# breifNum	= aka number of project selected...
-# totHoursDec = hours worked on projects in decimal form
+# an handler for the ::op::recalc_brief proc output
+# @param uid op's ID
+# @param db db connection
+# @param ckTech Technical training flag
+# @param brfList briefing flag list, ready to translate it into array
+# @param breifNum aka number of project selected...
+# @param totHoursDec hours worked on projects in decimal form
 proc ::yacco::handlerBrief {uid db ckTech brfList briefNum totHoursDec} {
 	set newBriefValues [::op::recalc_brief $uid $db $ckTech $brfList $briefNum $totHoursDec]
 	set ::yacco::briefingTot [lindex $newBriefValues 0]
 	set ::yacco::totMoney [lindex $newBriefValues 1]
 	set ::yacco::netMoney [lindex $newBriefValues 2]
 	set ::yacco::HoursDecBrief [lindex $newBriefValues 3]
-	}
+}
 
 
 proc ::yacco::ReportOutfile {rows} {


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