Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 9d17c830

Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt

  • ID 9d17c830e06c8b9a24af18b70c622a4fbc8d1b7a
  • Vorgänger 835ff8df
  • Nachfolger 44e8084a

Perl-DB-Upgradescripte: nicht manuell Datenbankhandle committen

Unterschiede anzeigen:

sql/Pg-upgrade2/add_more_constraints_fibu_projekt_xplace.pl
45 45 
    do_statement($::form,$sth,$query);
46 46 
    $sth->finish();
47 47 
  }
48 
  $self->dbh ->commit();
49 48 
  return 1;
50 49 
}
51 50 

  		












  

    
      sql/Pg-upgrade2/erzeugnisnummern.pl
    
  





  23
  23
  
    
      $update_query = qq|UPDATE parts SET partnumber = '| . $::form->{"partnumber_$i"} . qq|' WHERE id = | . $::form->{"partid_$i"};


  		




  24
  24
  
    
      $self->db_query($update_query);


  		




  25
  25
  
    
    }


  		




  26
  
  
    
    $self->dbh->commit();


  		




  27
  26
  
    
  }


  		




  28
  27
  
    

  		




  29
  28
  
    
  my $query = qq|SELECT id, partnumber, description, unit, notes, assembly, ean, inventory_accno_id, obsolete


  		












  

    
      sql/Pg-upgrade2/rundungsfehler_korrigieren_BUG1328.pl
    
  





  41
  41
  
    
    do_statement($::form,$sth,$query);


  		




  42
  42
  
    
    $sth->finish();


  		




  43
  43
  
    
  }


  		




  44
  
  
    
  $self->dbh ->commit();


  		




  45
  44
  
    
  return 1;


  		




  46
  45
  
    
}


  		




  47
  46
  
    

  		












Auch abrufbar als:  Unified diff