Lines 35-40
Link Here
|
35 |
use Modern::Perl; |
35 |
use Modern::Perl; |
36 |
|
36 |
|
37 |
use Time::HiRes qw(gettimeofday); |
37 |
use Time::HiRes qw(gettimeofday); |
|
|
38 |
use POSIX qw(strftime); |
38 |
use C4::Context; |
39 |
use C4::Context; |
39 |
use C4::Biblio qw( AddBiblio ); # We shouldn't use it |
40 |
use C4::Biblio qw( AddBiblio ); # We shouldn't use it |
40 |
|
41 |
|
Lines 197-202
SKIP: {
Link Here
|
197 |
# It's a varchar(10) |
198 |
# It's a varchar(10) |
198 |
$v = 't_value_x'; |
199 |
$v = 't_value_x'; |
199 |
} |
200 |
} |
|
|
201 |
elsif ( |
202 |
$id =~ m|^tag_952_subfield_w| # replacementpricedate |
203 |
) { |
204 |
$v = strftime("%Y-%m-%d", localtime); |
205 |
} |
206 |
elsif ( |
207 |
$id =~ m|^tag_952_subfield_d| # dateaccessioned |
208 |
) { |
209 |
$v = ""; # The input has been prefilled with %Y-%m-%d already |
210 |
} |
200 |
else { |
211 |
else { |
201 |
$v = 't_value_bib' . $biblionumber; |
212 |
$v = 't_value_bib' . $biblionumber; |
202 |
} |
213 |
} |
203 |
- |
|
|