--- loncom/homework/structuretags.pm	2004/03/02 20:59:25	1.243
+++ loncom/homework/structuretags.pm	2004/03/08 23:18:21	1.244
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.243 2004/03/02 20:59:25 matthew Exp $
+# $Id: structuretags.pm,v 1.244 2004/03/08 23:18:21 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -656,7 +656,10 @@ sub end_problem {
 sub start_library {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my ($result,$head_tag_start,$body_tag_start,$form_tag_start);
-    if ($$tagstack[0] eq 'library') { &init_problem_globals('library') };
+    if ($$tagstack[0] eq 'library') {
+	&init_problem_globals('library');
+	$Apache::lonhomework::type='problem';
+    }
     if ($target eq 'edit') {
 	($result,$head_tag_start,$body_tag_start,$form_tag_start)=
 	    &page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);