Bug 8015: (follow-up) fix copy and move if subfields don't exist.

[koha.git] / opac / oai.pl

diff --git a/opac/oai.pl b/opac/oai.pl
index bad250a..b453408 100755 (executable)
--- a/opac/oai.pl
+++ b/opac/oai.pl
@@ -1,5 +1,23 @@
 #!/usr/bin/perl
 
+# Copyright Biblibre 2008
+#
+# This file is part of Koha.
+#
+# Koha is free software; you can redistribute it and/or modify it under the
+# terms of the GNU General Public License as published by the Free Software
+# Foundation; either version 2 of the License, or (at your option) any later
+# version.
+#
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with Koha; if not, write to the Free Software Foundation, Inc.,
+# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+
 use strict;
 use warnings;
 
@@ -71,7 +89,7 @@ sub new {
     my ($metadata_prefix, $offset, $from, $until, $set);
     if ( $args{ resumptionToken } ) {
         ($metadata_prefix, $offset, $from, $until, $set)
-            = split( ':', $args{resumptionToken} );
+            = split( '/', $args{resumptionToken} );
     }
     else {
         $metadata_prefix = $args{ metadataPrefix };
@@ -92,7 +110,7 @@ sub new {
     $self->{ set             } = $set;
 
     $self->resumptionToken(
-        join( ':', $metadata_prefix, $offset, $from, $until, $set ) );
+        join( '/', $metadata_prefix, $offset, $from, $until, $set ) );
     $self->cursor( $offset );
 
     return $self;