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

(-)a/cataloguing/value_builder/dateaccessioned.pl (-4 / +2 lines)
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
- 

Return to bug 13813