fixed dna/DNA bug in Align.pm

[biopieces.git] / code_perl / Maasha / XHTML.pm

diff --git a/code_perl/Maasha/XHTML.pm b/code_perl/Maasha/XHTML.pm
index 4aeba311eb558c0530224769920893e5cf657e3d..44a72ba182bbc161c0be688ae548833b7dd1e730 100755 (executable)
--- a/code_perl/Maasha/XHTML.pm
+++ b/code_perl/Maasha/XHTML.pm
@@ -622,7 +622,7 @@ sub mailto
 }
 
 
-# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IMG <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IMG & OBJECT <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 
 sub img
@@ -640,6 +640,21 @@ sub img
 }
 
 
+sub object
+{
+    # Martin A. Hansen, October 2009.
+
+    # HTML <object> element
+
+    my ( %args,
+       ) = @_;
+
+    # Returns string
+
+    return &tag_single( "object", \%args );
+}
+
+
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DIV & SPAN <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<