Index: /trunk/tools/czartool/Burntool.pm
===================================================================
--- /trunk/tools/czartool/Burntool.pm	(revision 29076)
+++ /trunk/tools/czartool/Burntool.pm	(revision 29077)
@@ -16,8 +16,4 @@
     my $self = {};
     $self->{_verbose} = 0;
-
-    # get today's date
-    my ($day, $month, $year) = (localtime)[3,4,5];
-    $self->{_today} = sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day);
 
     bless $self, $class;
@@ -43,7 +39,10 @@
     else {return 0;}
 
+    # get today's date
+    my ($day, $month, $year) = (localtime)[3,4,5];
+    my $today = sprintf("%04d-%02d-%02d", $year+1900, $month+1, $day);
 
     if ($self->{_verbose}) {print "Checking $target for $self->{_today}\n";}
-    my $command = "automate_stacks.pl --check_chips --burntool_stats --this_target_only $target --date $self->{_today} ";
+    my $command = "automate_stacks.pl --check_chips --burntool_stats --this_target_only $target --date $today";
     my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) =
                 run(command => $command, verbose => $self->{_verbose});