View | Details | Raw Unified | Return to bug 22907
Collapse All | Expand All

(-)a/C4/Suggestions.pm (-32 lines)
Lines 437-456 Insert a new suggestion on database with value given on input arg. Link Here
437
sub NewSuggestion {
437
sub NewSuggestion {
438
    my ($suggestion) = @_;
438
    my ($suggestion) = @_;
439
439
440
    for my $field ( qw(
441
        suggestedby
442
        managedby
443
        manageddate
444
        acceptedby
445
        accepteddate
446
        rejectedby
447
        rejecteddate
448
        budgetid
449
    ) ) {
450
        # Set the fields to NULL if not given.
451
        $suggestion->{$field} ||= undef;
452
    }
453
454
    $suggestion->{STATUS} = "ASKED" unless $suggestion->{STATUS};
440
    $suggestion->{STATUS} = "ASKED" unless $suggestion->{STATUS};
455
441
456
    $suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate};
442
    $suggestion->{suggesteddate} = dt_from_string unless $suggestion->{suggesteddate};
Lines 526-548 sub ModSuggestion { Link Here
526
    my ($suggestion) = @_;
512
    my ($suggestion) = @_;
527
    return unless( $suggestion and defined($suggestion->{suggestionid}) );
513
    return unless( $suggestion and defined($suggestion->{suggestionid}) );
528
514
529
    for my $field ( qw(
530
        suggestedby
531
        managedby
532
        manageddate
533
        acceptedby
534
        accepteddate
535
        rejectedby
536
        rejecteddate
537
        budgetid
538
    ) ) {
539
        # Set the fields to NULL if not given.
540
        $suggestion->{$field} = undef
541
          if exists $suggestion->{$field}
542
          and ($suggestion->{$field} eq '0'
543
            or $suggestion->{$field} eq '' );
544
    }
545
546
    my $suggestion_object = Koha::Suggestions->find( $suggestion->{suggestionid} );
515
    my $suggestion_object = Koha::Suggestions->find( $suggestion->{suggestionid} );
547
    eval { # FIXME Must raise an exception instead
516
    eval { # FIXME Must raise an exception instead
548
        $suggestion_object->set($suggestion)->store;
517
        $suggestion_object->set($suggestion)->store;
549
- 

Return to bug 22907