This fixes the following:
* Remove unneeded year on use Modern::Perl
* Fix occasional freeze when reloading existing record
* Fix encoding for returned record on first save to catalog
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
# along with Koha; if not, see <http://www.gnu.org/licenses>.
#
-use Modern::Perl '2009';
+use Modern::Perl;
use CGI;
use MARC::Record;
// Automatically detect resizes and change the height of the editor and position of modals.
var resizeTimer = null;
- $( window ).resize( function() {
+ function onResize() {
if ( resizeTimer == null ) resizeTimer = setTimeout( function() {
resizeTimer = null;
return -($(this).width() / 2);
}
} );
-
- } ).resize();
+ }
$( '#macro-ui' ).on( 'shown', function() {
if ( macroEditor ) return;
Resources.GetAll().done( function() {
$("#loading").hide();
+ $( window ).resize( onResize ).resize();
editor.focus();
} );
}
my $result = {};
my $inxml = $query->param('POSTDATA');
- print $query->header(-type => 'text/xml');
+ print $query->header(-type => 'text/xml', -charset => 'utf-8');
my $marcflavour = C4::Context->preference('marcflavour') || 'MARC21';
my $record = eval {MARC::Record::new_from_xml( $inxml, "utf8", $marcflavour)};