+ my $xmlrecord = $record->as_xml(C4::Context->preference('marcflavour'));
+ my $sysxml = "";
+ foreach my $syspref ( qw/OPACURLOpenInNewWindow DisplayOPACiconsXSLT URLLinkText/ ) {
+ if (C4::Context->preference( $syspref ) ){
+ $sysxml .= "<syspref name=\"$syspref\">" .
+ C4::Context->preference( $syspref ) .
+ "</syspref>\n";
+ }
+ }
+ $sysxml = "<sysprefs>\n".$sysxml."</sysprefs>\n" if length($sysxml);
+ $xmlrecord =~ s/\<\/record\>/$itemsxml$sysxml\<\/record\>/;
+ $xmlrecord =~ s/\& /\&\; /;
+