Index: openacs-4/packages/user-tracking/www/site-card.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/user-tracking/www/site-card.tcl,v diff -u -r1.2 -r1.2.2.1 --- openacs-4/packages/user-tracking/www/site-card.tcl 14 Apr 2005 15:44:28 -0000 1.2 +++ openacs-4/packages/user-tracking/www/site-card.tcl 28 Jun 2005 08:03:12 -0000 1.2.2.1 @@ -42,6 +42,7 @@ asked_day:onevalue server:onevalue system_name:onevalue + LastLine:onevalue } @@ -95,6 +96,7 @@ if {$asked_date <= $today } { set nodata_p 0 + set LastLine "" if {[file exists $DataFileName]} { set nodata_p 1 set LastRegistration_ansi [lc_time_system_to_conn $last_registration] @@ -164,6 +166,9 @@ TotalUnique { set TotalUnique [lindex $campos 1] } + LastLine { + set LastLine [user-tracking::converts_date [lindex $campos 1]] + } default {} } set i [expr $i - 1] @@ -193,9 +198,12 @@ while { $i > 0} { set linea [gets $dataFile] + if { $linea == "END_DAY" } { + break; + } set campos [split $linea] - set TotalPages [expr $TotalPages+ [lindex $campos 1]] - set TotalAsked [expr $TotalAsked+ [lindex $campos 2]] + set TotalPages [expr $TotalPages + [lindex $campos 1]] + set TotalAsked [expr $TotalAsked + [lindex $campos 2]] set i [expr $i - 1] if {[eof $dataFile]} { #Wrong file? break;