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

(-)a/C4/CourseReserves.pm (-13 / +10 lines)
Lines 17-22 package C4::CourseReserves; Link Here
17
17
18
use Modern::Perl;
18
use Modern::Perl;
19
19
20
use List::MoreUtils qw(any);
21
20
use C4::Context;
22
use C4::Context;
21
use C4::Items qw(GetItem ModItem);
23
use C4::Items qw(GetItem ModItem);
22
use C4::Biblio qw(GetBiblioFromItemNumber);
24
use C4::Biblio qw(GetBiblioFromItemNumber);
Lines 259-265 sub EnableOrDisableCourseItems { Link Here
259
              ) {
261
              ) {
260
                EnableOrDisableCourseItem(
262
                EnableOrDisableCourseItem(
261
                    ci_id   => $course_reserve->{'ci_id'},
263
                    ci_id   => $course_reserve->{'ci_id'},
262
                    enabled => 'yes',
263
                );
264
                );
264
            }
265
            }
265
        }
266
        }
Lines 274-280 sub EnableOrDisableCourseItems { Link Here
274
              ) {
275
              ) {
275
                EnableOrDisableCourseItem(
276
                EnableOrDisableCourseItem(
276
                    ci_id   => $course_reserve->{'ci_id'},
277
                    ci_id   => $course_reserve->{'ci_id'},
277
                    enabled => 'no',
278
                );
278
                );
279
            }
279
            }
280
        }
280
        }
Lines 283-292 sub EnableOrDisableCourseItems { Link Here
283
283
284
=head2 EnableOrDisableCourseItem
284
=head2 EnableOrDisableCourseItem
285
285
286
    EnableOrDisableCourseItem( ci_id => $ci_id, enabled => $enabled );
286
    EnableOrDisableCourseItem( ci_id => $ci_id );
287
288
    enabled => 'yes' to enable course items
289
    enabled => 'no' to disable course items
290
287
291
=cut
288
=cut
292
289
Lines 295-307 sub EnableOrDisableCourseItem { Link Here
295
    warn identify_myself(%params) if $DEBUG;
292
    warn identify_myself(%params) if $DEBUG;
296
293
297
    my $ci_id   = $params{'ci_id'};
294
    my $ci_id   = $params{'ci_id'};
298
    my $enabled = $params{'enabled'};
299
295
300
    return unless ( $ci_id && $enabled );
296
    return unless ( $ci_id );
301
    return unless ( $enabled eq 'yes' || $enabled eq 'no' );
302
297
303
    my $course_item = GetCourseItem( ci_id => $ci_id );
298
    my $course_item = GetCourseItem( ci_id => $ci_id );
304
299
300
    my $info = GetItemCourseReservesInfo( itemnumber => $course_item->{itemnumber} );
301
302
    my $enabled = any { $_->{course}->{enabled} eq 'yes' } @$info;
303
    $enabled = $enabled ? 'yes' : 'no';
304
305
    ## We don't want to 'enable' an already enabled item,
305
    ## We don't want to 'enable' an already enabled item,
306
    ## or disable and already disabled item,
306
    ## or disable and already disabled item,
307
    ## as that would cause the fields to swap
307
    ## as that would cause the fields to swap
Lines 828-837 sub ModCourseReserve { Link Here
828
        $cr_id = $dbh->last_insert_id( undef, undef, 'course_reserves', 'cr_id' );
828
        $cr_id = $dbh->last_insert_id( undef, undef, 'course_reserves', 'cr_id' );
829
    }
829
    }
830
830
831
    my $course = GetCourse($course_id);
832
    EnableOrDisableCourseItem(
831
    EnableOrDisableCourseItem(
833
        ci_id   => $params{'ci_id'},
832
        ci_id   => $params{'ci_id'},
834
        enabled => $course->{'enabled'}
835
    );
833
    );
836
834
837
    return $cr_id;
835
    return $cr_id;
Lines 932-938 sub DelCourseReserve { Link Here
932
930
933
}
931
}
934
932
935
=head2 GetReservesInfo
933
=head2 GetItemCourseReservesInfo
936
934
937
    my $arrayref = GetItemCourseReservesInfo( itemnumber => $itemnumber );
935
    my $arrayref = GetItemCourseReservesInfo( itemnumber => $itemnumber );
938
936
939
- 

Return to bug 15530