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

(-)a/catalogue/ISBDdetail.pl (+2 lines)
Lines 36-41 This script needs a biblionumber as parameter Link Here
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(
(-)a/catalogue/MARCdetail.pl (-1 / +3 lines)
Lines 45-55 the items attached to the biblio Link Here
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        =
(-)a/catalogue/detail.pl (+2 lines)
Lines 19-24 Link Here
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 ) {
(-)a/catalogue/labeledMARCdetail.pl (+2 lines)
Lines 20-25 Link Here
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        =
(-)a/catalogue/moredetail.pl (-1 / +2 lines)
Lines 23-28 use strict; Link Here
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