From: Angus Leeming <leeming@lyx.org>
Date: Mon, 3 Feb 2003 01:23:04 +0000 (+0000)
Subject: Only the paranoia stuff...
X-Git-Tag: 1.6.10~17622
X-Git-Url: https://git.lyx.org/gitweb/?a=commitdiff_plain;h=f196d98ed43b79fc5cd5eca458b5d054b3c8461d;p=features.git

Only the paranoia stuff...


git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@6020 a592a061-630c-0410-9148-cb99ea01b6c8
---

diff --git a/lib/reLyX/RelyxTable.pm b/lib/reLyX/RelyxTable.pm
index e52cd5f621..72b8837c4c 100644
--- a/lib/reLyX/RelyxTable.pm
+++ b/lib/reLyX/RelyxTable.pm
@@ -283,65 +283,8 @@ sub parse_cols {
 	}
     } # end sub done_reading
 
+# Subroutines to print out the table once it's created
     sub print_info {
-    # Subroutine to print out the table once it's created
-	&print_info_221(@_);
-    }
-
-    sub write_string {
-	my ($name, $s) = @_;
-	if (!$s) {
-	    return '';
-	}
-	return ' ' . $name . '="' . $s . '"';
-    }
-
-    sub write_bool {
-	my ($name, $b) = @_;
-	if (!$b) {
-	    return '';
-	}
-	write_string $name, "true";
-    }
-
-    sub write_int {
-	my ($name, $i) = @_;
-	if (!$i) {
-	    return '';
-	}
-	write_string $name, $i;
-    }
-
-    sub print_info_221 {
-    # Subroutine to print out the table in \lyxformat 221
-	my $thistable = shift;
-        my $to_print = '';
-        # header line
-	$to_print .= "\n<lyxtabular" .
-	    write_int("version", 3) .
-	    write_int("rows", $thistable->numrows) .
-	    write_int("columns", $thistable->numcols) .
-	    ">\n";
-	# global longtable options
-	$to_print .= "<features" .
-	   write_int ("rotate", 0) .
-	   write_bool("islongtable", 0) .
-	   write_int ("firstHeadTopDL", 0) .
-	   write_int ("firstHeadBottomDL", 0) .
-	   write_bool("firstHeadEmpty", 0) .
-	   write_int ("headTopDL", 0) .
-	   write_int ("headBottomDL", 0) .
-	   write_int ("footTopDL", 0) .
-	   write_int ("footBottomDL", 0) .
-	   write_int ("lastFootTopDL", 0) .
-	   write_int ("lastFootBottomDL", 0) .
-	   write_bool("lastFootEmpty", 0) .
-	   ">\n";
-	    
-    }
-
-    sub print_info_215 {
-    # Subroutine to print out the table in \lyxformat 215
         # print the header information for this table
 	my $thistable = shift;
         my $to_print = "";