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

[sakharuk]

sakharuk		Wed Mar 26 13:43:29 2003 EDT

  Modified files:              
    /loncom/homework	rankresponse.pm 
  Log:
  Changes were done according to Ed's desires: 1. Added righttriangle symbol yo any foil in the exam LaTeX mode (lines before bubbles). 2. Spacing adjustment of the text and bubbles is done. 3. Separation of problems with respect to foils (questions) is more clear now.
  
  
Index: loncom/homework/rankresponse.pm
diff -u loncom/homework/rankresponse.pm:1.8 loncom/homework/rankresponse.pm:1.9
--- loncom/homework/rankresponse.pm:1.8	Tue Mar 25 17:15:04 2003
+++ loncom/homework/rankresponse.pm	Wed Mar 26 13:43:29 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # rank style response
 #
-# $Id: rankresponse.pm,v 1.8 2003/03/25 22:15:04 sakharuk Exp $
+# $Id: rankresponse.pm,v 1.9 2003/03/26 18:43:29 sakharuk Exp $
 # Copyright Michigan State University Board of Trustees
 #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
@@ -31,6 +31,8 @@
 use HTML::Entities();
 use Apache::optionresponse;
 
+my $flag_for_exam_printing = 1;
+
 BEGIN {
     &Apache::lonxml::register('Apache::rankresponse',('rankresponse'));
 }
@@ -279,8 +281,8 @@
 		}
 	    } else {
 		if ($Apache::lonhomework::type eq 'exam') {
-		    $result.='\vskip 0 mm   '.$text."\n";
-		    $result.='\vskip -1 mm\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@alp,\@whichopt).'}\end{enumerate} \vskip -5 mm \strut ';
+		    $result.='\vskip 0 mm   '.$text.' \vskip -3 mm '."\n";
+		    $result.='\vskip -5 mm\begin{enumerate}\item[\textbf{'.$Apache::lonxml::counter.'}.]\parbox{\textwidth - 5 mm}{'.&Apache::optionresponse::bubbles(\@alp,\@whichopt).'}\end{enumerate} \vskip -5 mm \strut ';
 		} else {
 		    $result.=' \\\\ \framebox[5 mm][s]{\tiny\strut} '.$text."\n";
 		}
@@ -457,12 +459,25 @@
 		 && !&Apache::response::showallfoils() ) {
 		push @{ $Apache::response::conceptgroup{'names'} }, $name;
 		$Apache::response::conceptgroup{"$name.value"} = $value;
-		$Apache::response::conceptgroup{"$name.text"} = $text;
+		if ($target eq 'tex') {
+		    $Apache::response::conceptgroup{"$name.text"} = ' $\triangleright$ '.$text;
+		} else {
+		    $Apache::response::conceptgroup{"$name.text"} = $text;
+		}
 		$Apache::response::conceptgroup{"$name.location"} = $location;
 	    } else {
 		push @{ $Apache::response::foilgroup{'names'} }, $name;
 		$Apache::response::foilgroup{"$name.value"} = $value;
-		$Apache::response::foilgroup{"$name.text"} = $text;
+		if ($target eq 'tex' and $Apache::lonhomework::type eq 'exam' and $flag_for_exam_printing) {
+		    $Apache::response::foilgroup{"$name.text"} = '\vskip 5 mm $\triangleright$ '.$text;
+		    $flag_for_exam_printing = 0;
+		} else {
+		    if ($target eq 'tex') {
+			$Apache::response::foilgroup{"$name.text"} = ' $\triangleright$ '.$text;
+		    } else {
+			$Apache::response::foilgroup{"$name.text"} = $text;
+		    } 
+		}
 		$Apache::response::foilgroup{"$name.location"} = $location;
 	    }
 	}