is a GUI to produce PDFs from scanned documents (using Perl).
| 1161_save_multipage_pdf_with_utf8.t (gscan2pdf-2.13.1.tar.xz) | : | 1161_save_multipage_pdf_with_utf8.t (gscan2pdf-2.13.2.tar.xz) |
|---|
| | |
| skipping to change at line 49 | | skipping to change at line 49 |
|---|
| my @files; | | my @files; |
| for my $i ( 1 .. $n ) { | | for my $i ( 1 .. $n ) { |
| copy( '1.pnm', "$i.pnm" ) if ( $i > 1 ); | | copy( '1.pnm', "$i.pnm" ) if ( $i > 1 ); |
| push @files, "$i.pnm"; | | push @files, "$i.pnm"; |
| } | | } |
| $slist->import_files( | | $slist->import_files( |
| paths => \@files, | | paths => \@files, |
| finished_callback => sub { | | finished_callback => sub { |
| my @pages; | | my @pages; |
| for my $i ( 0 .. $n - 1 ) { | | for my $i ( 0 .. $n - 1 ) { |
|
| $slist->{data}[$i][2]->import_text( | | $slist->{data}[$i][2] |
| 'пени способствовала сохранению'); | | ->import_text('пени способствовала сохранению'); |
| push @pages, $slist->{data}[$i][2]{uuid}; | | push @pages, $slist->{data}[$i][2]{uuid}; |
| } | | } |
| $slist->save_pdf( | | $slist->save_pdf( |
| path => 'test.pdf', | | path => 'test.pdf', |
| list_of_pages => \@pages, | | list_of_pages => \@pages, |
| options => \%options, | | options => \%options, |
| finished_callback => sub { Gtk3->main_quit } | | finished_callback => sub { Gtk3->main_quit } |
| ); | | ); |
| } | | } |
| ); | | ); |
| | | |
| End of changes. 1 change blocks. |
|---|
| 2 lines changed or deleted | | 2 lines changed or added |
|---|
"Fossies" - the Fresh Open Source Software Archive 