Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 80f6efd0

Von Sven Schöling vor etwa 15 Jahren hinzugefügt

  • ID 80f6efd0cd9de22d54ccc605808a74c9955e643c
  • Vorgänger 60e14abf
  • Nachfolger c621a918

strictness.

Ausserdem das "use strict" einheitlich unter die includes verschoben um
deutlich zu machen, dass das pragma die eingebundenen dateien nicht
checken soll.

Unterschiede anzeigen:

SL/Notes.pm
5 5 
use SL::Common;
6 6 
use SL::DBUtils;
7 7 

  		




  
  8
  
    
use strict;


  		




  
  9
  
    

  		




  8
  10
  
    
sub save {


  		




  9
  11
  
    
  $main::lxdebug->enter_sub();


  		




  10
  12
  
    

  		




  ......




  51
  53
  
    

  		




  52
  54
  
    
  my $dbh      = $form->get_standard_dbh($myconfig);


  		




  53
  55
  
    

  		




  54
  
  
    
  my $ref      = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM notes WHERE id = ?|, conv_i($param{id}));


  		




  
  56
  
    
  my $ref      = selectfirst_hashref_query($form, $dbh, qq|SELECT * FROM notes WHERE id = ?|, conv_i($params{id}));


  		




  55
  57
  
    

  		




  56
  58
  
    
  $main::lxdebug->leave_sub();


  		




  57
  59
  
    

  		




  ......




  79
  81
  
    
  $dbh->commit() unless ($params{dbh});


  		




  80
  82
  
    

  		




  81
  83
  
    
  $main::lxdebug->leave_sub();


  		




  82
  
  
    

  		




  83
  
  
    
  return $ref;


  		




  84
  84
  
    
}


  		




  85
  85
  
    

  		




  86
  86
  
    
1;


  		












Auch abrufbar als:  Unified diff