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

(-)a/cataloguing/value_builder/marc21_field_008.pl (-3 / +10 lines)
Lines 47-52 sub plugin_parameters { Link Here
47
}
47
}
48
48
49
sub plugin_javascript {
49
sub plugin_javascript {
50
    my $lang = C4::Context->preference('DefaultLanguageField008' );
51
    $lang = "eng" unless $lang;
52
    $lang = pack("A3", $lang);
53
50
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
54
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
51
    my $function_name = $field_number;
55
    my $function_name = $field_number;
52
    my $res           = "
56
    my $res           = "
Lines 54-64 sub plugin_javascript { Link Here
54
//<![CDATA[
58
//<![CDATA[
55
59
56
function Focus$function_name(subfield_managed) {
60
function Focus$function_name(subfield_managed) {
57
58
	if ( document.getElementById(\"$field_number\").value ) {
61
	if ( document.getElementById(\"$field_number\").value ) {
59
	}
62
	}
60
	else {
63
	else {
61
		document.getElementById(\"$field_number\").value='$dateentered' + 'b        xxu||||| |||| 00| 0 eng d';
64
		document.getElementById(\"$field_number\").value='$dateentered' + 'b        xxu||||| |||| 00| 0 $lang d';
62
	}
65
	}
63
    return 1;
66
    return 1;
64
}
67
}
Lines 80-85 function Clic$function_name(i) { Link Here
80
}
83
}
81
84
82
sub plugin {
85
sub plugin {
86
    my $lang = C4::Context->preference('DefaultLanguageField008' );
87
    $lang = "eng" unless $lang;
88
    $lang = pack("A3", $lang);
89
83
    my ($input) = @_;
90
    my ($input) = @_;
84
    my $index   = $input->param('index');
91
    my $index   = $input->param('index');
85
    my $result  = $input->param('result');
92
    my $result  = $input->param('result');
Lines 96-102 sub plugin { Link Here
96
        }
103
        }
97
    );
104
    );
98
105
99
    $result = "$dateentered" . "b        xxu||||| |||| 00| 0 eng d" unless $result;
106
    $result = "$dateentered" . "b        xxu||||| |||| 00| 0 $lang d" unless $result;
100
    my $errorXml = '';
107
    my $errorXml = '';
101
    # Check if the xml, xsd exists and is validated
108
    # Check if the xml, xsd exists and is validated
102
    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . $template->{lang} . '/modules/cataloguing/value_builder/';
109
    my $dir = C4::Context->config('intrahtdocs') . '/prog/' . $template->{lang} . '/modules/cataloguing/value_builder/';
(-)a/cataloguing/value_builder/normarc_field_008.pl (-2 / +8 lines)
Lines 44-49 sub plugin_parameters { Link Here
44
}
44
}
45
45
46
sub plugin_javascript {
46
sub plugin_javascript {
47
    my $lang = C4::Context->preference('DefaultLanguageField008' );
48
    $lang = "eng" unless $lang;
49
    $lang = pack("A3", $lang);
47
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
50
    my ($dbh, $record, $tagslib, $field_number, $tabloop) = @_;
48
    my $function_name = $field_number;
51
    my $function_name = $field_number;
49
    my $res           = "
52
    my $res           = "
Lines 55-61 function Focus$function_name(subfield_managed) { Link Here
55
	if ( document.getElementById(\"$field_number\").value ) {
58
	if ( document.getElementById(\"$field_number\").value ) {
56
	}
59
	}
57
	else {
60
	else {
58
		document.getElementById(\"$field_number\").value='$dateentered' + 't        xxu||||| |||| 00| 0 eng d';
61
		document.getElementById(\"$field_number\").value='$dateentered' + 't        xxu||||| |||| 00| 0 $lang d';
59
	}
62
	}
60
    return 1;
63
    return 1;
61
}
64
}
Lines 78-83 function Clic$function_name(i) { Link Here
78
}
81
}
79
82
80
sub plugin {
83
sub plugin {
84
    my $lang = C4::Context->preference('DefaultLanguageField008' );
85
    $lang = "eng" unless $lang;
86
    $lang = pack("A3", $lang);
81
    my ($input) = @_;
87
    my ($input) = @_;
82
    my $index   = $input->param('index');
88
    my $index   = $input->param('index');
83
    my $result  = $input->param('result');
89
    my $result  = $input->param('result');
Lines 95-101 sub plugin { Link Here
95
    );
101
    );
96
102
97
    #	$result = "      t        xxu           00  0 eng d" unless $result;
103
    #	$result = "      t        xxu           00  0 eng d" unless $result;
98
    $result = "$dateentered" . "t        xxu||||| |||| 00| 0 eng d" unless $result;
104
    $result = "$dateentered" . "t        xxu||||| |||| 00| 0 $lang d" unless $result;
99
    my $f1    = substr($result, 0,  6);
105
    my $f1    = substr($result, 0,  6);
100
    my $f6    = substr($result, 6,  1);
106
    my $f6    = substr($result, 6,  1);
101
    my $f710  = substr($result, 7,  4);
107
    my $f710  = substr($result, 7,  4);
(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
Lines 365-367 INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES ( Link Here
365
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacBrowseResults','1','Disable/enable browsing and paging search results from the OPAC detail page.',NULL,'YesNo');
365
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('OpacBrowseResults','1','Disable/enable browsing and paging search results from the OPAC detail page.',NULL,'YesNo');
366
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');
366
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('SvcMaxReportRows','10','Maximum number of rows to return via the report web service.',NULL,'Integer');
367
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights','Choice');
367
INSERT INTO systempreferences (variable,value,options,explanation,type) VALUES ('ReservesControlBranch','PatronLibrary','ItemHomeLibrary|PatronLibrary','Branch checked for members reservations rights','Choice');
368
INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('DefaultLanguageField008','','Fill in the default language for field 008 Range 35-37 (e.g. eng, nor, ger, see <a href="http://www.loc.gov/marc/languages/language_code.html">MARC Code List for Languages</a>)','','Free');
(-)a/installer/data/mysql/updatedatabase.pl (+5 lines)
Lines 5308-5313 if (C4::Context->preference("Version") < TransformToNum($DBversion)) { Link Here
5308
    SetVersion ($DBversion);
5308
    SetVersion ($DBversion);
5309
}
5309
}
5310
5310
5311
$DBversion ="XXX";
5312
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
5313
    $dbh->do("INSERT INTO systempreferences (variable,value,explanation,options,type) VALUES('DefaultLanguageField008','','Fill in the default language for field 008 Range 35-37 (e.g. eng, nor, ger, see www.loc.gov/marc/languages/language_code.html)','','Free');");
5314
    print "Upgrade to $DBversion done (Add system preference DefaultLanguageField008))\n";
5315
5311
=head1 FUNCTIONS
5316
=head1 FUNCTIONS
5312
5317
5313
=head2 TableExists($table)
5318
=head2 TableExists($table)
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/cataloguing.pref (-1 / +4 lines)
Lines 40-45 Cataloging: Link Here
40
        -
40
        -
41
    Record Structure:
41
    Record Structure:
42
        -
42
        -
43
            - Fill in the default language for field 008 Range 35-37 (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
45
            - " Empty defaults to eng."
46
        -
43
            - Interpret and store MARC records in the
47
            - Interpret and store MARC records in the
44
            - pref: marcflavour
48
            - pref: marcflavour
45
              choices:
49
              choices:
46
- 

Return to bug 7601