projects
/
irspy-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Only select those irspy:xxx entries newer than the status/ping date. Still need
[irspy-moved-to-github.git]
/
lib
/
ZOOM
/
IRSpy
/
Utils.pm
diff --git
a/lib/ZOOM/IRSpy/Utils.pm
b/lib/ZOOM/IRSpy/Utils.pm
index
071e226
..
371a7de
100644
(file)
--- a/
lib/ZOOM/IRSpy/Utils.pm
+++ b/
lib/ZOOM/IRSpy/Utils.pm
@@
-1,4
+1,4
@@
-# $Id: Utils.pm,v 1.18 2006-11-30 12:02:26 mike Exp $
+# $Id: Utils.pm,v 1.20 2006-12-11 13:58:17 sondberg Exp $
package ZOOM::IRSpy::Utils;
package ZOOM::IRSpy::Utils;
@@
-36,7
+36,13
@@
sub isodate {
# Template::Plugin both roll their own. So I will do likewise. D'oh!
#
sub xml_encode {
# Template::Plugin both roll their own. So I will do likewise. D'oh!
#
sub xml_encode {
- my($text, $fallback) = @_;
+ my($text, $fallback, $opts) = @_;
+ if (!defined $opts && ref $fallback) {
+ # The second and third arguments are both optional
+ $opts = $fallback;
+ $fallback = undef;
+ }
+ $opts = {} if !defined $opts;
$text = $fallback if !defined $text;
use Carp;
$text = $fallback if !defined $text;
use Carp;
@@
-49,6
+55,8
@@
sub xml_encode {
# Internet Explorer can't display ' (!) so don't create it
#$text =~ s/['']/'/g;
$text =~ s/[""]/"/g;
# Internet Explorer can't display ' (!) so don't create it
#$text =~ s/['']/'/g;
$text =~ s/[""]/"/g;
+ $text =~ s/ / /g if $opts->{nbsp};
+
return $text;
}
return $text;
}
@@
-277,7
+285,11
@@
sub inheritance_tree {
}
}
-#print "Loaded ZOOM::IRSpy::Utils.pm";
+# This function is made available in xslt using the register_function call
+sub xslt_strcmp {
+ my ($arg1, $arg2) = @_;
+ return ($arg1->to_literal()) cmp ($arg2->to_literal());
+}
1;
1;