Make cleanup of encodings, moving webpac closer to having

[webpac2] / lib / WebPAC / Input / Excel.pm

diff --git a/lib/WebPAC/Input/Excel.pm b/lib/WebPAC/Input/Excel.pm
index c66864e..92c4e37 100644 (file)
--- a/lib/WebPAC/Input/Excel.pm
+++ b/lib/WebPAC/Input/Excel.pm
@@ -9,7 +9,7 @@ use base qw/WebPAC::Common/;
 
 =head1 NAME
 
-WebPAC::Input::Excel - support for Microsoft Excell and compatibile files
+WebPAC::Input::Excel - support for Microsoft Excel and compatibile files
 
 =head1 VERSION
 
@@ -96,7 +96,7 @@ Return record with ID C<$mfn> from database
 
   my $rec = $self->fetch_rec( $mfn );
 
-}
+Columns are named C<A>, C<B> and so on...
 
 =cut
 
@@ -141,6 +141,9 @@ sub size {
        my $self = shift;
        return $self->{size};
 }
+
+sub default_encoding { 'UTF-16' }
+
 =head1 AUTHOR
 
 Dobrica Pavlinusic, C<< <dpavlin@rot13.org> >>