@@ -, +, @@ --- Koha/OAI/Harvester/Worker/Download/Stream.pm | 7 +++++-- tools/oai-pmh-harvester/request.pl | 10 ++++++---- 2 files changed, 11 insertions(+), 6 deletions(-) --- a/Koha/OAI/Harvester/Worker/Download/Stream.pm +++ a/Koha/OAI/Harvester/Worker/Download/Stream.pm @@ -19,7 +19,7 @@ package Koha::OAI::Harvester::Worker::Download::Stream; use Modern::Perl; use LWP::UserAgent; -use UUID qw/uuid/; +use UUID; use POE; use JSON; use File::Path qw/make_path/; @@ -134,7 +134,10 @@ sub do_work { if ( ! -d $spooldir ){ my $made_spool_directory = make_path($spooldir); } - my $file_uuid = uuid(); + my ($uuid,$uuid_string); + UUID::generate($uuid); + UUID::unparse($uuid, $uuid_string); + my $file_uuid = $uuid_string; my $filename = "$spooldir/$file_uuid"; my $state = $document->toFile($filename, 2); if ($state){ --- a/tools/oai-pmh-harvester/request.pl +++ a/tools/oai-pmh-harvester/request.pl @@ -18,7 +18,7 @@ # along with Koha; if not, see . use Modern::Perl; -use UUID qw/uuid/; +use UUID; use C4::Auth; use C4::Output; @@ -109,8 +109,10 @@ if ($op eq "new"){ } elsif ($op eq "create"){ if ($save){ - my $uuid = uuid; - $request->uuid($uuid); + my ($uuid,$uuid_string); + UUID::generate($uuid); + UUID::unparse($uuid, $uuid_string); + $request->uuid($uuid_string); $request->store; print $input->redirect('/cgi-bin/koha/tools/oai-pmh-harvester/dashboard.pl#saved_results'); exit; @@ -139,4 +141,4 @@ else { $template->{VARS}->{ op } = $op; $template->{VARS}->{ oai_pmh_request } = $request; -output_html_with_http_headers($input, $cookie, $template->output); +output_html_with_http_headers($input, $cookie, $template->output); --