Created MemThisTerm subroutine
authornborisov <nborisov>
Tue, 22 Apr 1997 21:00:15 +0000 (21:00 +0000)
committernborisov <nborisov>
Tue, 22 Apr 1997 21:00:15 +0000 (21:00 +0000)
member.pl

index bd5e8e5..aaa06d1 100644 (file)
--- a/member.pl
+++ b/member.pl
@@ -96,6 +96,15 @@ sub CmpTerm
        "$yr0.$tm0" <=> "$yr1.$tm1";
 }
 
+sub MemThisTerm
+{
+       local($terms) = $_[0];
+       grep(/$TERM/, split(/,/, $terms)) ||
+               ($NEXTTERMMEMBER && grep(/$NEXTTERM/,split(/,/, $terms)));
+}
+
+
+
 sub donewmember
 {
     local($useTERM) = $TERM;