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

(-)a/cataloguing/value_builder/marc21_field_008.pl (-2 / +6 lines)
Lines 36-41 my $builder = sub { Link Here
36
    my $lang = C4::Context->preference('DefaultLanguageField008' );
36
    my $lang = C4::Context->preference('DefaultLanguageField008' );
37
    $lang = "eng" unless $lang;
37
    $lang = "eng" unless $lang;
38
    $lang = pack("A3", $lang);
38
    $lang = pack("A3", $lang);
39
    my $country = C4::Context->preference('DefaultCountryField008') // "xxu";
40
    $country = pack("A3", $country);
39
41
40
    my $function_name = $params->{id};
42
    my $function_name = $params->{id};
41
    my $dateentered = date_entered();
43
    my $dateentered = date_entered();
Lines 47-53 function Focus$function_name(event) { Link Here
47
    if ( document.getElementById(event.data.id).value ) {
49
    if ( document.getElementById(event.data.id).value ) {
48
	}
50
	}
49
	else {
51
	else {
50
        document.getElementById(event.data.id).value='$dateentered' + 'b        xxu||||| |||| 00| 0 $lang d';
52
        document.getElementById(event.data.id).value='$dateentered' + 'b        $country||||| |||| 00| 0 $lang d';
51
	}
53
	}
52
    return 1;
54
    return 1;
53
}
55
}
Lines 77-82 my $launcher = sub { Link Here
77
    my $lang = C4::Context->preference('DefaultLanguageField008' );
79
    my $lang = C4::Context->preference('DefaultLanguageField008' );
78
    $lang = "eng" unless $lang;
80
    $lang = "eng" unless $lang;
79
    $lang = pack("A3", $lang);
81
    $lang = pack("A3", $lang);
82
    my $country = C4::Context->preference('DefaultCountryField008') // "xxu";
83
    $country = pack("A3", $country);
80
84
81
    my $index   = $input->param('index');
85
    my $index   = $input->param('index');
82
    my $result  = $input->param('result');
86
    my $result  = $input->param('result');
Lines 142-148 my $launcher = sub { Link Here
142
    );
146
    );
143
147
144
    my $dateentered = date_entered();
148
    my $dateentered = date_entered();
145
    $result = "$dateentered" . "b        xxu||||| |||| 00| 0 $lang d" unless $result;
149
    $result = "$dateentered" . "b        $country||||| |||| 00| 0 $lang d" unless $result;
146
    my $errorXml = '';
150
    my $errorXml = '';
147
    # Check if the xml, xsd exists and is validated
151
    # Check if the xml, xsd exists and is validated
148
    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . $template->{lang} . '/data/';
152
    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . $template->{lang} . '/data/';
(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
Lines 123-128 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here
123
('decreaseLoanHighHoldsIgnoreStatuses', '', 'damaged|itemlost|notforloan|withdrawn', "Ignore items with these statuses for dynamic high holds checking", 'Choice'),
123
('decreaseLoanHighHoldsIgnoreStatuses', '', 'damaged|itemlost|notforloan|withdrawn', "Ignore items with these statuses for dynamic high holds checking", 'Choice'),
124
('decreaseLoanHighHoldsValue',NULL,'','Specifies a threshold for the minimum number of holds needed to trigger a reduction in loan duration (used with decreaseLoanHighHolds)','Integer'),
124
('decreaseLoanHighHoldsValue',NULL,'','Specifies a threshold for the minimum number of holds needed to trigger a reduction in loan duration (used with decreaseLoanHighHolds)','Integer'),
125
('DefaultClassificationSource','ddc',NULL,'Default classification scheme used by the collection. E.g., Dewey, LCC, etc.','ClassSources'),
125
('DefaultClassificationSource','ddc',NULL,'Default classification scheme used by the collection. E.g., Dewey, LCC, etc.','ClassSources'),
126
('DefaultCountryField008','','','Fill in the default country code for field 008 Range 15-17 - Place of publication, production, or execution. See <a href=\"http://www.loc.gov/marc/countries/countries_code.html\">MARC Code List for Countries</a>','Free'),
126
('DefaultLanguageField008','','','Fill in the default language for field 008 Range 35-37 of MARC21 records (e.g. eng, nor, ger, see <a href=\"http://www.loc.gov/marc/languages/language_code.html\">MARC Code List for Languages</a>)','Free'),
127
('DefaultLanguageField008','','','Fill in the default language for field 008 Range 35-37 of MARC21 records (e.g. eng, nor, ger, see <a href=\"http://www.loc.gov/marc/languages/language_code.html\">MARC Code List for Languages</a>)','Free'),
127
('DefaultLongOverdueChargeValue', '', NULL, "Charge a lost item to the borrower's account when the LOST value of the item changes to n.", 'integer'),
128
('DefaultLongOverdueChargeValue', '', NULL, "Charge a lost item to the borrower's account when the LOST value of the item changes to n.", 'integer'),
128
('DefaultLongOverdueDays', '', NULL, "Set the LOST value of an item when the item has been overdue for more than n days.", 'integer'),
129
('DefaultLongOverdueDays', '', NULL, "Set the LOST value of an item when the item has been overdue for more than n days.", 'integer'),
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref (-1 / +4 lines)
Lines 43-48 Cataloging: Link Here
43
            - Fill in the default language for field 008 Range 35-37 of MARC21 records (e.g. eng, nor, ger, see <a href="http://www.loc.gov/marc/languages/language_code.html">MARC Code List for Languages</a>)
43
            - Fill in the default language for field 008 Range 35-37 of MARC21 records (e.g. eng, nor, ger, see <a href="http://www.loc.gov/marc/languages/language_code.html">MARC Code List for Languages</a>)
44
            - pref: DefaultLanguageField008
44
            - pref: DefaultLanguageField008
45
            - " Empty defaults to eng."
45
            - " Empty defaults to eng."
46
        -
47
            - Fill in the default country code for field 008 Range 15-17 - Place of publication, production, or execution. See <a href"http://www.loc.gov/marc/countries/countries_code.html\">MARC Code List for Countries</a>
48
            - pref: DefaultCountryField008
49
            - " Empty defaults to xxu for United States."
46
        -
50
        -
47
            - Interpret and store MARC records in the
51
            - Interpret and store MARC records in the
48
            - pref: marcflavour
52
            - pref: marcflavour
49
- 

Return to bug 13912