Removed debug statement

diff --git a/perl/schedproc b/perl/schedproc
index 3c34f3ac1b4805d8d73a653d69a76fced65745e7..137d2ea04aa3a7eb720b80b4e2f32a1f3dac50a8 100755 (executable)
--- a/perl/schedproc
+++ b/perl/schedproc
@@ -105,7 +105,6 @@ sub next_class {
     @off = @{$class{'off'}} if ($class{'off'});
     for($today = ($today > $firstday ? $today : $firstday); $today < $lastday; $today++) {
        next unless(grep($_ == Day_of_Week($today->date), @days));
-       print "$today\n";
        next if(grep($_ == "$today", @off));
        return $today;
     }