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

(-)a/cataloguing/value_builder/dateaccessioned.pl (-9 / +2 lines)
Lines 20-26 Link Here
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use Modern::Perl;
22
use Modern::Perl;
23
use C4::Biblio qw/GetMarcFromKohaField/;
24
use Koha::DateUtils;
23
use Koha::DateUtils;
25
24
26
my $builder = sub {
25
my $builder = sub {
Lines 29-40 my $builder = sub { Link Here
29
28
30
    my $date = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
29
    my $date = output_pref({ dt => dt_from_string, dateformat => 'iso', dateonly => 1 });
31
30
32
	# find the tag/subfield mapped to items.dateaccessioned
31
    my $res  = <<END_OF_JS;
33
	my ($tag,$subfield) =  GetMarcFromKohaField("items.dateaccessioned","");
32
<script>
34
	my $res  = <<END_OF_JS;
35
<script type="text/javascript">
36
//<![CDATA[
37
//  
38
// from: cataloguing/value_builder/dateaccessioned.pl
33
// from: cataloguing/value_builder/dateaccessioned.pl
39
34
40
function Focus$function_name(event) {
35
function Focus$function_name(event) {
Lines 53-59 function set_to_today( id, force ) { Link Here
53
        \$("#" + id).val("$date");
48
        \$("#" + id).val("$date");
54
    }
49
    }
55
}
50
}
56
//]]>
57
</script>
51
</script>
58
END_OF_JS
52
END_OF_JS
59
    return $res;
53
    return $res;
60
- 

Return to bug 22127