- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
sub change_credit_limit {
my ($self, $new_limit) = @_;
return 0 if ( !validate_credit_limit($new_limit) );
my $credit_limit = $self->get_credit_limit();
if ( sprintf('%.5f', $new_limit) eq sprintf('%.5f', $credit_limit) ) {
return 1;
}
return $self->update({ 'credit_limit' => $new_limit });
}
anonimb84a2f6fd141 25.11.2012 00:14 # −3
guest 28.05.2013 18:26 # 0
Характерная такая профдеформация для человека много работающего с SQL.