Cleaned BBrowser::Draw

git-svn-id: http://biopieces.googlecode.com/svn/trunk@779 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/BBrowser/Draw.pm b/code_perl/Maasha/BBrowser/Draw.pm
index 00ecba1a52d7dadb6ffe1fffb06e520b6c10e26c..c250ae944e3c401b32ebd22b638b463c45ab9f04 100644 (file)
--- a/code_perl/Maasha/BBrowser/Draw.pm
+++ b/code_perl/Maasha/BBrowser/Draw.pm
@@ -44,6 +44,8 @@ use vars qw( @ISA @EXPORT );
 
 sub draw_feature
 {
+    # Martin A. Hansen, November 2009
+
     # Given a list of features add these to
     # a Cairo::Context object.
 
@@ -143,22 +145,6 @@ sub file_png
 }
 
 
-sub hdump
-{
-    my ( $foo ) = @_;
-
-    my ( @html );
-
-    @html = "Content-Type: text/html; charset=ISO-8859-1\n\n";
-
-    push @html, "<pre>\n";
-    push @html, Dumper( $foo );
-    push @html, "</pre>\n";
-
-    return wantarray ? @html : \@html;
-}
-
-
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
 1;

diff --git a/code_perl/Maasha/XHTML.pm b/code_perl/Maasha/XHTML.pm
index 3a97af1591ec26c2c25376a43025d356f7db4bdd..7fd5f69221b8147cad07943befd3170253badadf 100755 (executable)
--- a/code_perl/Maasha/XHTML.pm
+++ b/code_perl/Maasha/XHTML.pm
@@ -1600,4 +1600,34 @@ sub input_field
 }
 
 
+# >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DEBUG <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+
+
+sub hdump
+{
+    # Martin A. Hansen, November 2009.
+    #
+    # Primitive debug routine that returns given data
+    # in <pre> tags as HTML lines.
+
+    my ( $data,   # data to dump
+       ) = @_;
+
+    # Returns a list
+
+    my ( @html );
+
+    @html = "Content-Type: text/html; charset=ISO-8859-1\n\n";
+
+    push @html, "<pre>\n";
+    push @html, Dumper( $data );
+    push @html, "</pre>\n";
+
+    return wantarray ? @html : \@html;
+}
+
+
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+
+1;
+

diff --git a/www/index.cgi b/www/index.cgi
index 41256f32964cbf6130ee612dc1b81f143588dd57..701aa86c05cffe32c53704ddfd22e4082bed3266 100755 (executable)
--- a/www/index.cgi
+++ b/www/index.cgi
@@ -59,8 +59,8 @@ push @html, Maasha::XHTML::form_end;
 push @html, Maasha::XHTML::body_end;
 push @html, Maasha::XHTML::html_end;
 
-# push @html, Maasha::BBrowser::Draw::hdump( $cgi->param );  # DEBUG
-# push @html, Maasha::BBrowser::Draw::hdump( $cookie );      # DEBUG
+# push @html, Maasha::XHTML::hdump( $cgi->param );  # DEBUG
+# push @html, Maasha::XHTML::hdump( $cookie );      # DEBUG
 
 print "$_\n" foreach @html;