[LON-CAPA-cvs] cvs: loncom /homework chemresponse.pm

albertel lon-capa-cvs@mail.lon-capa.org
Tue, 20 Jan 2004 20:30:48 -0000


albertel		Tue Jan 20 15:30:48 2004 EDT

  Modified files:              
    /loncom/homework	chemresponse.pm 
  Log:
  - hey how about we actually generate some metadata so these damn things work
  
  
Index: loncom/homework/chemresponse.pm
diff -u loncom/homework/chemresponse.pm:1.27 loncom/homework/chemresponse.pm:1.28
--- loncom/homework/chemresponse.pm:1.27	Wed Dec 10 14:38:01 2003
+++ loncom/homework/chemresponse.pm	Tue Jan 20 15:30:48 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # chemical equation style response
 #
-# $Id: chemresponse.pm,v 1.27 2003/12/10 19:38:01 albertel Exp $
+# $Id: chemresponse.pm,v 1.28 2004/01/20 20:30:48 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -106,6 +106,7 @@
     my $partid = $Apache::inputtags::part;
     my $id = &Apache::response::start_response($parstack,$safeeval);
     if ($target eq 'meta') {
+	$result=&Apache::response::meta_package_write('organicresponse');
     } elsif ($target eq 'web') {
 	my $molecule;
 	if (defined($Apache::lonhomework::history{"resource.$partid.$id.molecule"})) {
@@ -298,6 +299,7 @@
     my $result;
     my $id = &Apache::response::start_response($parstack,$safeeval);
     if ($target eq 'meta') {
+	$result=&Apache::response::meta_package_write('reactionresponse');
     } elsif ($target eq 'web') {
 	my $partid = $Apache::inputtags::part;
 	my $id = $Apache::inputtags::response['-1'];