loncom/LONCAPA.pm - diff

Return to LONCAPA.pm CVS log

Up to [LON-CAPA] / loncom

version 1.2, 2006/05/30 12:45:12	version 1.3, 2006/05/30 15:39:56
Line 177 sub _do_hash_tie {	Line 177 sub _do_hash_tie {
# make the history log entry:	# make the history log entry:
if (($namespace !~/^nohist\_/) && (defined($loghead))) {	if (($namespace !~/^nohist\_/) && (defined($loghead))) {
my $args = scalar @_;	my $args = scalar @_;
Debug(" Opening history: $file_prefix $args");
my $hfh = IO::File->new(">>$file_prefix.hist");	my $hfh = IO::File->new(">>$file_prefix.hist");
if($hfh) {	if($hfh) {
my $now = time;	my $now = time;