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

[sakharuk]

sakharuk		Tue Dec  3 05:17:05 2002 EDT

  Modified files:              
    /loncom/homework	inputtags.pm 
  Log:
  bug #1024 is fixed. 
  
  
Index: loncom/homework/inputtags.pm
diff -u loncom/homework/inputtags.pm:1.75 loncom/homework/inputtags.pm:1.76
--- loncom/homework/inputtags.pm:1.75	Wed Nov 27 14:25:56 2002
+++ loncom/homework/inputtags.pm	Tue Dec  3 05:17:05 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # input  definitons
 #
-# $Id: inputtags.pm,v 1.75 2002/11/27 19:25:56 albertel Exp $
+# $Id: inputtags.pm,v 1.76 2002/12/03 10:17:05 sakharuk Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -172,7 +172,9 @@
     my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,'size');
     if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
   } elsif ($target eq 'tex') {
-      $result='\framebox[1cm][s]{\hfill}';
+      my $size = &Apache::lonxml::get_param('size',$parstack,$safeeval);
+      if ($size != 0) {$size=$size*2; $size.=' mm';} else {$size='40 mm';}
+      $result='\framebox['.$size.'][s]{\tiny\strut}';
   }
   return $result;
 }