eprints-dev: /home/dpavlin/tsv2xp-xml.pl [commit]

diff --git a/tsv2xp-xml.pl b/tsv2xp-xml.pl
index 3b55f59..6799778 100755 (executable)
--- a/tsv2xp-xml.pl
+++ b/tsv2xp-xml.pl
@@ -11,8 +11,6 @@ use Data::Dump qw(dump);
 
 my $tsv_file = ( glob 'items.*' )[0];
 
-our $eprintsid = 700;
-
 my $xml = read_file 'ep-xml.xml';
 my @files = read_file "files.txt";
 
@@ -81,7 +79,6 @@ while(<$tsv>) {
        }
 
        my $c = $col;
-       $header2col->{'eprintsid'} = $c; $v[$c++] = $eprintsid++;
        $header2col->{'file'} = $c; $v[$c++] = $file;
        $header2col->{'full_path'} = $c; $v[$c++] = $full_path;
        $header2col->{'subject'} = $c; $v[$c++] = $subject;