|
Lines 18-24
Link Here
|
| 18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
18 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
use Koha::DateUtils; |
| 22 |
no warnings 'redefine'; |
22 |
no warnings 'redefine'; |
| 23 |
|
23 |
|
| 24 |
=head1 |
24 |
=head1 |
|
Lines 51-58
sub plugin_javascript {
Link Here
|
| 51 |
# my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; |
51 |
# my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_; |
| 52 |
my $function_name = "dateaccessioned".(int(rand(100000))+1); |
52 |
my $function_name = "dateaccessioned".(int(rand(100000))+1); |
| 53 |
|
53 |
|
| 54 |
require C4::Dates; |
54 |
my $date = output_pref({ dt => DateTime->now(), dateformat => 'iso', dateonly => 1 }); |
| 55 |
my $date = C4::Dates->today('iso'); |
|
|
| 56 |
|
55 |
|
| 57 |
# find the tag/subfield mapped to items.dateaccessioned |
56 |
# find the tag/subfield mapped to items.dateaccessioned |
| 58 |
my ($tag,$subfield) = GetMarcFromKohaField("items.dateaccessioned",""); |
57 |
my ($tag,$subfield) = GetMarcFromKohaField("items.dateaccessioned",""); |
| 59 |
- |
|
|