diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index f84c2e483b..f99ba2ab2e 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -731,6 +731,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' ); @@ -951,7 +952,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 415c65f12e..e45752057a 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/cataloguing/addbiblio.tt @@ -241,7 +241,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(); } @@ -428,6 +430,7 @@ function Changefwk(FwkList) { +