Bug 6629 : Follow up, sanitising in a couple more places
Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com> Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
This commit is contained in:
parent
948f65344e
commit
af205cb50a
1 changed files with 2 additions and 0 deletions
|
@ -229,6 +229,7 @@ elsif ( $step && $step == 3 ) {
|
|||
# Framework Selection is achieved through checking boxes.
|
||||
my $langchoice = $query->param('fwklanguage');
|
||||
$langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);
|
||||
$langchoice =~ s/[^a-zA-Z_-]*//g;
|
||||
my $marcflavour = $query->param('marcflavour');
|
||||
if ($marcflavour){
|
||||
$installer->set_marcflavour_syspref($marcflavour);
|
||||
|
@ -266,6 +267,7 @@ elsif ( $step && $step == 3 ) {
|
|||
# Marcflavour Selection is achieved through radiobuttons.
|
||||
my $langchoice = $query->param('fwklanguage');
|
||||
$langchoice = $query->cookie('KohaOpacLanguage') unless ($langchoice);
|
||||
$langchoice =~ s/[^a-zA-Z_-]*//g;
|
||||
my $dir =
|
||||
C4::Context->config('intranetdir') . "/installer/data/$info{dbms}/$langchoice/marcflavour";
|
||||
unless (opendir( MYDIR, $dir )) {
|
||||
|
|
Loading…
Reference in a new issue