[LON-CAPA-cvs] cvs: loncom /xml londefdef.pm

[sakharuk]

sakharuk		Mon Nov 18 15:47:51 2002 EDT

  Modified files:              
    /loncom/xml	londefdef.pm 
  Log:
  Bug 849 is fixed - I've just increased a little bit size of the cell (it is
  difficult to adjust this from the very beginning because I can not predict all possible situations).
  
  
Index: loncom/xml/londefdef.pm
diff -u loncom/xml/londefdef.pm:1.104 loncom/xml/londefdef.pm:1.105
--- loncom/xml/londefdef.pm:1.104	Fri Nov 15 11:51:02 2002
+++ loncom/xml/londefdef.pm	Mon Nov 18 15:47:51 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Tags Default Definition Module 
 #
-# $Id: londefdef.pm,v 1.104 2002/11/15 16:51:02 sakharuk Exp $
+# $Id: londefdef.pm,v 1.105 2002/11/18 20:47:51 sakharuk Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1505,7 +1505,7 @@
 		} else {
 		    if (length($data)<5) {
 			$Apache::londefdef::table[-1]{'length'} .= '0 mm,';
-			$tempolen = '5 mm';
+			$tempolen = '6 mm';
 		    } else {
 			$Apache::londefdef::table[-1]{'length'} .= '0 mm,';
 			$tempolen = 'TOBECHANGEDONNUMBER';
@@ -2551,7 +2551,7 @@
 	&Apache::lonnet::repcopy('/home/httpd/html'.$src);
 	#replicates eps or ps 
 	my $newsrc = $src;
-	$newsrc =~ s/(.gif|.jpg|.png)$/.eps/;
+	$newsrc =~ s/\.(gif|jpg|png)$/.eps/;
 	if (not-e $newsrc && &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc) ne 'OK') {
 	    $newsrc =~ s/\.ps$/\.eps/;
 	    &Apache::lonnet::repcopy('/home/httpd/html'.$newsrc);