# along with Koha; if not, see <http://www.gnu.org/licenses>.
use Modern::Perl;
use Encode qw(decode);
use C4::Context;
use C4::Koha qw( xml_escape );
-