projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rt 4.2.16
[freeside.git]
/
rt
/
lib
/
RT
/
Pod
/
HTMLBatch.pm
diff --git
a/rt/lib/RT/Pod/HTMLBatch.pm
b/rt/lib/RT/Pod/HTMLBatch.pm
index
f41a43a
..
1ad5f81
100644
(file)
--- a/
rt/lib/RT/Pod/HTMLBatch.pm
+++ b/
rt/lib/RT/Pod/HTMLBatch.pm
@@
-2,7
+2,7
@@
#
# COPYRIGHT:
#
#
# COPYRIGHT:
#
-# This software is Copyright (c) 1996-201
3
Best Practical Solutions, LLC
+# This software is Copyright (c) 1996-201
9
Best Practical Solutions, LLC
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
# <sales@bestpractical.com>
#
# (Except where explicitly superseded by other copyright notices)
@@
-84,7
+84,7
@@
sub classify {
my %page = @_;
local $_ = $page{name};
return 1 if /^(README|UPGRADING)/;
my %page = @_;
local $_ = $page{name};
return 1 if /^(README|UPGRADING)/;
- return 1 if
$_ eq "RT_Config"
;
+ return 1 if
/^RT\w*?_Config$/
;
return 1 if $_ eq "web_deployment";
return 1 if $page{infile} =~ m{^configure(\.ac)?$};
return 0;
return 1 if $_ eq "web_deployment";
return 1 if $page{infile} =~ m{^configure(\.ac)?$};
return 0;
@@
-176,4
+176,9
@@
sub esc {
Pod::Simple::HTMLBatch::esc(@_);
}
Pod::Simple::HTMLBatch::esc(@_);
}
+sub found {
+ my ($self, $module) = @_;
+ return grep { $_->[0] eq $module } @{$self->_contents};
+}
+
1;
1;