diff --git a/eprints1.pl b/eprints1.pl
index bef6e3a09cab265f7f955f750b3554eae874f978..d7cae7a2f0b8a5d6d242836f3d73783768984643 100755
--- a/eprints1.pl
+++ b/eprints1.pl
@@ -114,8 +114,8 @@ my $op_mode= 'unknown';
 
 # ======================================================================
 # BEGIN OT2UT: Othes to Utheses 
-# my $ot2ut_context= 'ot2ut-entw'; # TODO: parametrize
-  my $ot2ut_context= 'ot2ut-test'; # TODO: parametrize
+  my $ot2ut_context= 'ot2ut-entw'; # TODO: parametrize
+# my $ot2ut_context= 'ot2ut-test'; # TODO: parametrize
 # my $ot2ut_context= 'ot2ut-prod'; # TODO: parametrize
 my $oma_sleep_time= 5;
 my $activity_period= 12;
@@ -3124,7 +3124,7 @@ sub ot2ut
             # REDIS Update
             if (defined ($redis_connection))
             {
-              my $ut_url= $upload_cnf->{utheses_public_base_url} . $utheses_id1;
+              my $ut_url= $upload_cnf->{utheses_public_base_url} . $utheses_id1 . '#';
               my $rc= $redis_connection->set( $eprint_id => $ut_url );
               print __LINE__, " updated redis: eprint_id=[$eprint_id] ut_url=[$ut_url]\n";
               # sleep(10);
@@ -3442,6 +3442,10 @@ sub generate_utheses_metadata
 
   if (defined ($row->{matr}))
   { # there are objects where it is NULL
+    if (length ($row->{matr}) < 8)
+    {
+      push (@mapping_errors, { error => 'matrnr', matrnr => $row->{matr} } );
+    }
     $utp->{student_id}= $row->{matr};
     $utp->{contact_email}=  'a'. $row->{matr} . '@unet.univie.ac.at';  # ANM: da kennen wir nur a<matr>@unet.univie.ac.at
   }
@@ -4656,7 +4660,7 @@ sub export_redirect
 
     my ($eprint_id, $utheses_id)= map { $row_sync->{$_} } qw(eprint_id utheses_id);
 
-    my $ut_url= $utheses_public_base_url . $utheses_id;
+    my $ut_url= $utheses_public_base_url . $utheses_id . '#';
 
     $eprint_ids[$eprint_id]= $ut_url;
     $max_eprint_id= $eprint_id if ($eprint_id > $max_eprint_id);
@@ -5374,7 +5378,7 @@ EOX
         my $lastmod= $x->{othes};
         print BLOCK <<EOX;
 <tr>
-  <td><a href="https://othes.univie.ac.at/$eprint_id/" target="othes">$eprint_id</a>
+  <td><a href="https://othes-legacy.univie.ac.at/$eprint_id/" target="othes">$eprint_id</a>
   <td>$lastmod</td>
 </td>
 EOX
@@ -5455,7 +5459,17 @@ EOX
   }
   print IDX "</tr>\n";
 
-  print IDX "</table>\n";
+  print IDX <<EOX;
+</table>
+
+<h2>migration tables</h2>
+<ul>
+<li><a href="sync_ot2ut-entw.tsv">entw</a></li>
+<li><a href="sync_ot2ut-test.tsv">test</a></li>
+<li><a href="sync_ot2ut-prod.tsv">prod</a></li>
+</ul>
+
+EOX
 
   # print statistics
   # print __LINE__, " cctab: ", Dumper($cctab);
@@ -5638,7 +5652,7 @@ sub export_migration_data
 
   # write tsv
   {
-    my $tsv_fnm= sprintf ("sync_%s.tsv", $ot2ut_context);
+    my $tsv_fnm= sprintf ("%s/sync_%s.tsv", $base_path, $ot2ut_context);
     print __LINE__, " writing migration table [$tsv_fnm]\n";
 
     my @tsv_columns= (@sync_fields, @utp_fields, @marc_fields, @marc_extra_fields); # NOTE: eprint_id is there several times
@@ -6079,7 +6093,7 @@ EOX
         print LST "<td>&nbsp;</td>";
       }
 
-      print LST "<td><a href=\"https://othes.univie.ac.at/$id/\" target=\"othes\">$id</a></td>";
+      print LST "<td><a href=\"https://othes-legacy.univie.ac.at/$id/\" target=\"othes\">$id</a></td>";
       # print __LINE__, " p: ", main::Dumper($p);
 
       foreach my $context (qw(entw test prod))