Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c4885ddf

Von Sven Schöling vor mehr als 11 Jahren hinzugefügt

  • ID c4885ddf724ece6960bfc53015d55d4bf61c86c6
  • Vorgänger eeadb745
  • Nachfolger 7a80b1c2

Mehrere redefines entfernt, meist my $query

Unterschiede anzeigen:

sql/Pg-upgrade2/add_more_constraints_fibu_projekt_xplace.pl
28 28 
    }
29 29 
  }
30 30 
  $sth_all_groups->finish();
31 
  my $query = qq|select count(*) from acc_trans where trans_id is NULL|;
32 
  my $sth_all_groups = prepare_execute_query($::form, $self->dbh, $query);
31 
  $query = qq|select count(*) from acc_trans where trans_id is NULL|;
32 
  $sth_all_groups = prepare_execute_query($::form, $self->dbh, $query);
33 33 
  while (my $hash_ref = $sth_all_groups->fetchrow_hashref()) {  # Schleife
34 34 
    if ($hash_ref->{count} eq 0){
35 35 
      # Falls wir keine alte buggy Installation haben, ist es super die
sql/Pg-upgrade2/default_bin_parts.pl
105 105 
  }
106 106 
  # das alte textfeld entfernen
107 107 
  # hier nochmal, da oben schon ein return 1 gesetzt ist
108 
  my $query = qq|ALTER TABLE parts drop COLUMN bin|;
108 
  $query = qq|ALTER TABLE parts drop COLUMN bin|;
109 109 
  $self->db_query($query);
110 110 
  return 1;
111 111 
}
sql/Pg-upgrade2/rundungsfehler_korrigieren_BUG1328.pl
25 25 
  $sth_all_groups->finish();
26 26 

  		




  27
  27
  
    

  		




  28
  
  
    
  my $query = qq|select distinct id,acamount from (select ar.id, ar.amount as aramount, ac.amount*-1 as acamount from ar left join acc_trans ac on (ac.trans_id =


  		




  
  28
  
    
  $query = qq|select distinct id,acamount from (select ar.id, ar.amount as aramount, ac.amount*-1 as acamount from ar left join acc_trans ac on (ac.trans_id =


  		




  29
  29
  
    
ar.id) where ac.chart_id IN (select id from chart where link ='AR' OR link like '%:AR' OR link like 'AR:%')) as foo where  aramount + 0.01 = abs(acamount)|;


  		




  30
  
  
    
  my $sth_all_groups = prepare_execute_query($::form, $self->dbh, $query);


  		




  
  30
  
    
  $sth_all_groups = prepare_execute_query($::form, $self->dbh, $query);


  		




  31
  31
  
    
  while (my $hash_ref = $sth_all_groups->fetchrow_hashref()) {  # Schleife


  		




  32
  32
  
    
      # Falls wir keine alte buggy Installation haben, ist es super die


  		




  33
  33
  
    
      # Gewissheit zu haben, dass kein acc_trans-Eintrag ohne trans_id vorhanden ist


  		












Auch abrufbar als:  Unified diff