projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
8366b16
)
new function utf8paramTrim()
author
Wolfram Schneider
<wosch@indexdata.dk>
Tue, 27 Apr 2010 12:34:12 +0000
(14:34 +0200)
committer
Wolfram Schneider
<wosch@indexdata.dk>
Tue, 27 Apr 2010 12:34:12 +0000
(14:34 +0200)
lib/ZOOM/IRSpy/Utils.pm
patch
|
blob
|
history
diff --git
a/lib/ZOOM/IRSpy/Utils.pm
b/lib/ZOOM/IRSpy/Utils.pm
index
1dc25e1
..
233222e
100644
(file)
--- a/
lib/ZOOM/IRSpy/Utils.pm
+++ b/
lib/ZOOM/IRSpy/Utils.pm
@@
-10,6
+10,7
@@
use Scalar::Util;
use Exporter 'import';
our @EXPORT_OK = qw(utf8param
trimField
use Exporter 'import';
our @EXPORT_OK = qw(utf8param
trimField
+ utf8paramTrim
isodate
xml_encode
cql_quote
isodate
xml_encode
cql_quote
@@
-83,7
+84,6
@@
sub utf8param {
return $cooked;
}
return $cooked;
}
-
# Utility functions follow, exported for use of web UI
sub utf8param_apache1 {
my($r, $key, $value) = @_;
# Utility functions follow, exported for use of web UI
sub utf8param_apache1 {
my($r, $key, $value) = @_;
@@
-115,6
+115,17
@@
sub trimField {
return $field;
}
return $field;
}
+# utf8param() with trim
+sub utf8paramTrim {
+ my $result = utf8param(@_);
+
+ if (defined $result) {
+ $result = trimField($result);
+ }
+
+ return $result;
+}
+
# I can't -- just can't, can't, can't -- believe that this function
# isn't provided by one of the core XML modules. But the evidence all
# says that it's not: among other things, XML::Generator and
# I can't -- just can't, can't, can't -- believe that this function
# isn't provided by one of the core XML modules. But the evidence all
# says that it's not: among other things, XML::Generator and