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

diff --git a/tsv2xp-xml.pl b/tsv2xp-xml.pl
index 446d32e..3b55f59 100755 (executable)
--- a/tsv2xp-xml.pl
+++ b/tsv2xp-xml.pl
@@ -70,12 +70,13 @@ while(<$tsv>) {
        }
 
        my $subject;
-       if ( $file =~ m/^(\d+)(\w+)$/ ) {
+       if ( $file =~ m/(\w+)/ ) {
+               $_ = $1;
                $subject =
-                       $2 =~ m/bib/i       ? 'IZBIB' :
-                       $2 =~ m/[info]{4}/i ? 'IZDHI' :
-                       $2 =~ m/muz/i       ? 'IZMUZ' :
-                       $2 =~ m/arh/i       ? 'IZARH' :
+                       m/bib/i    ? 'IZBIB' :
+                       m/in[fo]/i ? 'IZDHI' :
+                       m/muz/i    ? 'IZMUZ' :
+                       m/arh/i    ? 'IZARH' :
                        die "unknown subject: $2";
        }