Merge pull request #29 from tompetrus/master

Bugfix add1xml
This commit is contained in:
mortenbra 2016-06-01 08:59:30 +02:00
commit ecc6f8e287

View File

@ -781,11 +781,18 @@ as
) )
is is
t_tmp blob; t_tmp blob;
l_count binary_integer;
begin begin
dbms_lob.createtemporary( t_tmp, true ); dbms_lob.createtemporary( t_tmp, true );
for i in 0 .. trunc( length( p_xml ) / 4000 ) l_count := trunc( length( p_xml ) / 4000 );
if mod( length( p_xml ), 4000 ) = 0 then
l_count := greatest(l_count - 1, 0);
end if;
for i in 0 .. l_count
loop loop
dbms_lob.append( t_tmp, utl_i18n.string_to_raw( substr( p_xml, i * 4000 + 1, 4000 ), 'AL32UTF8' ) ); dbms_lob.append( t_tmp, utl_i18n.string_to_raw( substr( p_xml, i * 4000 + 1, 4000 ), 'AL32UTF8') );
end loop; end loop;
add1file( p_excel, p_filename, t_tmp ); add1file( p_excel, p_filename, t_tmp );
dbms_lob.freetemporary( t_tmp ); dbms_lob.freetemporary( t_tmp );