[LON-CAPA-cvs] cvs: loncom(version_1_0_1) /publisher lonpublisher.pm

[albertel]

albertel		Wed Sep 24 15:40:14 2003 EDT

  Modified files:              (Branch: version_1_0_1)
    /loncom/publisher	lonpublisher.pm 
  Log:
  - backport 1.135 to 1.0.2
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.126.2.1 loncom/publisher/lonpublisher.pm:1.126.2.2
--- loncom/publisher/lonpublisher.pm:1.126.2.1	Thu Aug 21 13:12:32 2003
+++ loncom/publisher/lonpublisher.pm	Wed Sep 24 15:40:14 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.126.2.1 2003/08/21 17:12:32 albertel Exp $
+# $Id: lonpublisher.pm,v 1.126.2.2 2003/09/24 19:40:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -647,7 +647,10 @@
 		    }
 		}
 		# probably a <randomlabel> image type <label>
-		if ($lctag eq 'label' && defined($parms{'description'})) {
+		# or a <image> tag inside <imageresponse>
+		if (($lctag eq 'label' && defined($parms{'description'}))
+		    ||
+		    ($lctag eq 'image')) {
 		    my $next_token=$parser[-1]->get_token();
 		    if ($next_token->[0] eq 'T') {
 			$next_token->[1]=&set_allow(\%allow,$logfile,