--- loncom/interface/loncommon.pm	2001/12/11 13:49:57	1.12
+++ loncom/interface/loncommon.pm	2001/12/11 13:51:38	1.13
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.12 2001/12/11 13:49:57 harris41 Exp $
+# $Id: loncommon.pm,v 1.13 2001/12/11 13:51:38 harris41 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -64,7 +64,7 @@ sub BEGIN {
 	    next if /^\#/;
 	    chomp;
 	    my ($key,$val)=(split(/\s+/,$_,2));
-	    $copyright{$key}=$val;
+	    $cprtag{$key}=$val;
 	}
     }
 # ------------------------------------------------------------------ file types