|
Lines 24-29
use Carp;
Link Here
|
| 24 |
use C4::Context; |
24 |
use C4::Context; |
| 25 |
use C4::Log qw( logaction ); |
25 |
use C4::Log qw( logaction ); |
| 26 |
use Koha::Database; |
26 |
use Koha::Database; |
|
|
27 |
use Koha::DateUtils qw( dt_from_string ); |
| 27 |
use Koha::Displays; |
28 |
use Koha::Displays; |
| 28 |
use Koha::DisplayItems; |
29 |
use Koha::DisplayItems; |
| 29 |
use Koha::Library; |
30 |
use Koha::Library; |
|
Lines 73-78
sub display_items {
Link Here
|
| 73 |
display_id => $self->display_id, |
74 |
display_id => $self->display_id, |
| 74 |
itemnumber => $new_item->{itemnumber}, |
75 |
itemnumber => $new_item->{itemnumber}, |
| 75 |
biblionumber => $new_item->{biblionumber}, |
76 |
biblionumber => $new_item->{biblionumber}, |
|
|
77 |
date_added => $new_item->{date_added}, |
| 76 |
date_remove => $new_item->{date_remove}, |
78 |
date_remove => $new_item->{date_remove}, |
| 77 |
} |
79 |
} |
| 78 |
)->store; |
80 |
)->store; |
|
Lines 141-168
Overloaded store method to add action logging.
Link Here
|
| 141 |
|
143 |
|
| 142 |
sub store { |
144 |
sub store { |
| 143 |
my ($self) = @_; |
145 |
my ($self) = @_; |
|
|
146 |
my $action = $self->in_storage ? 'update' : 'create'; |
| 144 |
|
147 |
|
| 145 |
my $action = $self->in_storage ? 'update' : 'create'; |
148 |
if ( $action eq 'create' ) { |
| 146 |
my $original = $self->in_storage ? Koha::Displays->find( $self->display_id ) : undef; |
149 |
if ( !$self->start_date ) { |
| 147 |
|
150 |
my $dt = dt_from_string(); |
| 148 |
my $enabled_before = $original ? $original->enabled : undef; |
151 |
$self->start_date( $dt->ymd ); |
| 149 |
my $enabled_after = $self->enabled; |
152 |
} |
| 150 |
|
153 |
|
| 151 |
my $result = $self->SUPER::store; |
154 |
if ( !$self->end_date && $self->display_days ) { |
|
|
155 |
my $dt = dt_from_string(); |
| 156 |
$dt->add( days => $self->display_days ); |
| 157 |
$self->end_date( $dt->ymd ); |
| 158 |
} |
| 152 |
|
159 |
|
| 153 |
if ( C4::Context->preference("DisplayItemsLog") ) { |
160 |
logaction( "DISPLAYS", "CREATE", $self->display_id, undef, undef, $self ) |
| 154 |
if ( $action eq 'create' ) { |
161 |
if ( C4::Context->preference("DisplayItemsLog") ); |
| 155 |
logaction( "DISPLAYS", "CREATE", $self->display_id, undef, undef, $self ); |
162 |
} else { |
| 156 |
} else { |
163 |
if ( C4::Context->preference("DisplayItemsLog") ) { |
| 157 |
logaction( "DISPLAYS", "MODIFY", $self->display_id, $self, undef, $original ); |
164 |
my $original = $self->in_storage ? Koha::Displays->find( $self->display_id ) : undef; |
|
|
165 |
my $enabled_before = $original ? $original->enabled : undef; |
| 166 |
my $enabled_after = $self->enabled; |
| 158 |
|
167 |
|
| 159 |
if ( defined $enabled_before && defined $enabled_after && $enabled_before != $enabled_after ) { |
168 |
if ( defined $enabled_before && defined $enabled_after && $enabled_before != $enabled_after ) { |
| 160 |
my $enable_action = $enabled_after ? "ENABLE" : "DISABLE"; |
169 |
my $enable_action = $enabled_after ? "ENABLE" : "DISABLE"; |
| 161 |
logaction( "DISPLAYS", $enable_action, $self->display_id, undef, undef, $self ); |
170 |
logaction( "DISPLAYS", $enable_action, $self->display_id, undef, undef, $self ); |
| 162 |
} |
171 |
} |
|
|
172 |
|
| 173 |
logaction( "DISPLAYS", "MODIFY", $self->display_id, $self, undef, $original ); |
| 163 |
} |
174 |
} |
| 164 |
} |
175 |
} |
| 165 |
|
176 |
|
|
|
177 |
my $result = $self->SUPER::store; |
| 166 |
return $result; |
178 |
return $result; |
| 167 |
} |
179 |
} |
| 168 |
|
180 |
|
|
Lines 177-187
Overloaded delete method to add action logging.
Link Here
|
| 177 |
sub delete { |
189 |
sub delete { |
| 178 |
my ($self) = @_; |
190 |
my ($self) = @_; |
| 179 |
|
191 |
|
| 180 |
my $result = $self->SUPER::delete; |
|
|
| 181 |
|
| 182 |
logaction( "DISPLAYS", "DELETE", $self->display_id, undef, undef, $self ) |
192 |
logaction( "DISPLAYS", "DELETE", $self->display_id, undef, undef, $self ) |
| 183 |
if C4::Context->preference("DisplayItemsLog"); |
193 |
if C4::Context->preference("DisplayItemsLog"); |
| 184 |
|
194 |
|
|
|
195 |
my $result = $self->SUPER::delete; |
| 185 |
return $result; |
196 |
return $result; |
| 186 |
} |
197 |
} |
| 187 |
|
198 |
|