diff --git a/catalogue/ISBDdetail.pl b/catalogue/ISBDdetail.pl index 647ed1affc..5335511da2 100755 --- a/catalogue/ISBDdetail.pl +++ b/catalogue/ISBDdetail.pl @@ -36,6 +36,7 @@ This script needs a biblionumber as parameter use strict; #use warnings; FIXME - Bug 2505 +use HTML::Entities; use C4::Auth; use C4::Context; use C4::Output; @@ -57,6 +58,7 @@ my $query = new CGI; my $dbh = C4::Context->dbh; my $biblionumber = $query->param('biblionumber'); +$biblionumber = HTML::Entities::encode($biblionumber); # open template my ( $template, $loggedinuser, $cookie ) = get_template_and_user( diff --git a/catalogue/MARCdetail.pl b/catalogue/MARCdetail.pl index ccf178e71d..63b41af476 100755 --- a/catalogue/MARCdetail.pl +++ b/catalogue/MARCdetail.pl @@ -45,11 +45,12 @@ the items attached to the biblio use strict; #use warnings; FIXME - Bug 2505 +use CGI qw ( -utf8 ); +use HTML::Entities; use C4::Auth; use C4::Context; use C4::Output; -use CGI qw ( -utf8 ); use C4::Koha; use MARC::Record; use C4::Biblio; @@ -64,6 +65,7 @@ use List::MoreUtils qw( uniq ); my $query = new CGI; my $dbh = C4::Context->dbh; my $biblionumber = $query->param('biblionumber'); +$biblionumber = HTML::Entities::encode($biblionumber); my $frameworkcode = $query->param('frameworkcode'); $frameworkcode = GetFrameworkCode( $biblionumber ) unless ($frameworkcode); my $popup = diff --git a/catalogue/detail.pl b/catalogue/detail.pl index 234f71a4cd..e56127082c 100755 --- a/catalogue/detail.pl +++ b/catalogue/detail.pl @@ -20,6 +20,7 @@ use strict; use warnings; use CGI qw ( -utf8 ); +use HTML::Entities; use C4::Acquisition qw( GetHistory ); use C4::Auth; use C4::Koha; @@ -60,6 +61,7 @@ my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user( ); my $biblionumber = $query->param('biblionumber'); +$biblionumber = HTML::Entities::encode($biblionumber); my $record = GetMarcBiblio($biblionumber); if ( not defined $record ) { diff --git a/catalogue/labeledMARCdetail.pl b/catalogue/labeledMARCdetail.pl index 8ad2d22c8d..7c488e0fe3 100755 --- a/catalogue/labeledMARCdetail.pl +++ b/catalogue/labeledMARCdetail.pl @@ -20,6 +20,7 @@ use strict; use warnings; use CGI qw ( -utf8 ); +use HTML::Entities; use MARC::Record; use C4::Auth; use C4::Context; @@ -34,6 +35,7 @@ use C4::Koha qw( GetFrameworksLoop ); my $query = new CGI; my $dbh = C4::Context->dbh; my $biblionumber = $query->param('biblionumber'); +$biblionumber = HTML::Entities::encode($biblionumber); my $frameworkcode = $query->param('frameworkcode'); $frameworkcode = GetFrameworkCode( $biblionumber ) unless ($frameworkcode); my $popup = diff --git a/catalogue/moredetail.pl b/catalogue/moredetail.pl index 4c64241f84..7362bc0624 100755 --- a/catalogue/moredetail.pl +++ b/catalogue/moredetail.pl @@ -23,6 +23,7 @@ use strict; #use warnings; FIXME - Bug 2505 use C4::Koha; use CGI qw ( -utf8 ); +use HTML::Entities; use C4::Biblio; use C4::Items; use C4::Branch; @@ -65,6 +66,7 @@ my $hidepatronname = C4::Context->preference("HidePatronName"); # get variables my $biblionumber=$query->param('biblionumber'); +$biblionumber = HTML::Entities::encode($biblionumber); my $title=$query->param('title'); my $bi=$query->param('bi'); $bi = $biblionumber unless $bi;