Merge branch 'f-use-with_transaction-instead-of-do_transaction'

diff --combined SL/Controller/Order.pm
index 22a0fd06b326fb9237dc5243ba42c72269658bd9,480f8915b6d2ca48284534b47e1993dbb4aeaf59..89c7ded25e2a4eff68bf3c5ad764a3c9e15f1407
--- 1/SL/Controller/Order.pm
--- 2/SL/Controller/Order.pm
+++ b/SL/Controller/Order.pm
@@@ -93,7 -93,7 +93,7 @@@ sub action_delete 
  
    flash_later('info', $::locale->text('The order has been deleted'));
    my @redirect_params = (
 -    action => 'edit',
 +    action => 'add',
      type   => $self->type,
    );
  
@@@ -893,9 -893,9 +893,9 @@@ sub _delete 
    my ($self) = @_;
  
    my $errors = [];
-   my $db = $self->order->db;
+   my $db     = $self->order->db;
  
-   $db->do_transaction(
+   $db->with_transaction(
      sub {
        my @spoolfiles = grep { $_ } map { $_->spoolfile } @{ SL::DB::Manager::Status->get_all(where => [ trans_id => $self->order->id ]) };
        $self->order->delete;
@@@ -915,12 -915,11 +915,11 @@@ sub _save 
    my ($self) = @_;
  
    my $errors = [];
-   my $db = $self->order->db;
+   my $db     = $self->order->db;
  
-   $db->do_transaction(
-     sub {
-       SL::DB::OrderItem->new(id => $_)->delete for @{$self->item_ids_to_delete};
-       $self->order->save(cascade => 1);
+   $db->with_transaction(sub {
+     SL::DB::OrderItem->new(id => $_)->delete for @{$self->item_ids_to_delete};
+     $self->order->save(cascade => 1);
    }) || push(@{$errors}, $db->error);
  
    return $errors;

diff --combined SL/Controller/RequirementSpecItem.pm
index 3ba774b48ffc2ca08dc6f920d3d3aa97c27404a4,d32d28481e628e9919e99e9e9a5101ee495f9111..b74ebefd07e411711032679fec60a5b49a326e7b
--- 1/SL/Controller/RequirementSpecItem.pm
--- 2/SL/Controller/RequirementSpecItem.pm
+++ b/SL/Controller/RequirementSpecItem.pm
@@@ -87,21 -87,21 +87,21 @@@ sub action_dragged_and_dropped 
    my $old_type            = $self->item->item_type;
    my $new_type            = !$dropped_item ? 'section' : $position =~ m/before|after/ ? $dropped_item->item_type : $dropped_item->child_type;
  
-   $self->item->db->do_transaction(sub {
+   $self->item->db->with_transaction(sub {
      $self->item->remove_from_list;
      $self->item->parent_id($position =~ m/before|after/ ? $dropped_item->parent_id : $dropped_item->id) if $dropped_item;
      $self->item->item_type($new_type);
      $self->item->add_to_list(position => $position, reference => $::form->{dropped_id} || undef);
    });
  
 -  $self->item(SL::DB::RequirementSpecItem->new(id => $self->item->id)->load);
 -  my $new_section         = $self->item->section;
 -  my $new_visible_section = SL::DB::RequirementSpecItem->new(id => $self->visible_item->id)->load->section;
 -
    return $self->invalidate_version->render if !$old_visible_section || ($new_type eq 'section');
  
    # From here on $old_visible_section is definitely set.
  
 +  $self->item(SL::DB::RequirementSpecItem->new(id => $self->item->id)->load);
 +  my $new_section         = $self->item->section;
 +  my $new_visible_section = SL::DB::RequirementSpecItem->new(id => $self->visible_item->id)->load->section;
 +
    my $old_parent  = SL::DB::RequirementSpecItem->new(id => $old_parent_id)->load;
    my $old_section = $old_parent->section;