Attachment #54122 for bug #17029

View | Details | Raw Unified | Return to bug 17029
Collapse All | Expand All

Lines 36-41 This script needs a biblionumber as parameter Link Here

(-)a/catalogue/ISBDdetail.pl (+2 lines)
36	use strict;	36	use strict;
37	#use warnings; FIXME - Bug 2505	37	#use warnings; FIXME - Bug 2505
38		38
		39	use HTML::Entities;
39	use C4::Auth;	40	use C4::Auth;
40	use C4::Context;	41	use C4::Context;
41	use C4::Output;	42	use C4::Output;
Lines 56-61 my $query = new CGI; Link Here
56	my $dbh = C4::Context->dbh;	57	my $dbh = C4::Context->dbh;
57		58
58	my $biblionumber = $query->param('biblionumber');	59	my $biblionumber = $query->param('biblionumber');
		60	$biblionumber = HTML::Entities::encode($biblionumber);
59		61
60	# open template	62	# open template
61	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(	63	my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Lines 45-55 the items attached to the biblio Link Here

(-)a/catalogue/MARCdetail.pl (-1 / +3 lines)
45		45
46	use strict;	46	use strict;
47	#use warnings; FIXME - Bug 2505	47	#use warnings; FIXME - Bug 2505
		48	use CGI qw ( -utf8 );
		49	use HTML::Entities;
48		50
49	use C4::Auth;	51	use C4::Auth;
50	use C4::Context;	52	use C4::Context;
51	use C4::Output;	53	use C4::Output;
52	use CGI qw ( -utf8 );
53	use C4::Koha;	54	use C4::Koha;
54	use MARC::Record;	55	use MARC::Record;
55	use C4::Biblio;	56	use C4::Biblio;
Lines 64-69 use List::MoreUtils qw( uniq ); Link Here
64	my $query = new CGI;	65	my $query = new CGI;
65	my $dbh = C4::Context->dbh;	66	my $dbh = C4::Context->dbh;
66	my $biblionumber = $query->param('biblionumber');	67	my $biblionumber = $query->param('biblionumber');
		68	$biblionumber = HTML::Entities::encode($biblionumber);
67	my $frameworkcode = $query->param('frameworkcode');	69	my $frameworkcode = $query->param('frameworkcode');
68	$frameworkcode = GetFrameworkCode( $biblionumber ) unless ($frameworkcode);	70	$frameworkcode = GetFrameworkCode( $biblionumber ) unless ($frameworkcode);
69	my $popup =	71	my $popup =

Lines 19-24 Link Here

(-)a/catalogue/detail.pl (+2 lines)
19	use Modern::Perl;	19	use Modern::Perl;
20		20
21	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
		22	use HTML::Entities;
22	use C4::Acquisition qw( GetHistory );	23	use C4::Acquisition qw( GetHistory );
23	use C4::Auth;	24	use C4::Auth;
24	use C4::Koha;	25	use C4::Koha;
Lines 58-63 my ( $template, $borrowernumber, $cookie, $flags ) = get_template_and_user( Link Here
58	);	59	);
59		60
60	my $biblionumber = $query->param('biblionumber');	61	my $biblionumber = $query->param('biblionumber');
		62	$biblionumber = HTML::Entities::encode($biblionumber);
61	my $record = GetMarcBiblio($biblionumber);	63	my $record = GetMarcBiblio($biblionumber);
62		64
63	if ( not defined $record ) {	65	if ( not defined $record ) {

Lines 20-25 Link Here

(-)a/catalogue/labeledMARCdetail.pl (+2 lines)
20	use strict;	20	use strict;
21	use warnings;	21	use warnings;
22	use CGI qw ( -utf8 );	22	use CGI qw ( -utf8 );
		23	use HTML::Entities;
23	use MARC::Record;	24	use MARC::Record;
24	use C4::Auth;	25	use C4::Auth;
25	use C4::Context;	26	use C4::Context;
Lines 34-39 use C4::Koha qw( GetFrameworksLoop ); Link Here
34	my $query = new CGI;	35	my $query = new CGI;
35	my $dbh = C4::Context->dbh;	36	my $dbh = C4::Context->dbh;
36	my $biblionumber = $query->param('biblionumber');	37	my $biblionumber = $query->param('biblionumber');
		38	$biblionumber = HTML::Entities::encode($biblionumber);
37	my $frameworkcode = $query->param('frameworkcode');	39	my $frameworkcode = $query->param('frameworkcode');
38	$frameworkcode = GetFrameworkCode( $biblionumber ) unless ($frameworkcode);	40	$frameworkcode = GetFrameworkCode( $biblionumber ) unless ($frameworkcode);
39	my $popup =	41	my $popup =

Lines 23-28 use strict; Link Here

(-)a/catalogue/moredetail.pl (-1 / +2 lines)
23	#use warnings; FIXME - Bug 2505	23	#use warnings; FIXME - Bug 2505
24	use C4::Koha;	24	use C4::Koha;
25	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
		26	use HTML::Entities;
26	use C4::Biblio;	27	use C4::Biblio;
27	use C4::Items;	28	use C4::Items;
28	use C4::Branch;	29	use C4::Branch;
Lines 66-71 my $hidepatronname = C4::Context->preference("HidePatronName"); Link Here
66	# get variables	67	# get variables
67		68
68	my $biblionumber=$query->param('biblionumber');	69	my $biblionumber=$query->param('biblionumber');
		70	$biblionumber = HTML::Entities::encode($biblionumber);
69	my $title=$query->param('title');	71	my $title=$query->param('title');
70	my $bi=$query->param('bi');	72	my $bi=$query->param('bi');
71	$bi = $biblionumber unless $bi;	73	$bi = $biblionumber unless $bi;
72	-

Return to bug 17029