|
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 |
- |
|
|