diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index 3314f1a02a..a803dec392 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -739,6 +739,7 @@ if ($frameworkcode eq 'FA'){ $userflags = 'fast_cataloging'; } +my $changed_framework = $input->param('changed_framework'); $frameworkcode = &GetFrameworkCode($biblionumber) if ( $biblionumber and not($frameworkcode) and $op ne 'addbiblio' ); @@ -959,7 +960,10 @@ elsif ( $op eq "delete" ) { $biblionumber = ""; } - if ( $record ne -1 ) { + if($changed_framework eq "changed"){ + $record = TransformHtmlToMarc( $input ); + } + elsif( $record ne -1 ) { #FIXME: it's kind of silly to go from MARC::Record to MARC::File::XML and then back again just to fix the encoding eval { my $uxml = $record->as_xml; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt index 8d489d27e2..bcf7568705 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt @@ -280,7 +280,9 @@ function GetZ3950Terms(){ function Changefwk(FwkList) { var f = document.f; - f.op.value = ""; + f.op.value = "[% op %]"; + f.biblionumber.value = "[% biblionumberdata %]"; + f.changed_framework.value = "changed"; f.submit(); } @@ -420,6 +422,7 @@ function Changefwk(FwkList) { +