--- loncom/Attic/lchtmldir 2004/08/05 20:33:50 1.6 +++ loncom/Attic/lchtmldir 2004/08/05 20:35:55 1.7 @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # The Learning Online Network with CAPA # @@ -238,7 +238,6 @@ exit 0; sub EnableRoot { if ($wwwid==$>) { - print ("EnableRoot $< $>\n"); ($<,$>)=($>,$<); ($(,$))=($),$(); }