File Coverage

blib/lib/SWISH/Filters/XLtoHTML.pm

Criterion	Covered	Total	%
statement	9	44	20.4
branch	0	8	0.0
condition	0	14	0.0
subroutine	3	5	60.0
pod	1	3	33.3
total	13	74	17.5

package SWISH::Filters::XLtoHTML;
use strict;
require File::Spec;
use vars qw( $VERSION @ISA );
$VERSION = '0.191';
@ISA = ('SWISH::Filters::Base');

sub new {
    my ($class) = @_;

    my $self
        = bless {
        mimetypes => [ qr!application/vnd.ms-excel!, qr!application/excel!, ],
        }, $class;

    return $self->use_modules(qw( Spreadsheet::ParseExcel ));

}

sub filter {
    my ( $self, $doc ) = @_;

    # We need a file name to pass to the conversion function
    my $file = $doc->fetch_filename;

    my ( $content_ref, $meta ) = $self->get_xls_content_ref( $file, $doc );

    return unless $content_ref;

    # update the document's content type
    $doc->set_content_type('text/html');

    # If filtered must return either a reference to the doc or a pathname.
    return ( \$content_ref, $meta );

}

sub get_xls_content_ref {
    my ( $self, $file, $doc ) = @_;

    my $oExcel = Spreadsheet::ParseExcel->new;
    return unless $oExcel;

    my $oBook = $oExcel->Parse($file) || return;
    my ( $iR, $iC, $oWkS, $oWkC, $ExcelWorkBook );

    # gather up all the workbook metadata
    my ( $vol, $dirs, $filename ) = File::Spec->splitpath( $oBook->{File} );

    my $user_meta = $doc->meta_data || {};

    my %meta = (
        Filename   => $filename,
        Version    => $oBook->{Version} || '',
        Author     => $oBook->{Author} || '',
        Sheetcount => $oBook->{SheetCount}
    );

    $meta{$_} = $user_meta->{$_} for keys %$user_meta;

    my $title = join( ' ',
        $oBook->{Worksheet}[0]->{Name},
        $filename, 'v.' . $meta{Version} );

    my $html = join( "\n",
        '', '',
        '' . $self->escapeXML($title) . '',
        $self->format_meta_headers( \%meta ), '' );

    $html .= "\n";

    # Here we collect content from each worksheet
    for ( my $iSheet = 0; $iSheet < $oBook->{SheetCount}; $iSheet++ ) {

        # For each Worksheet do the following
        $oWkS = $oBook->{Worksheet}[$iSheet];

        # Name of the worksheet
        my $ExcelWorkSheet
            = "" . $self->escapeXML( $oWkS->{Name} ) . "\n";
        $ExcelWorkSheet .= "\n"; \n"; \n" \n"; 




82




 





 





 





 





 





 



   




83




0





 




  
  0
  




 





 





 



         for ( 




84




 





 





 





 





 





 



             my $iR = $oWkS->{MinRow}; 




85




 





 





 





 





 





 



             defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow}; 




86




 





 





 





 





 





 



             $iR++ 




87




 





 





 





 





 





 



             ) 




88




 





 





 





 





 





 



         { 




89




 





 





 





 





 





 



   




90




 





 





 





 





 





 



             # For each row do the following 




91




0





 





 





 





 





 



             $ExcelWorkSheet .= "




92




 





 





 





 





 





 



   




93




0





 




  
  0
  




 





 





 



             for ( 




94




 





 





 





 





 





 



                 my $iC = $oWkS->{MinCol}; 




95




 





 





 





 





 





 



                 defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol}; 




96




 





 





 





 





 





 



                 $iC++ 




97




 





 





 





 





 





 



                 ) 




98




 





 





 





 





 





 



             { 




99




 





 





 





 





 





 



   




100




 





 





 





 





 





 



                 # For each cell do the following 




101




0





 





 





 





 





 



                 $oWkC = $oWkS->{Cells}[$iR][$iC]; 




102




 





 





 





 





 





 



   




103




0




  
  0
  




 





 





 





 



                 my $CellData = $self->escapeXML( $oWkC->Value ) if ($oWkC); 




104




0




  
  0
  




 





 





 





 



                 $ExcelWorkSheet .= "\t" . $CellData . "




105




 





 





 





 





 





 



                     if $CellData; 




106




 





 





 





 





 





 



             } 




107




0





 





 





 





 





 



             $ExcelWorkSheet .= "




108




 





 





 





 





 





 



   




109




 





 





 





 





 





 



             # Our last duty 




110




0





 





 





 





 





 



             $ExcelWorkBook .= $ExcelWorkSheet; 




111




0





 





 





 





 





 



             $ExcelWorkSheet = ""; 




112




 





 





 





 





 





 



         } 




113




0





 





 





 





 





 



         $ExcelWorkBook .= "\n";

        for (
            my $iR = $oWkS->{MinRow};
            defined $oWkS->{MaxRow} && $iR <= $oWkS->{MaxRow};
            $iR++
            )
        {

            # For each row do the following
            $ExcelWorkSheet .= "

            for (
                my $iC = $oWkS->{MinCol};
                defined $oWkS->{MaxCol} && $iC <= $oWkS->{MaxCol};
                $iC++
                )
            {

                # For each cell do the following
                $oWkC = $oWkS->{Cells}[$iR][$iC];

                my $CellData = $self->escapeXML( $oWkC->Value ) if ($oWkC);
                $ExcelWorkSheet .= "\t
                    if $CellData;
            }
            $ExcelWorkSheet .= "

            # Our last duty
            $ExcelWorkBook .= $ExcelWorkSheet;
            $ExcelWorkSheet = "";
        }
        $ExcelWorkBook .= "
    }

    $html .= <

$ExcelWorkBook


EOF

    # include title in meta for return
    $meta{title} = $title;

    return ( $html, \%meta );
}

__END__