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

(-)a/members/member.pl (-2 / +1 lines)
Lines 197-199 $template->param( Link Here
197
            );
197
            );
198
198
199
output_html_with_http_headers $input, $cookie, $template->output;
199
output_html_with_http_headers $input, $cookie, $template->output;
200
- 
200
print $member;
201
--
202
C4/ItemType.pm    |    4 ++--
201
C4/ItemType.pm    |    4 ++--
203
C4/Search.pm      |    1 +
202
C4/Search.pm      |    1 +
204
C4/Templates.pm   |   16 +++++++++++++---
203
C4/Templates.pm   |   16 +++++++++++++---
205
members/member.pl |    2 +-
204
members/member.pl |    2 +-
206
4 files changed, 17 insertions(+), 6 deletions(-)
205
4 files changed, 17 insertions(+), 6 deletions(-)
(-)a/C4/ItemType.pm (-2 / +2 lines)
Lines 81-87 sub all { Link Here
81
    for ( @{$dbh->selectall_arrayref(
81
    for ( @{$dbh->selectall_arrayref(
82
        "SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} )
82
        "SELECT * FROM itemtypes ORDER BY description", { Slice => {} })} )
83
    {
83
    {
84
        utf8::encode($_->{description});
84
        utf8::upgrade($_->{description});
85
        push @itypes, $class->new($_);
85
        push @itypes, $class->new($_);
86
    }
86
    }
87
    return @itypes;
87
    return @itypes;
Lines 105-111 sub get { Link Here
105
        "SELECT * FROM itemtypes WHERE itemtype = ?", undef, $itemtype
105
        "SELECT * FROM itemtypes WHERE itemtype = ?", undef, $itemtype
106
    );
106
    );
107
    if ( $data->{description} ) {
107
    if ( $data->{description} ) {
108
        utf8::encode($data->{description});
108
        utf8::upgrade($data->{description});
109
    }
109
    }
110
    return $class->new($data);
110
    return $class->new($data);
111
}
111
}
(-)a/C4/Search.pm (+1 lines)
Lines 574-579 sub getRecords { Link Here
574
                            {
574
                            {
575
575
576
# Sanitize the link value : parenthesis, question and exclamation mark will cause errors with CCL
576
# Sanitize the link value : parenthesis, question and exclamation mark will cause errors with CCL
577
								utf8::decode($one_facet);
577
                                my $facet_link_value = $one_facet;
578
                                my $facet_link_value = $one_facet;
578
                                $facet_link_value =~ s/[()!?¡¿؟]/ /g;
579
                                $facet_link_value =~ s/[()!?¡¿؟]/ /g;
579
580
(-)a/C4/Templates.pm (-3 / +13 lines)
Lines 124-130 sub output { Link Here
124
            utf8_hashref($vars->{$k});
124
            utf8_hashref($vars->{$k});
125
        }
125
        }
126
        else {
126
        else {
127
            utf8::encode($vars->{$k}) if utf8::is_utf8($vars->{$k});
127
			if(utf8::is_utf8($vars->{$k})){
128
				utf8::upgrade($vars->{$k});
129
			}
130
			else{
131
			## this should not be needed (ideally :-)
132
			## this is included because, somewhere the input
133
			## is not getting utf8-decoded 
134
				utf8::decode($vars->{$k});
135
			}
128
        }
136
        }
129
    }
137
    }
130
    my $data;
138
    my $data;
Lines 145-151 sub utf8_arrayref { Link Here
145
            utf8_hashref($element);
153
            utf8_hashref($element);
146
            next;
154
            next;
147
        }
155
        }
148
        utf8::encode($element) if utf8::is_utf8($element);
156
157
		utf8::upgrade($element) if utf8::is_utf8($element);
149
    }        
158
    }        
150
}         
159
}         
151
160
Lines 160-166 sub utf8_hashref { Link Here
160
            utf8_hashref($hashref->{$key});
169
            utf8_hashref($hashref->{$key});
161
            next;
170
            next;
162
        }
171
        }
163
        utf8::encode($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
172
173
		utf8::upgrade($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
164
    }
174
    }
165
}
175
}
166
        
176
        
(-)a/members/member.pl (-3 / +1 lines)
Lines 85-90 if ($AddPatronLists=~/code/){ Link Here
85
}  
85
}  
86
86
87
my $member=$input->param('member') || '';
87
my $member=$input->param('member') || '';
88
88
my $orderbyparams=$input->param('orderby') || '';
89
my $orderbyparams=$input->param('orderby') || '';
89
my @orderby;
90
my @orderby;
90
if ($orderbyparams){
91
if ($orderbyparams){
Lines 197-200 $template->param( Link Here
197
            );
198
            );
198
199
199
output_html_with_http_headers $input, $cookie, $template->output;
200
output_html_with_http_headers $input, $cookie, $template->output;
200
print $member;
201
- 
202
--
203
C4/Templates.pm   |    2 --
201
C4/Templates.pm   |    2 --
204
members/member.pl |    1 -
202
members/member.pl |    1 -
205
2 files changed, 0 insertions(+), 3 deletions(-)
203
2 files changed, 0 insertions(+), 3 deletions(-)
(-)a/C4/Templates.pm (-2 lines)
Lines 153-159 sub utf8_arrayref { Link Here
153
            utf8_hashref($element);
153
            utf8_hashref($element);
154
            next;
154
            next;
155
        }
155
        }
156
157
		utf8::upgrade($element) if utf8::is_utf8($element);
156
		utf8::upgrade($element) if utf8::is_utf8($element);
158
    }        
157
    }        
159
}         
158
}         
Lines 169-175 sub utf8_hashref { Link Here
169
            utf8_hashref($hashref->{$key});
168
            utf8_hashref($hashref->{$key});
170
            next;
169
            next;
171
        }
170
        }
172
173
		utf8::upgrade($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
171
		utf8::upgrade($hashref->{$key}) if utf8::is_utf8($hashref->{$key});
174
    }
172
    }
175
}
173
}
(-)a/members/member.pl (-2 lines)
Lines 85-91 if ($AddPatronLists=~/code/){ Link Here
85
}  
85
}  
86
86
87
my $member=$input->param('member') || '';
87
my $member=$input->param('member') || '';
88
89
my $orderbyparams=$input->param('orderby') || '';
88
my $orderbyparams=$input->param('orderby') || '';
90
my @orderby;
89
my @orderby;
91
if ($orderbyparams){
90
if ($orderbyparams){
92
- 

Return to bug 6554