--- loncom/metadata_database/parse_activity_log.pl	2005/09/20 18:01:01	1.20
+++ loncom/metadata_database/parse_activity_log.pl	2006/03/30 06:57:50	1.23
@@ -2,7 +2,7 @@
 #
 # The LearningOnline Network
 #
-# $Id: parse_activity_log.pl,v 1.20 2005/09/20 18:01:01 matthew Exp $
+# $Id: parse_activity_log.pl,v 1.23 2006/03/30 06:57:50 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,7 +48,9 @@
 # parameter is not set $logthis is set to &nothing, which does what you
 # would expect.
 #
-
+BEGIN {
+    eval "use Apache2::compat();";
+};
 use strict;
 use DBI;
 use lib '/home/httpd/lib/perl/Apache';
@@ -184,7 +186,7 @@ if (! defined($xmlfile)) {
     if (!flock(LOCKFILE,LOCK_EX|LOCK_NB)) {
         warn("Unable to lock $lockfilename.  Aborting".$/);
         # don't call clean_up_and_exit another instance is running and
-        # we don't want to 'cleanup' there files
+        # we don't want to 'cleanup' their files
         exit 6;
     }
 
@@ -943,9 +945,9 @@ sub xml_store_id_table {
 #######################################################################
 {
     my @rows;
-    my $max_row_count = 100;
 
 sub store_entry {
+    my $max_row_count = 100;
     if (! @_) {
         undef(@rows);
         return '';