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

(-)a/cataloguing/editor.pl (-1 / +1 lines)
Lines 18-24 Link Here
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
#
19
#
20
20
21
use Modern::Perl '2009';
21
use Modern::Perl;
22
22
23
use CGI;
23
use CGI;
24
use MARC::Record;
24
use MARC::Record;
(-)a/koha-tmpl/intranet-tmpl/prog/en/includes/cateditor-ui.inc (-3 / +3 lines)
Lines 753-759 require( [ 'koha-backend', 'search', 'macros', 'marc-editor', 'marc-record', 'pr Link Here
753
753
754
        // Automatically detect resizes and change the height of the editor and position of modals.
754
        // Automatically detect resizes and change the height of the editor and position of modals.
755
        var resizeTimer = null;
755
        var resizeTimer = null;
756
        $( window ).resize( function() {
756
        function onResize() {
757
            if ( resizeTimer == null ) resizeTimer = setTimeout( function() {
757
            if ( resizeTimer == null ) resizeTimer = setTimeout( function() {
758
                resizeTimer = null;
758
                resizeTimer = null;
759
759
Lines 770-777 require( [ 'koha-backend', 'search', 'macros', 'marc-editor', 'marc-record', 'pr Link Here
770
                    return -($(this).width() / 2);
770
                    return -($(this).width() / 2);
771
                }
771
                }
772
            } );
772
            } );
773
773
        }
774
        } ).resize();
775
774
776
        $( '#macro-ui' ).on( 'shown', function() {
775
        $( '#macro-ui' ).on( 'shown', function() {
777
            if ( macroEditor ) return;
776
            if ( macroEditor ) return;
Lines 1087-1092 require( [ 'koha-backend', 'search', 'macros', 'marc-editor', 'marc-record', 'pr Link Here
1087
1086
1088
            Resources.GetAll().done( function() {
1087
            Resources.GetAll().done( function() {
1089
                $("#loading").hide();
1088
                $("#loading").hide();
1089
                $( window ).resize( onResize ).resize();
1090
                editor.focus();
1090
                editor.focus();
1091
            } );
1091
            } );
1092
        }
1092
        }
(-)a/svc/new_bib (-2 / +1 lines)
Lines 51-57 sub add_bib { Link Here
51
51
52
    my $result = {};
52
    my $result = {};
53
    my $inxml = $query->param('POSTDATA');
53
    my $inxml = $query->param('POSTDATA');
54
    print $query->header(-type => 'text/xml');
54
    print $query->header(-type => 'text/xml', -charset => 'utf-8');
55
55
56
    my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21';
56
    my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21';
57
    my $record = eval {MARC::Record::new_from_xml( $inxml, "utf8", $marcflavour)};
57
    my $record = eval {MARC::Record::new_from_xml( $inxml, "utf8", $marcflavour)};
58
- 

Return to bug 11559