--- loncom/interface/loncommon.pm	2001/12/11 13:49:57	1.12
+++ loncom/interface/loncommon.pm	2001/12/11 19:37:12	1.14
@@ -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.14 2001/12/11 19:37:12 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
@@ -82,6 +82,46 @@ sub BEGIN {
     }
 }
 
+# ---------------------------------------------------------------- Language IDs
+sub languageids {
+
+}
+
+# -------------------------------------------------------- Language Description
+sub languagedescription {
+
+}
+
+# --------------------------------------------------------------- Copyright IDs
+sub copyrightids {
+
+}
+
+# ------------------------------------------------------- Copyright Description
+sub copyrightdescription {
+
+}
+
+# ------------------------------------------------------------- File Categories
+sub filecategories {
+
+}
+
+# ------------------------------------------------------------------ File Types
+sub fileextensions {
+
+}
+
+# ------------------------------------------------------------- Embedding Style
+sub fileembstyle {
+
+}
+
+# ------------------------------------------------------------ Description Text
+sub filedescription {
+
+}
+
 sub get_previous_attempt {
   my ($symb,$username,$domain,$course)=@_;
   my $prevattempts='';