[Bio] / FigKernelPackages / FIGMODELTable.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIGMODELTable.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.9, Fri Sep 4 23:16:16 2009 UTC revision 1.10, Tue Sep 8 21:04:08 2009 UTC
# Line 621  Line 621 
621          FIGMODEL::SaveTable($self);          FIGMODEL::SaveTable($self);
622  }  }
623    
624    =head3 html_print
625    Definition:
626            string::html_text = FIGMODELTable::my_table->html_print(void);
627    Description:
628            This function returns the table contents in html format for simple display on a webpage.
629    Example:
630    =cut
631    
632    sub html_print {
633            my ($self) = @_;
634    
635            #Printing the table headings first
636            my $html = "<table><tr>";
637            my @Headings = $self->headings();
638            for (my $i=0; $i < @Headings; $i++) {
639                    $html .= "<th align='left'>".$Headings[$i]."</th>";
640            }
641            $html .= "</tr>\n";
642    
643            #Printing the table rows
644            for (my $j=0; $j < $self->size(); $j++) {
645                    my $Row = $self->get_row($j);
646                    $html .= "<tr>";
647                    for (my $i=0; $i < @Headings; $i++) {
648                            $html .= "<td>";
649                            if (defined($Row->{$Headings[$i]})) {
650                                    $html .= join("|",@{$Row->{$Headings[$i]}});
651                            }
652                            $html .= "</td>";
653                    }
654                    $html .= "</tr>\n";
655            }
656            $html .= "</table>";
657    
658            return $html;
659    }
660    
661  =head3 load  =head3 load
662  Definition:  Definition:
663          my $Table = load_table($Filename,$Delimiter,$ItemDelimiter,$HeadingLine,$HashColumns);          my $Table = load_table($Filename,$Delimiter,$ItemDelimiter,$HeadingLine,$HashColumns);

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3