--- loncom/interface/londocs.pm	2011/07/04 13:01:53	1.454
+++ loncom/interface/londocs.pm	2011/07/04 16:47:03	1.455
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.454 2011/07/04 13:01:53 raeburn Exp $
+# $Id: londocs.pm,v 1.455 2011/07/04 16:47:03 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -918,7 +918,7 @@ sub replicate_content {
                                 } elsif ($line =~ m{(|\Q</label>\E)\Q<br />Correct:<b><label>\E}) {
                                     $foilcounter ++;
                                     $mc_answer = $alphabet[$foilcounter];
-                                } elsif ($line !~ m{</label><br />}) {
+                                } elsif ($line !~ m{\Q</label>\E(|\Q</b>\E)\Q<br />\E}) {
                                     $line =~ s/^(\s+|\s+)$//g;
                                     $line =~ s{^\Q<b>\E([^<]+)\Q</b>\E$}{1};
                                     push(@tosave,$line);
@@ -929,10 +929,15 @@ sub replicate_content {
                                 }
                             }
                             if (@tosave) {
-                                $content = $currdirpath."\t".$title."\t".join("\t",@tosave);
+                                my $qtype;
                                 if ($mc_answer) {
-                                    $content .= "\t".$mc_answer."\n";
+                                    $qtype = 'MC';
                                 }
+                                $content = $currdirpath."\t".$title."\t$qtype\t".join("\t",@tosave);
+                                if ($mc_answer) {
+                                    $content .= "\t".$mc_answer;
+                                } 
+                                $content .= "\n";
                             }
                         } else {
                             $content = '<html><body>'.$content.'</body></html>';
