--- loncom/xml/lontable.pm	2008/12/01 12:25:06	1.3
+++ loncom/xml/lontable.pm	2008/12/02 11:57:25	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 #  Generating TeX tables.
 #
-# $Id: lontable.pm,v 1.3 2008/12/01 12:25:06 foxr Exp $
+# $Id: lontable.pm,v 1.4 2008/12/02 11:57:25 foxr Exp $
 # 
 #
 # Copyright Michigan State University Board of Trustees
@@ -320,18 +320,18 @@ value of that configuration parameter is
 
 =head3 Examples:
 
- my $cell_borders = $table->cell_border(); # ask if cell borders are requested.
+ my $cell_border = $table->cell_border(); # ask if cell borders are requested.
  $table->cell_border(1);	# Request cell borders.
 
 =cut
 
-sub cell_borders {
+sub cell_border {
     my ($self, $new_value) = @_;
 
     if (defined($new_value)) {
 	$self->{inner_border} = $new_value;
     }
-    reurn $self->{inner_border};
+    return $self->{inner_border};
 }
 
 =pod
@@ -353,10 +353,10 @@ sub caption {
     my ($self, $new_value) = @_;
 
     if (defined($new_value)) {
-	$self->catpion = $new_value;
+	$self->{caption} = $new_value;
     }
 
-    return $self->caption;
+    return $self->{caption};
 }
 
 =pod
@@ -378,9 +378,9 @@ sub theme {
     my ($self, $new_value) = @_;
 
     if (defined($new_value)) {
-	$self->theme = $new_value;
+	$self->{theme} = $new_value;
     }
-    return $self->theme;
+    return $self->{theme};
 }
 
 =pod
@@ -414,8 +414,8 @@ The default vertical alignment of the ro
 sub start_row {
     my ($self, %config) = @_;
 
-    if ($self->row_open) { 
-	$self->end_row;
+    if ($self->{row_open}) { 
+	$self->end_row();
     }
     my $row_hash = {
 	default_halign => "left",
@@ -434,7 +434,7 @@ sub start_row {
     my $rows = $self->{rows};
     push(@$rows, $row_hash);
 
-    $self->row_open = 1;	# Row is now open and ready for business.
+    $self->{row_open} = 1;	# Row is now open and ready for business.
 }
 
 =pod
@@ -445,15 +445,15 @@ Closes off a row.  Once closed, cells ca
 
 =head3 Examples:
 
-   $table->close_row();
+   $table->end_row();
 
 
 =cut
 
-sub close_row {
+sub end_row {
     my ($self) = @_;
 
-    if ($self->row_open) {
+    if ($self->{row_open}) {
 	
 	# Mostly we need to determine if this row has the maximum
 	# cell count of any row in existence in the table:
@@ -473,7 +473,7 @@ sub close_row {
 	    $self->{column_count} = $cell_count;
 	}
 
-	$self->row_closed;
+	$self->{row_open} = 0;;
     }
 }
 
@@ -509,7 +509,7 @@ The default vertical alignment for text
 sub configure_row {
     my ($self, $config) = @_;
 
-    if (!$self->row_open) {
+    if (!$self->{row_open}) {
 	$self->start_row();
     }
     
@@ -568,7 +568,7 @@ sub add_cell {
 
     # If a row is not open, we must open it:
 
-    if (!$self->row_open) {
+    if (!$self->{row_open}) {
 	$self->start_row();
     }
 
@@ -613,8 +613,18 @@ sub add_cell {
     push(@$current_cells, $cell);
 }
 
+# The following method allows for testability.
+
+
+sub get_object_attribute {
+    my ($self, $attribute) = @_;
+    return $self->{$attribute};
+}
+
 
 #   Mandatory initialization.
+BEGIN{
+}
 
 1;
 __END__