--- loncom/interface/statistics/lonsubmissiontimeanalysis.pm	2020/11/12 00:31:19	1.35.2.3
+++ loncom/interface/statistics/lonsubmissiontimeanalysis.pm	2020/11/18 15:38:56	1.35.2.4
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonsubmissiontimeanalysis.pm,v 1.35.2.3 2020/11/12 00:31:19 raeburn Exp $
+# $Id: lonsubmissiontimeanalysis.pm,v 1.35.2.4 2020/11/18 15:38:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -223,7 +223,7 @@ sub analyze_times {
     my @Ydata=(0);      # number of submissions
     my @AnsData=(0);    # number of correct submissions
     my @Xlabel=($WeekDay[$wday]); # Labels of itmes
-    my @BinEnd;                   # The end time of each bin
+    my @BinEnd=($endtime);        # The end time of each bin
     my $cumulative_answers = 0;   # The sum of @AnsData
     my %students;       # which students have attempted the problem?
     #
@@ -235,7 +235,7 @@ sub analyze_times {
             $Ydata[$bincount]   = 0;
             $AnsData[$bincount] = 0;
             $endtime += $binsize;
-            push(@BinEnd,$endtime);
+            $BinEnd[$bincount] = $endtime;
             if ($bincount % (86400/$binsize) == 0) {
                 $wday++;
                 $wday %= 7;
@@ -257,7 +257,7 @@ sub analyze_times {
         $Ydata[$bincount]=0;
         $AnsData[$bincount]=0;
         $endtime += $binsize;
-        push(@BinEnd,$endtime);
+        $BinEnd[$bincount]=$endtime;
         if ($bincount % (86400/$binsize) == 0) {
             $wday ++;
             $wday %= 7;