--- trunk/webwork/system/courseScripts/PGmatrixmacros.pl	2003/05/15 19:18:46	844
+++ trunk/webwork/system/courseScripts/PGmatrixmacros.pl	2003/05/15 22:28:36	845
@@ -417,6 +417,27 @@
 	$out;
 }
 
+sub mbox {
+	my $inList = shift;
+	my %opts = @_;
+
+	set_default_options(\%opts,
+											'_filter_name' => 'mbox',
+											'valign' => 'middle',
+											'allowbreaks' => 'no',
+											'allow_unknown_options'=> 0);
+	my $out = "";
+	my $j;
+	my @hlist = @{$inList};
+	if($main::displayMode eq 'TeX') {
+		for $j (@hlist) { $out .= $j;}
+	} else {
+		$out = qq!<table><tr valign="$opts{'valign'}">!;
+		for $j (@hlist) { $out .= "<td>$j</td>";}
+		$out .= "</table>";
+	}
+	return $out;
+}
 		
 
 =head4   ra_flatten_matrix