Index: openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl	8 Feb 2006 02:51:34 -0000	1.11
+++ openacs-4/packages/dotlrn-ecommerce/lib/cal-view.tcl	21 Jul 2006 17:19:32 -0000	1.12
@@ -177,6 +177,7 @@
 	
 	set j 0
 	set i 0
+	set pos 0
 	while { $i < $tree_length } {
 	    set element [lindex $tree_list $i]
 	    if {[string equal [set ${f}_category_v] [lindex $element 0]] } {