handle "pop" link variants in text only subs formatting

diff --git a/site/cgi-bin/modules/BSE/SubscriptionType.pm b/site/cgi-bin/modules/BSE/SubscriptionType.pm
index e303475cde8d121a93cbf52311a8b5a20fe23465..6ca41c6711ffa27524bc3c16d3fca419d8f9670a 100644 (file)
--- a/site/cgi-bin/modules/BSE/SubscriptionType.pm
+++ b/site/cgi-bin/modules/BSE/SubscriptionType.pm
@@ -5,7 +5,7 @@ use Squirrel::Row;
 use vars qw/@ISA/;
 @ISA = qw/Squirrel::Row/;
 
-our $VERSION = "1.004";
+our $VERSION = "1.005";
 
 sub columns {
   return qw/id name title description frequency keyword archive 
@@ -214,7 +214,7 @@ sub _format_body {
   my $body = $article->{body};
   my @urls;
   my $url_index = 1;
-  while ($body =~ s#(doclink|link)\[([^\]\[]+)\]#_any_link($cfg, \@urls, $1, $2, \$url_index)#ie) {
+  while ($body =~ s#(?:pop)?(doclink|link)\[([^\]\[]+)\]#_any_link($cfg, \@urls, $1, $2, \$url_index)#ie) {
   }
 
   $gen->remove_block('Articles', [], \$body);