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

(-)a/Koha/Virtualshelf.pm (-1 / +24 lines)
Lines 72-87 sub store { Link Here
72
    return $self->SUPER::store( $self );
72
    return $self->SUPER::store( $self );
73
}
73
}
74
74
75
=head3 is_public
76
77
  my $bool = $shelf->is_public;
78
79
  Returns true if shelf has been made public.
80
81
=cut
82
75
sub is_public {
83
sub is_public {
76
    my ( $self ) = @_;
84
    my ( $self ) = @_;
77
    return $self->category == $PUBLIC;
85
    return $self->category == $PUBLIC;
78
}
86
}
79
87
88
=head3 is_private
89
90
  my $bool = $shelf->is_private;
91
92
  Returns true if shelf is a private shelf.
93
94
=cut
95
80
sub is_private {
96
sub is_private {
81
    my ( $self ) = @_;
97
    my ( $self ) = @_;
82
    return $self->category == $PRIVATE;
98
    return $self->category == $PRIVATE;
83
}
99
}
84
100
101
=head3 is_staff
102
103
  my $bool = $shelf->is_staff;
104
105
  Returns true if shelf is available to staff only.
106
107
=cut
108
85
sub is_staff {
109
sub is_staff {
86
    my ( $self ) = @_;
110
    my ( $self ) = @_;
87
    return $self->category == $STAFF;
111
    return $self->category == $STAFF;
88
- 

Return to bug 20718