Konditional RecordLink save aufrufen (analog zu ar auch für oe)

diff --git a/SL/IR.pm b/SL/IR.pm
index 457c481626ae34f70ac65192ae6d632ab6f0e6bc..0dd0ee8b2a3e6a54b06f0e1e135b2ba2d975d6e7 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -757,14 +757,16 @@ SQL
   Common::webdav_folder($form);
 
   # Link this record to the records it was created from.
   Common::webdav_folder($form);
 
   # Link this record to the records it was created from.

-  RecordLinks->create_links('dbh'        => $dbh,
-                            'mode'       => 'ids',
-                            'from_table' => 'oe',
-                            'from_ids'   => $form->{convert_from_oe_ids},
-                            'to_table'   => 'ap',
-                            'to_id'      => $form->{id},
-    );
-  delete $form->{convert_from_oe_ids};
+  if ($form->{convert_from_oe_ids}) {
+    RecordLinks->create_links('dbh'        => $dbh,
+                              'mode'       => 'ids',
+                              'from_table' => 'oe',
+                              'from_ids'   => $form->{convert_from_oe_ids},
+                              'to_table'   => 'ap',
+                              'to_id'      => $form->{id},
+      );
+    delete $form->{convert_from_oe_ids};
+  }

 
   my @convert_from_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{convert_from_do_ids};
   if (scalar @convert_from_do_ids) {
 
   my @convert_from_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{convert_from_do_ids};
   if (scalar @convert_from_do_ids) {

diff --git a/SL/IS.pm b/SL/IS.pm
index e2358ea1665d3b9c0023c42365a840fb35fd5079..0d3cdf0bdb5e747eae739be838f039edba29d8a5 100644 (file)
--- a/SL/IS.pm
+++ b/SL/IS.pm
@@ -1215,14 +1215,16 @@ SQL
   }
 
   # Link this record to the records it was created from.
   }
 
   # Link this record to the records it was created from.

-  RecordLinks->create_links('dbh'        => $dbh,
-                            'mode'       => 'ids',
-                            'from_table' => 'oe',
-                            'from_ids'   => $form->{convert_from_oe_ids},
-                            'to_table'   => 'ar',
-                            'to_id'      => $form->{id},
-    );
-  delete $form->{convert_from_oe_ids};
+  if ($form->{convert_from_oe_ids}) {
+    RecordLinks->create_links('dbh'        => $dbh,
+                              'mode'       => 'ids',
+                              'from_table' => 'oe',
+                              'from_ids'   => $form->{convert_from_oe_ids},
+                              'to_table'   => 'ar',
+                              'to_id'      => $form->{id},
+      );
+    delete $form->{convert_from_oe_ids};
+  }

 
   my @convert_from_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{convert_from_do_ids};
 
 
   my @convert_from_do_ids = map { $_ * 1 } grep { $_ } split m/\s+/, $form->{convert_from_do_ids};