--- loncom/homework/response.pm	2001/08/03 22:12:07	1.32
+++ loncom/homework/response.pm	2001/08/04 19:19:17	1.33
@@ -2,6 +2,8 @@
 # various response type definitons response definition
 
 # 11/23,11/24,11/28 Gerd Kortemeyer
+# Guy Albertelli
+# 08/04 Gerd Kortemeyer
 
 package Apache::response;
 use strict;
@@ -51,6 +53,13 @@ sub meta_parameter_write {
      ."\n";
 }
 
+sub meta_package_write {
+    my $name=shift;
+    return '<parameter part="'.$Apache::inputtags::part.
+	         '" package="'.$name.'"></parameter>'
+     ."\n";
+}
+
 sub meta_stores_write {
     my ($name,$type,$display)=@_;
     return '<stores part="'.$Apache::inputtags::part.