From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Mon, 18 Oct 2010 22:25:28 +0000 (+0200)
Subject: eprints-dev: /home/dpavlin/tsv2xp-xml.pl [commit]
X-Git-Url: http://git.rot13.org/?p=eprints3-migration.git;a=commitdiff_plain;h=a9d44e9916c9aa1ed8d125cf08711dce5afd9ad5;ds=sidebyside

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

diff --git a/tsv2xp-xml.pl b/tsv2xp-xml.pl
index 446d32e..3b55f59 100755
--- 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";
 	}