Annotation of db/prgsrc/cw.pl, revision 1.1
1.1 ! roma7 1:
! 2: use locale;
! 3: use DBI;
! 4: use POSIX qw (locale_h);
! 5:
! 6: sub getflag
! 7: {
! 8:
! 9: my $w=$_[0]->quote($_[1]);
! 10: my $z= $_[0] -> prepare("select flag, id from nf where word=$w");
! 11: $z -> execute;
! 12: @res=$z->fetchrow();
! 13: }
! 14:
! 15:
! 16:
! 17: sub checkword
! 18: {
! 19:
! 20: my ($dbh,$u)=($_[0],uc $_[1]);
! 21: my @list;
! 22:
! 23: $_=$u;
! 24: if ((s/óñ$//) && (m/$/))
! 25: { ($fl,$id)=getflag($dbh,$_);
! 26: if ($fl && ($fl=~m/C/)){push @list, $id}}
! 27: $_=$u;
! 28: if ((s/ì$/ôø/) && (m/[^úó]ôø$/))
! 29: { ($fl,$id)=getflag($dbh,$_);
! 30: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 31: $_=$u;
! 32: if ((s/ìá$/ôø/) && (m/[^ó]ôø$/))
! 33: { ($fl,$id)=getflag($dbh,$_);
! 34: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 35: $_=$u;
! 36: if ((s/ìï$/ôø/) && (m/[^ó]ôø$/))
! 37: { ($fl,$id)=getflag($dbh,$_);
! 38: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 39: $_=$u;
! 40: if ((s/ìé$/ôø/) && (m/[^ó]ôø$/))
! 41: { ($fl,$id)=getflag($dbh,$_);
! 42: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 43: $_=$u;
! 44: if ((s/ìóñ$/ôøóñ/) && (m/[^úó]ôøóñ$/))
! 45: { ($fl,$id)=getflag($dbh,$_);
! 46: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 47: $_=$u;
! 48: if ((s/ìáóø$/ôøóñ/) && (m/[^ó]ôøóñ$/))
! 49: { ($fl,$id)=getflag($dbh,$_);
! 50: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 51: $_=$u;
! 52: if ((s/ìïóø$/ôøóñ/) && (m/[^ó]ôøóñ$/))
! 53: { ($fl,$id)=getflag($dbh,$_);
! 54: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 55: $_=$u;
! 56: if ((s/ìéóø$/ôøóñ/) && (m/[^ó]ôøóñ$/))
! 57: { ($fl,$id)=getflag($dbh,$_);
! 58: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 59: $_=$u;
! 60: if ((s/ì$/óôø/) && (m/[^þ].óôø$/))
! 61: { ($fl,$id)=getflag($dbh,$_);
! 62: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 63: $_=$u;
! 64: if ((s/åì$/åóôø/) && (m/þåóôø$/))
! 65: { ($fl,$id)=getflag($dbh,$_);
! 66: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 67: $_=$u;
! 68: if ((s/ìá$/óôø/) && (m/[^þ].óôø$/))
! 69: { ($fl,$id)=getflag($dbh,$_);
! 70: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 71: $_=$u;
! 72: if ((s/ìá$/åóôø/) && (m/þåóôø$/))
! 73: { ($fl,$id)=getflag($dbh,$_);
! 74: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 75: $_=$u;
! 76: if ((s/ìï$/óôø/) && (m/[^þ].óôø$/))
! 77: { ($fl,$id)=getflag($dbh,$_);
! 78: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 79: $_=$u;
! 80: if ((s/ìï$/åóôø/) && (m/þåóôø$/))
! 81: { ($fl,$id)=getflag($dbh,$_);
! 82: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 83: $_=$u;
! 84: if ((s/ìé$/óôø/) && (m/[^þ].óôø$/))
! 85: { ($fl,$id)=getflag($dbh,$_);
! 86: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 87: $_=$u;
! 88: if ((s/ìé$/åóôø/) && (m/þåóôø$/))
! 89: { ($fl,$id)=getflag($dbh,$_);
! 90: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 91: $_=$u;
! 92: if ((s/ìóñ$/óôøóñ/) && (m/óôøóñ$/))
! 93: { ($fl,$id)=getflag($dbh,$_);
! 94: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 95: $_=$u;
! 96: if ((s/ìáóø$/óôøóñ/) && (m/óôøóñ$/))
! 97: { ($fl,$id)=getflag($dbh,$_);
! 98: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 99: $_=$u;
! 100: if ((s/ìïóø$/óôøóñ/) && (m/óôøóñ$/))
! 101: { ($fl,$id)=getflag($dbh,$_);
! 102: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 103: $_=$u;
! 104: if ((s/ìéóø$/óôøóñ/) && (m/óôøóñ$/))
! 105: { ($fl,$id)=getflag($dbh,$_);
! 106: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 107: $_=$u;
! 108: if ((s/ì$/óôé/) && (m/óôé$/))
! 109: { ($fl,$id)=getflag($dbh,$_);
! 110: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 111: $_=$u;
! 112: if ((s/ìá$/óôé/) && (m/óôé$/))
! 113: { ($fl,$id)=getflag($dbh,$_);
! 114: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 115: $_=$u;
! 116: if ((s/ìï$/óôé/) && (m/óôé$/))
! 117: { ($fl,$id)=getflag($dbh,$_);
! 118: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 119: $_=$u;
! 120: if ((s/ìé$/óôé/) && (m/óôé$/))
! 121: { ($fl,$id)=getflag($dbh,$_);
! 122: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 123: $_=$u;
! 124: if ((s/ìóñ$/óôéóø/) && (m/óôéóø$/))
! 125: { ($fl,$id)=getflag($dbh,$_);
! 126: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 127: $_=$u;
! 128: if ((s/ìáóø$/óôéóø/) && (m/óôéóø$/))
! 129: { ($fl,$id)=getflag($dbh,$_);
! 130: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 131: $_=$u;
! 132: if ((s/ìïóø$/óôéóø/) && (m/óôéóø$/))
! 133: { ($fl,$id)=getflag($dbh,$_);
! 134: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 135: $_=$u;
! 136: if ((s/ìéóø$/óôéóø/) && (m/óôéóø$/))
! 137: { ($fl,$id)=getflag($dbh,$_);
! 138: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 139: $_=$u;
! 140: if ((s/$/ôé/) && (m/úôé$/))
! 141: { ($fl,$id)=getflag($dbh,$_);
! 142: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 143: $_=$u;
! 144: if ((s/ìá$/ôé/) && (m/úôé$/))
! 145: { ($fl,$id)=getflag($dbh,$_);
! 146: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 147: $_=$u;
! 148: if ((s/ìé$/ôé/) && (m/úôé$/))
! 149: { ($fl,$id)=getflag($dbh,$_);
! 150: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 151: $_=$u;
! 152: if ((s/ìï$/ôé/) && (m/úôé$/))
! 153: { ($fl,$id)=getflag($dbh,$_);
! 154: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 155: $_=$u;
! 156: if ((s/$/ôø/) && (m/úôø$/))
! 157: { ($fl,$id)=getflag($dbh,$_);
! 158: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 159: $_=$u;
! 160: if ((s/óñ$/ôøóñ/) && (m/úôøóñ$/))
! 161: { ($fl,$id)=getflag($dbh,$_);
! 162: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 163: $_=$u;
! 164: if ((s/ë$/þø/) && (m/þø$/))
! 165: { ($fl,$id)=getflag($dbh,$_);
! 166: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 167: $_=$u;
! 168: if ((s/ëìá$/þø/) && (m/þø$/))
! 169: { ($fl,$id)=getflag($dbh,$_);
! 170: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 171: $_=$u;
! 172: if ((s/ëìï$/þø/) && (m/þø$/))
! 173: { ($fl,$id)=getflag($dbh,$_);
! 174: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 175: $_=$u;
! 176: if ((s/ëìé$/þø/) && (m/þø$/))
! 177: { ($fl,$id)=getflag($dbh,$_);
! 178: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 179: $_=$u;
! 180: if ((s/ëóñ$/þøóñ/) && (m/þøóñ$/))
! 181: { ($fl,$id)=getflag($dbh,$_);
! 182: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 183: $_=$u;
! 184: if ((s/ëìáóø$/þøóñ/) && (m/þøóñ$/))
! 185: { ($fl,$id)=getflag($dbh,$_);
! 186: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 187: $_=$u;
! 188: if ((s/ëìïóø$/þøóñ/) && (m/þøóñ$/))
! 189: { ($fl,$id)=getflag($dbh,$_);
! 190: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 191: $_=$u;
! 192: if ((s/ëìéóø$/þøóñ/) && (m/þøóñ$/))
! 193: { ($fl,$id)=getflag($dbh,$_);
! 194: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 195: $_=$u;
! 196: if ((s/ìá$//) && (m/[^áéøñ]$/))
! 197: { ($fl,$id)=getflag($dbh,$_);
! 198: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 199: $_=$u;
! 200: if ((s/ìï$//) && (m/[^áéøñ]$/))
! 201: { ($fl,$id)=getflag($dbh,$_);
! 202: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 203: $_=$u;
! 204: if ((s/ìé$//) && (m/[^áéøñ]$/))
! 205: { ($fl,$id)=getflag($dbh,$_);
! 206: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 207: $_=$u;
! 208: if ((s/ìáóø$/óñ/) && (m/[^áéøñ]óñ$/))
! 209: { ($fl,$id)=getflag($dbh,$_);
! 210: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 211: $_=$u;
! 212: if ((s/ìïóø$/óñ/) && (m/[^áéøñ]óñ$/))
! 213: { ($fl,$id)=getflag($dbh,$_);
! 214: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 215: $_=$u;
! 216: if ((s/ìéóø$/óñ/) && (m/[^áéøñ]óñ$/))
! 217: { ($fl,$id)=getflag($dbh,$_);
! 218: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 219: $_=$u;
! 220: if ((s/ï$/á/) && (m/á$/))
! 221: { ($fl,$id)=getflag($dbh,$_);
! 222: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 223: $_=$u;
! 224: if ((s/é$/á/) && (m/á$/))
! 225: { ($fl,$id)=getflag($dbh,$_);
! 226: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 227: $_=$u;
! 228: if ((s/ïóø$/áóø/) && (m/áóø$/))
! 229: { ($fl,$id)=getflag($dbh,$_);
! 230: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 231: $_=$u;
! 232: if ((s/éóø$/áóø/) && (m/áóø$/))
! 233: { ($fl,$id)=getflag($dbh,$_);
! 234: if ($fl && ($fl=~m/L/)){push @list, $id}}
! 235: $_=$u;
! 236: if ((s/à$/ôø/) && (m/[áå]ôø$/))
! 237: { ($fl,$id)=getflag($dbh,$_);
! 238: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 239: $_=$u;
! 240: if ((s/àóø$/ôøóñ/) && (m/[áå]ôøóñ$/))
! 241: { ($fl,$id)=getflag($dbh,$_);
! 242: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 243: $_=$u;
! 244: if ((s/åí$/ôø/) && (m/[áå]ôø$/))
! 245: { ($fl,$id)=getflag($dbh,$_);
! 246: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 247: $_=$u;
! 248: if ((s/åíóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
! 249: { ($fl,$id)=getflag($dbh,$_);
! 250: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 251: $_=$u;
! 252: if ((s/åûø$/ôø/) && (m/[áå]ôø$/))
! 253: { ($fl,$id)=getflag($dbh,$_);
! 254: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 255: $_=$u;
! 256: if ((s/åûøóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
! 257: { ($fl,$id)=getflag($dbh,$_);
! 258: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 259: $_=$u;
! 260: if ((s/åôå$/ôø/) && (m/[áå]ôø$/))
! 261: { ($fl,$id)=getflag($dbh,$_);
! 262: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 263: $_=$u;
! 264: if ((s/åôåóø$/ôøóñ/) && (m/[áå]ôøóñ$/))
! 265: { ($fl,$id)=getflag($dbh,$_);
! 266: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 267: $_=$u;
! 268: if ((s/åô$/ôø/) && (m/[áå]ôø$/))
! 269: { ($fl,$id)=getflag($dbh,$_);
! 270: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 271: $_=$u;
! 272: if ((s/åôóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
! 273: { ($fl,$id)=getflag($dbh,$_);
! 274: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 275: $_=$u;
! 276: if ((s/àô$/ôø/) && (m/[áå]ôø$/))
! 277: { ($fl,$id)=getflag($dbh,$_);
! 278: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 279: $_=$u;
! 280: if ((s/àôóñ$/ôøóñ/) && (m/[áå]ôøóñ$/))
! 281: { ($fl,$id)=getflag($dbh,$_);
! 282: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 283: $_=$u;
! 284: if ((s/$/ôø/) && (m/õôø$/))
! 285: { ($fl,$id)=getflag($dbh,$_);
! 286: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 287: $_=$u;
! 288: if ((s/óø$/ôøóñ/) && (m/õôøóñ$/))
! 289: { ($fl,$id)=getflag($dbh,$_);
! 290: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 291: $_=$u;
! 292: if ((s/åí$/õôø/) && (m/õôø$/))
! 293: { ($fl,$id)=getflag($dbh,$_);
! 294: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 295: $_=$u;
! 296: if ((s/åíóñ$/õôøóñ/) && (m/õôøóñ$/))
! 297: { ($fl,$id)=getflag($dbh,$_);
! 298: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 299: $_=$u;
! 300: if ((s/åûø$/õôø/) && (m/õôø$/))
! 301: { ($fl,$id)=getflag($dbh,$_);
! 302: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 303: $_=$u;
! 304: if ((s/åûøóñ$/õôøóñ/) && (m/õôøóñ$/))
! 305: { ($fl,$id)=getflag($dbh,$_);
! 306: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 307: $_=$u;
! 308: if ((s/åôå$/õôø/) && (m/õôø$/))
! 309: { ($fl,$id)=getflag($dbh,$_);
! 310: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 311: $_=$u;
! 312: if ((s/åôåóø$/õôøóñ/) && (m/õôøóñ$/))
! 313: { ($fl,$id)=getflag($dbh,$_);
! 314: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 315: $_=$u;
! 316: if ((s/åô$/õôø/) && (m/õôø$/))
! 317: { ($fl,$id)=getflag($dbh,$_);
! 318: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 319: $_=$u;
! 320: if ((s/åôóñ$/õôøóñ/) && (m/õôøóñ$/))
! 321: { ($fl,$id)=getflag($dbh,$_);
! 322: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 323: $_=$u;
! 324: if ((s/$/ø/) && (m/õôø$/))
! 325: { ($fl,$id)=getflag($dbh,$_);
! 326: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 327: $_=$u;
! 328: if ((s/óñ$/øóñ/) && (m/õôøóñ$/))
! 329: { ($fl,$id)=getflag($dbh,$_);
! 330: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 331: $_=$u;
! 332: if ((s/à$/ïôø/) && (m/ïôø$/))
! 333: { ($fl,$id)=getflag($dbh,$_);
! 334: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 335: $_=$u;
! 336: if ((s/àóø$/ïôøóñ/) && (m/ïôøóñ$/))
! 337: { ($fl,$id)=getflag($dbh,$_);
! 338: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 339: $_=$u;
! 340: if ((s/åí$/ïôø/) && (m/ïôø$/))
! 341: { ($fl,$id)=getflag($dbh,$_);
! 342: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 343: $_=$u;
! 344: if ((s/åíóñ$/ïôøóñ/) && (m/ïôøóñ$/))
! 345: { ($fl,$id)=getflag($dbh,$_);
! 346: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 347: $_=$u;
! 348: if ((s/åûø$/ïôø/) && (m/ïôø$/))
! 349: { ($fl,$id)=getflag($dbh,$_);
! 350: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 351: $_=$u;
! 352: if ((s/åûøóñ$/ïôøóñ/) && (m/ïôøóñ$/))
! 353: { ($fl,$id)=getflag($dbh,$_);
! 354: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 355: $_=$u;
! 356: if ((s/åôå$/ïôø/) && (m/ïôø$/))
! 357: { ($fl,$id)=getflag($dbh,$_);
! 358: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 359: $_=$u;
! 360: if ((s/åôåóø$/ïôøóñ/) && (m/ïôøóñ$/))
! 361: { ($fl,$id)=getflag($dbh,$_);
! 362: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 363: $_=$u;
! 364: if ((s/åô$/ïôø/) && (m/ïôø$/))
! 365: { ($fl,$id)=getflag($dbh,$_);
! 366: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 367: $_=$u;
! 368: if ((s/åôóñ$/ïôøóñ/) && (m/ïôøóñ$/))
! 369: { ($fl,$id)=getflag($dbh,$_);
! 370: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 371: $_=$u;
! 372: if ((s/àô$/ïôø/) && (m/ïôø$/))
! 373: { ($fl,$id)=getflag($dbh,$_);
! 374: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 375: $_=$u;
! 376: if ((s/àôóñ$/ïôøóñ/) && (m/ïôøóñ$/))
! 377: { ($fl,$id)=getflag($dbh,$_);
! 378: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 379: $_=$u;
! 380: if ((s/ïà$/ùôø/) && (m/ùôø$/))
! 381: { ($fl,$id)=getflag($dbh,$_);
! 382: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 383: $_=$u;
! 384: if ((s/ïàóø$/ùôøóñ/) && (m/ùôøóñ$/))
! 385: { ($fl,$id)=getflag($dbh,$_);
! 386: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 387: $_=$u;
! 388: if ((s/ïåí$/ùôø/) && (m/ùôø$/))
! 389: { ($fl,$id)=getflag($dbh,$_);
! 390: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 391: $_=$u;
! 392: if ((s/ïåíóñ$/ùôøóñ/) && (m/ùôøóñ$/))
! 393: { ($fl,$id)=getflag($dbh,$_);
! 394: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 395: $_=$u;
! 396: if ((s/ïåûø$/ùôø/) && (m/ùôø$/))
! 397: { ($fl,$id)=getflag($dbh,$_);
! 398: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 399: $_=$u;
! 400: if ((s/ïåûøóñ$/ùôøóñ/) && (m/ùôøóñ$/))
! 401: { ($fl,$id)=getflag($dbh,$_);
! 402: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 403: $_=$u;
! 404: if ((s/ïåôå$/ùôø/) && (m/ùôø$/))
! 405: { ($fl,$id)=getflag($dbh,$_);
! 406: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 407: $_=$u;
! 408: if ((s/ïåôåóø$/ùôøóñ/) && (m/ùôøóñ$/))
! 409: { ($fl,$id)=getflag($dbh,$_);
! 410: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 411: $_=$u;
! 412: if ((s/ïåô$/ùôø/) && (m/ùôø$/))
! 413: { ($fl,$id)=getflag($dbh,$_);
! 414: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 415: $_=$u;
! 416: if ((s/ïåôóñ$/ùôøóñ/) && (m/ùôøóñ$/))
! 417: { ($fl,$id)=getflag($dbh,$_);
! 418: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 419: $_=$u;
! 420: if ((s/ïàô$/ùôø/) && (m/ùôø$/))
! 421: { ($fl,$id)=getflag($dbh,$_);
! 422: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 423: $_=$u;
! 424: if ((s/ïàôóñ$/ùôøóñ/) && (m/ùôøóñ$/))
! 425: { ($fl,$id)=getflag($dbh,$_);
! 426: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 427: $_=$u;
! 428: if ((s/õ$/ôé/) && (m/[úó]ôé$/))
! 429: { ($fl,$id)=getflag($dbh,$_);
! 430: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 431: $_=$u;
! 432: if ((s/õóø$/ôéóø/) && (m/[úó]ôéóø$/))
! 433: { ($fl,$id)=getflag($dbh,$_);
! 434: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 435: $_=$u;
! 436: if ((s/åí$/ôé/) && (m/[úó]ôé$/))
! 437: { ($fl,$id)=getflag($dbh,$_);
! 438: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 439: $_=$u;
! 440: if ((s/åíóñ$/ôéóø/) && (m/[úó]ôéóø$/))
! 441: { ($fl,$id)=getflag($dbh,$_);
! 442: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 443: $_=$u;
! 444: if ((s/åûø$/ôé/) && (m/[úó]ôé$/))
! 445: { ($fl,$id)=getflag($dbh,$_);
! 446: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 447: $_=$u;
! 448: if ((s/åûøóñ$/ôéóø/) && (m/[úó]ôéóø$/))
! 449: { ($fl,$id)=getflag($dbh,$_);
! 450: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 451: $_=$u;
! 452: if ((s/åôå$/ôé/) && (m/[úó]ôé$/))
! 453: { ($fl,$id)=getflag($dbh,$_);
! 454: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 455: $_=$u;
! 456: if ((s/åôåóø$/ôéóø/) && (m/[úó]ôéóø$/))
! 457: { ($fl,$id)=getflag($dbh,$_);
! 458: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 459: $_=$u;
! 460: if ((s/åô$/ôé/) && (m/[úó]ôé$/))
! 461: { ($fl,$id)=getflag($dbh,$_);
! 462: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 463: $_=$u;
! 464: if ((s/åôóñ$/ôéóø/) && (m/[úó]ôéóø$/))
! 465: { ($fl,$id)=getflag($dbh,$_);
! 466: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 467: $_=$u;
! 468: if ((s/õô$/ôé/) && (m/[úó]ôé$/))
! 469: { ($fl,$id)=getflag($dbh,$_);
! 470: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 471: $_=$u;
! 472: if ((s/õôóñ$/ôéóø/) && (m/[úó]ôéóø$/))
! 473: { ($fl,$id)=getflag($dbh,$_);
! 474: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 475: $_=$u;
! 476: if ((s/äõ$/ôé/) && (m/êôé$/))
! 477: { ($fl,$id)=getflag($dbh,$_);
! 478: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 479: $_=$u;
! 480: if ((s/äõóø$/ôéóø/) && (m/êôéóø$/))
! 481: { ($fl,$id)=getflag($dbh,$_);
! 482: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 483: $_=$u;
! 484: if ((s/äåí$/ôé/) && (m/êôé$/))
! 485: { ($fl,$id)=getflag($dbh,$_);
! 486: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 487: $_=$u;
! 488: if ((s/äåíóñ$/ôéóø/) && (m/êôéóø$/))
! 489: { ($fl,$id)=getflag($dbh,$_);
! 490: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 491: $_=$u;
! 492: if ((s/äåûø$/ôé/) && (m/êôé$/))
! 493: { ($fl,$id)=getflag($dbh,$_);
! 494: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 495: $_=$u;
! 496: if ((s/äåûøóñ$/ôéóø/) && (m/êôéóø$/))
! 497: { ($fl,$id)=getflag($dbh,$_);
! 498: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 499: $_=$u;
! 500: if ((s/äåôå$/ôé/) && (m/êôé$/))
! 501: { ($fl,$id)=getflag($dbh,$_);
! 502: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 503: $_=$u;
! 504: if ((s/äåôåóø$/ôéóø/) && (m/êôéóø$/))
! 505: { ($fl,$id)=getflag($dbh,$_);
! 506: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 507: $_=$u;
! 508: if ((s/äåô$/ôé/) && (m/êôé$/))
! 509: { ($fl,$id)=getflag($dbh,$_);
! 510: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 511: $_=$u;
! 512: if ((s/äåôóñ$/ôéóø/) && (m/êôéóø$/))
! 513: { ($fl,$id)=getflag($dbh,$_);
! 514: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 515: $_=$u;
! 516: if ((s/äõô$/ôé/) && (m/êôé$/))
! 517: { ($fl,$id)=getflag($dbh,$_);
! 518: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 519: $_=$u;
! 520: if ((s/äõôóñ$/ôéóø/) && (m/êôéóø$/))
! 521: { ($fl,$id)=getflag($dbh,$_);
! 522: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 523: $_=$u;
! 524: if ((s/ëõ$/þø/) && (m/þø$/))
! 525: { ($fl,$id)=getflag($dbh,$_);
! 526: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 527: $_=$u;
! 528: if ((s/ëõóø$/þøóñ/) && (m/þøóñ$/))
! 529: { ($fl,$id)=getflag($dbh,$_);
! 530: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 531: $_=$u;
! 532: if ((s/åí$/ø/) && (m/þø$/))
! 533: { ($fl,$id)=getflag($dbh,$_);
! 534: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 535: $_=$u;
! 536: if ((s/åíóñ$/øóñ/) && (m/þøóñ$/))
! 537: { ($fl,$id)=getflag($dbh,$_);
! 538: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 539: $_=$u;
! 540: if ((s/åûø$/ø/) && (m/þø$/))
! 541: { ($fl,$id)=getflag($dbh,$_);
! 542: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 543: $_=$u;
! 544: if ((s/åûøóñ$/øóñ/) && (m/þøóñ$/))
! 545: { ($fl,$id)=getflag($dbh,$_);
! 546: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 547: $_=$u;
! 548: if ((s/åôå$/ø/) && (m/þø$/))
! 549: { ($fl,$id)=getflag($dbh,$_);
! 550: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 551: $_=$u;
! 552: if ((s/åôåóø$/øóñ/) && (m/þøóñ$/))
! 553: { ($fl,$id)=getflag($dbh,$_);
! 554: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 555: $_=$u;
! 556: if ((s/åô$/ø/) && (m/þø$/))
! 557: { ($fl,$id)=getflag($dbh,$_);
! 558: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 559: $_=$u;
! 560: if ((s/åôóñ$/øóñ/) && (m/þøóñ$/))
! 561: { ($fl,$id)=getflag($dbh,$_);
! 562: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 563: $_=$u;
! 564: if ((s/ëõô$/þø/) && (m/þø$/))
! 565: { ($fl,$id)=getflag($dbh,$_);
! 566: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 567: $_=$u;
! 568: if ((s/ëõôóñ$/þøóñ/) && (m/þøóñ$/))
! 569: { ($fl,$id)=getflag($dbh,$_);
! 570: if ($fl && ($fl=~m/M/)){push @list, $id}}
! 571: $_=$u;
! 572: if ((s/à$/÷áôø/) && (m/á÷áôø$/))
! 573: { ($fl,$id)=getflag($dbh,$_);
! 574: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 575: $_=$u;
! 576: if ((s/åí$/÷áôø/) && (m/á÷áôø$/))
! 577: { ($fl,$id)=getflag($dbh,$_);
! 578: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 579: $_=$u;
! 580: if ((s/åûø$/÷áôø/) && (m/á÷áôø$/))
! 581: { ($fl,$id)=getflag($dbh,$_);
! 582: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 583: $_=$u;
! 584: if ((s/åôå$/÷áôø/) && (m/á÷áôø$/))
! 585: { ($fl,$id)=getflag($dbh,$_);
! 586: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 587: $_=$u;
! 588: if ((s/åô$/÷áôø/) && (m/á÷áôø$/))
! 589: { ($fl,$id)=getflag($dbh,$_);
! 590: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 591: $_=$u;
! 592: if ((s/àô$/÷áôø/) && (m/á÷áôø$/))
! 593: { ($fl,$id)=getflag($dbh,$_);
! 594: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 595: $_=$u;
! 596: if ((s/àóø$/÷áôøóñ/) && (m/á÷áôøóñ$/))
! 597: { ($fl,$id)=getflag($dbh,$_);
! 598: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 599: $_=$u;
! 600: if ((s/åíóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
! 601: { ($fl,$id)=getflag($dbh,$_);
! 602: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 603: $_=$u;
! 604: if ((s/åûøóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
! 605: { ($fl,$id)=getflag($dbh,$_);
! 606: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 607: $_=$u;
! 608: if ((s/åôåóø$/÷áôøóñ/) && (m/á÷áôøóñ$/))
! 609: { ($fl,$id)=getflag($dbh,$_);
! 610: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 611: $_=$u;
! 612: if ((s/åôóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
! 613: { ($fl,$id)=getflag($dbh,$_);
! 614: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 615: $_=$u;
! 616: if ((s/àôóñ$/÷áôøóñ/) && (m/á÷áôøóñ$/))
! 617: { ($fl,$id)=getflag($dbh,$_);
! 618: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 619: $_=$u;
! 620: if ((s/õà$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 621: { ($fl,$id)=getflag($dbh,$_);
! 622: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 623: $_=$u;
! 624: if ((s/õåí$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 625: { ($fl,$id)=getflag($dbh,$_);
! 626: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 627: $_=$u;
! 628: if ((s/õåûø$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 629: { ($fl,$id)=getflag($dbh,$_);
! 630: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 631: $_=$u;
! 632: if ((s/õåôå$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 633: { ($fl,$id)=getflag($dbh,$_);
! 634: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 635: $_=$u;
! 636: if ((s/õåô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 637: { ($fl,$id)=getflag($dbh,$_);
! 638: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 639: $_=$u;
! 640: if ((s/õàô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 641: { ($fl,$id)=getflag($dbh,$_);
! 642: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 643: $_=$u;
! 644: if ((s/õàóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 645: { ($fl,$id)=getflag($dbh,$_);
! 646: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 647: $_=$u;
! 648: if ((s/õåíóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 649: { ($fl,$id)=getflag($dbh,$_);
! 650: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 651: $_=$u;
! 652: if ((s/õåûøóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 653: { ($fl,$id)=getflag($dbh,$_);
! 654: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 655: $_=$u;
! 656: if ((s/õåôåóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 657: { ($fl,$id)=getflag($dbh,$_);
! 658: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 659: $_=$u;
! 660: if ((s/õåôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 661: { ($fl,$id)=getflag($dbh,$_);
! 662: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 663: $_=$u;
! 664: if ((s/õàôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 665: { ($fl,$id)=getflag($dbh,$_);
! 666: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 667: $_=$u;
! 668: if ((s/àà$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 669: { ($fl,$id)=getflag($dbh,$_);
! 670: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 671: $_=$u;
! 672: if ((s/àåí$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 673: { ($fl,$id)=getflag($dbh,$_);
! 674: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 675: $_=$u;
! 676: if ((s/àåûø$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 677: { ($fl,$id)=getflag($dbh,$_);
! 678: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 679: $_=$u;
! 680: if ((s/àåôå$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 681: { ($fl,$id)=getflag($dbh,$_);
! 682: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 683: $_=$u;
! 684: if ((s/àåô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 685: { ($fl,$id)=getflag($dbh,$_);
! 686: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 687: $_=$u;
! 688: if ((s/ààô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 689: { ($fl,$id)=getflag($dbh,$_);
! 690: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 691: $_=$u;
! 692: if ((s/ààóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 693: { ($fl,$id)=getflag($dbh,$_);
! 694: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 695: $_=$u;
! 696: if ((s/àåíóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 697: { ($fl,$id)=getflag($dbh,$_);
! 698: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 699: $_=$u;
! 700: if ((s/àåûøóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 701: { ($fl,$id)=getflag($dbh,$_);
! 702: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 703: $_=$u;
! 704: if ((s/àåôåóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 705: { ($fl,$id)=getflag($dbh,$_);
! 706: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 707: $_=$u;
! 708: if ((s/àåôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 709: { ($fl,$id)=getflag($dbh,$_);
! 710: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 711: $_=$u;
! 712: if ((s/ààôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 713: { ($fl,$id)=getflag($dbh,$_);
! 714: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 715: $_=$u;
! 716: if ((s/õà$/ï÷áôø/) && (m/ï÷áôø$/))
! 717: { ($fl,$id)=getflag($dbh,$_);
! 718: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 719: $_=$u;
! 720: if ((s/õåí$/ï÷áôø/) && (m/ï÷áôø$/))
! 721: { ($fl,$id)=getflag($dbh,$_);
! 722: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 723: $_=$u;
! 724: if ((s/õåûø$/ï÷áôø/) && (m/ï÷áôø$/))
! 725: { ($fl,$id)=getflag($dbh,$_);
! 726: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 727: $_=$u;
! 728: if ((s/õåôå$/ï÷áôø/) && (m/ï÷áôø$/))
! 729: { ($fl,$id)=getflag($dbh,$_);
! 730: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 731: $_=$u;
! 732: if ((s/õåô$/ï÷áôø/) && (m/ï÷áôø$/))
! 733: { ($fl,$id)=getflag($dbh,$_);
! 734: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 735: $_=$u;
! 736: if ((s/õàô$/ï÷áôø/) && (m/ï÷áôø$/))
! 737: { ($fl,$id)=getflag($dbh,$_);
! 738: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 739: $_=$u;
! 740: if ((s/õàóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 741: { ($fl,$id)=getflag($dbh,$_);
! 742: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 743: $_=$u;
! 744: if ((s/õåíóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 745: { ($fl,$id)=getflag($dbh,$_);
! 746: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 747: $_=$u;
! 748: if ((s/õåûøóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 749: { ($fl,$id)=getflag($dbh,$_);
! 750: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 751: $_=$u;
! 752: if ((s/õåôåóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 753: { ($fl,$id)=getflag($dbh,$_);
! 754: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 755: $_=$u;
! 756: if ((s/õåôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 757: { ($fl,$id)=getflag($dbh,$_);
! 758: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 759: $_=$u;
! 760: if ((s/õàôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 761: { ($fl,$id)=getflag($dbh,$_);
! 762: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 763: $_=$u;
! 764: if ((s/à$/ôø/) && (m/[^áåïõ]ñôø$/))
! 765: { ($fl,$id)=getflag($dbh,$_);
! 766: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 767: $_=$u;
! 768: if ((s/à$/ñôø/) && (m/[áåïõ]ñôø$/))
! 769: { ($fl,$id)=getflag($dbh,$_);
! 770: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 771: $_=$u;
! 772: if ((s/åí$/ôø/) && (m/[^áåïõ]ñôø$/))
! 773: { ($fl,$id)=getflag($dbh,$_);
! 774: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 775: $_=$u;
! 776: if ((s/åí$/ñôø/) && (m/[áåõ]ñôø$/))
! 777: { ($fl,$id)=getflag($dbh,$_);
! 778: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 779: $_=$u;
! 780: if ((s/éí$/ñôø/) && (m/ïñôø$/))
! 781: { ($fl,$id)=getflag($dbh,$_);
! 782: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 783: $_=$u;
! 784: if ((s/åûø$/ôø/) && (m/[^áåïõ]ñôø$/))
! 785: { ($fl,$id)=getflag($dbh,$_);
! 786: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 787: $_=$u;
! 788: if ((s/åûø$/ñôø/) && (m/[áåõ]ñôø$/))
! 789: { ($fl,$id)=getflag($dbh,$_);
! 790: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 791: $_=$u;
! 792: if ((s/éûø$/ñôø/) && (m/ïñôø$/))
! 793: { ($fl,$id)=getflag($dbh,$_);
! 794: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 795: $_=$u;
! 796: if ((s/åôå$/ôø/) && (m/[^áåïõ]ñôø$/))
! 797: { ($fl,$id)=getflag($dbh,$_);
! 798: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 799: $_=$u;
! 800: if ((s/åôå$/ñôø/) && (m/[áåõ]ñôø$/))
! 801: { ($fl,$id)=getflag($dbh,$_);
! 802: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 803: $_=$u;
! 804: if ((s/éôå$/ñôø/) && (m/ïñôø$/))
! 805: { ($fl,$id)=getflag($dbh,$_);
! 806: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 807: $_=$u;
! 808: if ((s/åô$/ôø/) && (m/[^áåïõ]ñôø$/))
! 809: { ($fl,$id)=getflag($dbh,$_);
! 810: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 811: $_=$u;
! 812: if ((s/åô$/ñôø/) && (m/[áåõ]ñôø$/))
! 813: { ($fl,$id)=getflag($dbh,$_);
! 814: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 815: $_=$u;
! 816: if ((s/éô$/ñôø/) && (m/ïñôø$/))
! 817: { ($fl,$id)=getflag($dbh,$_);
! 818: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 819: $_=$u;
! 820: if ((s/àô$/ôø/) && (m/[^áåïõ]ñôø$/))
! 821: { ($fl,$id)=getflag($dbh,$_);
! 822: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 823: $_=$u;
! 824: if ((s/àô$/ñôø/) && (m/[áåõ]ñôø$/))
! 825: { ($fl,$id)=getflag($dbh,$_);
! 826: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 827: $_=$u;
! 828: if ((s/$/ø/) && (m/ïñôø$/))
! 829: { ($fl,$id)=getflag($dbh,$_);
! 830: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 831: $_=$u;
! 832: if ((s/àóø$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
! 833: { ($fl,$id)=getflag($dbh,$_);
! 834: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 835: $_=$u;
! 836: if ((s/àóø$/ñôøóñ/) && (m/[áåïõ]ñôøóñ$/))
! 837: { ($fl,$id)=getflag($dbh,$_);
! 838: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 839: $_=$u;
! 840: if ((s/åíóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
! 841: { ($fl,$id)=getflag($dbh,$_);
! 842: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 843: $_=$u;
! 844: if ((s/åíóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
! 845: { ($fl,$id)=getflag($dbh,$_);
! 846: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 847: $_=$u;
! 848: if ((s/éíóñ$/ñôøóñ/) && (m/ïñôøóñ$/))
! 849: { ($fl,$id)=getflag($dbh,$_);
! 850: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 851: $_=$u;
! 852: if ((s/åûøóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
! 853: { ($fl,$id)=getflag($dbh,$_);
! 854: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 855: $_=$u;
! 856: if ((s/åûøóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
! 857: { ($fl,$id)=getflag($dbh,$_);
! 858: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 859: $_=$u;
! 860: if ((s/éûøóñ$/ñôøóñ/) && (m/ïñôøóñ$/))
! 861: { ($fl,$id)=getflag($dbh,$_);
! 862: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 863: $_=$u;
! 864: if ((s/åôåóø$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
! 865: { ($fl,$id)=getflag($dbh,$_);
! 866: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 867: $_=$u;
! 868: if ((s/åôåóø$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
! 869: { ($fl,$id)=getflag($dbh,$_);
! 870: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 871: $_=$u;
! 872: if ((s/éôåóø$/ñôøóñ/) && (m/ïñôøóñ$/))
! 873: { ($fl,$id)=getflag($dbh,$_);
! 874: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 875: $_=$u;
! 876: if ((s/åôóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
! 877: { ($fl,$id)=getflag($dbh,$_);
! 878: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 879: $_=$u;
! 880: if ((s/åôóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
! 881: { ($fl,$id)=getflag($dbh,$_);
! 882: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 883: $_=$u;
! 884: if ((s/éôóñ$/ñôøóñ/) && (m/ïñôøóñ$/))
! 885: { ($fl,$id)=getflag($dbh,$_);
! 886: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 887: $_=$u;
! 888: if ((s/àôóñ$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
! 889: { ($fl,$id)=getflag($dbh,$_);
! 890: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 891: $_=$u;
! 892: if ((s/àôóñ$/ñôøóñ/) && (m/[áåõ]ñôøóñ$/))
! 893: { ($fl,$id)=getflag($dbh,$_);
! 894: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 895: $_=$u;
! 896: if ((s/óñ$/øóñ/) && (m/ïñôøóñ$/))
! 897: { ($fl,$id)=getflag($dbh,$_);
! 898: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 899: $_=$u;
! 900: if ((s/õ$/áôø/) && (m/[öûýþ]áôø$/))
! 901: { ($fl,$id)=getflag($dbh,$_);
! 902: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 903: $_=$u;
! 904: if ((s/õóø$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
! 905: { ($fl,$id)=getflag($dbh,$_);
! 906: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 907: $_=$u;
! 908: if ((s/éí$/áôø/) && (m/[öûýþ]áôø$/))
! 909: { ($fl,$id)=getflag($dbh,$_);
! 910: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 911: $_=$u;
! 912: if ((s/éíóñ$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
! 913: { ($fl,$id)=getflag($dbh,$_);
! 914: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 915: $_=$u;
! 916: if ((s/éûø$/áôø/) && (m/[öûýþ]áôø$/))
! 917: { ($fl,$id)=getflag($dbh,$_);
! 918: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 919: $_=$u;
! 920: if ((s/éûøóñ$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
! 921: { ($fl,$id)=getflag($dbh,$_);
! 922: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 923: $_=$u;
! 924: if ((s/éôå$/áôø/) && (m/[öûýþ]áôø$/))
! 925: { ($fl,$id)=getflag($dbh,$_);
! 926: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 927: $_=$u;
! 928: if ((s/éôåóø$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
! 929: { ($fl,$id)=getflag($dbh,$_);
! 930: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 931: $_=$u;
! 932: if ((s/éô$/áôø/) && (m/[öûýþ]áôø$/))
! 933: { ($fl,$id)=getflag($dbh,$_);
! 934: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 935: $_=$u;
! 936: if ((s/éôóñ$/áôøóñ/) && (m/[öûýþ]áôøóñ$/))
! 937: { ($fl,$id)=getflag($dbh,$_);
! 938: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 939: $_=$u;
! 940: if ((s/$/ø/) && (m/[öûýþ]áôø$/))
! 941: { ($fl,$id)=getflag($dbh,$_);
! 942: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 943: $_=$u;
! 944: if ((s/óñ$/øóñ/) && (m/[öûýþ]áôøóñ$/))
! 945: { ($fl,$id)=getflag($dbh,$_);
! 946: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 947: $_=$u;
! 948: if ((s/õ$/áôø/) && (m/äáôø$/))
! 949: { ($fl,$id)=getflag($dbh,$_);
! 950: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 951: $_=$u;
! 952: if ((s/õóø$/áôøóñ/) && (m/äáôøóñ$/))
! 953: { ($fl,$id)=getflag($dbh,$_);
! 954: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 955: $_=$u;
! 956: if ((s/åí$/áôø/) && (m/äáôø$/))
! 957: { ($fl,$id)=getflag($dbh,$_);
! 958: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 959: $_=$u;
! 960: if ((s/åíóñ$/áôøóñ/) && (m/äáôøóñ$/))
! 961: { ($fl,$id)=getflag($dbh,$_);
! 962: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 963: $_=$u;
! 964: if ((s/åûø$/áôø/) && (m/äáôø$/))
! 965: { ($fl,$id)=getflag($dbh,$_);
! 966: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 967: $_=$u;
! 968: if ((s/åûøóñ$/áôøóñ/) && (m/äáôøóñ$/))
! 969: { ($fl,$id)=getflag($dbh,$_);
! 970: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 971: $_=$u;
! 972: if ((s/åôå$/áôø/) && (m/äáôø$/))
! 973: { ($fl,$id)=getflag($dbh,$_);
! 974: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 975: $_=$u;
! 976: if ((s/åôåóø$/áôøóñ/) && (m/äáôøóñ$/))
! 977: { ($fl,$id)=getflag($dbh,$_);
! 978: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 979: $_=$u;
! 980: if ((s/åô$/áôø/) && (m/äáôø$/))
! 981: { ($fl,$id)=getflag($dbh,$_);
! 982: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 983: $_=$u;
! 984: if ((s/åôóñ$/áôøóñ/) && (m/äáôøóñ$/))
! 985: { ($fl,$id)=getflag($dbh,$_);
! 986: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 987: $_=$u;
! 988: if ((s/õô$/áôø/) && (m/äáôø$/))
! 989: { ($fl,$id)=getflag($dbh,$_);
! 990: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 991: $_=$u;
! 992: if ((s/õôóñ$/áôøóñ/) && (m/äáôøóñ$/))
! 993: { ($fl,$id)=getflag($dbh,$_);
! 994: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 995: $_=$u;
! 996: if ((s/çõ$/þø/) && (m/þø$/))
! 997: { ($fl,$id)=getflag($dbh,$_);
! 998: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 999: $_=$u;
! 1000: if ((s/çõóø$/þøóñ/) && (m/þøóñ$/))
! 1001: { ($fl,$id)=getflag($dbh,$_);
! 1002: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1003: $_=$u;
! 1004: if ((s/öåí$/þø/) && (m/þø$/))
! 1005: { ($fl,$id)=getflag($dbh,$_);
! 1006: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1007: $_=$u;
! 1008: if ((s/öåíóñ$/þøóñ/) && (m/þøóñ$/))
! 1009: { ($fl,$id)=getflag($dbh,$_);
! 1010: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1011: $_=$u;
! 1012: if ((s/öåûø$/þø/) && (m/þø$/))
! 1013: { ($fl,$id)=getflag($dbh,$_);
! 1014: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1015: $_=$u;
! 1016: if ((s/öåûøóñ$/þøóñ/) && (m/þøóñ$/))
! 1017: { ($fl,$id)=getflag($dbh,$_);
! 1018: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1019: $_=$u;
! 1020: if ((s/öåôå$/þø/) && (m/þø$/))
! 1021: { ($fl,$id)=getflag($dbh,$_);
! 1022: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1023: $_=$u;
! 1024: if ((s/öåôåóø$/þøóñ/) && (m/þøóñ$/))
! 1025: { ($fl,$id)=getflag($dbh,$_);
! 1026: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1027: $_=$u;
! 1028: if ((s/öåô$/þø/) && (m/þø$/))
! 1029: { ($fl,$id)=getflag($dbh,$_);
! 1030: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1031: $_=$u;
! 1032: if ((s/öåôóñ$/þøóñ/) && (m/þøóñ$/))
! 1033: { ($fl,$id)=getflag($dbh,$_);
! 1034: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1035: $_=$u;
! 1036: if ((s/çõô$/þø/) && (m/þø$/))
! 1037: { ($fl,$id)=getflag($dbh,$_);
! 1038: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1039: $_=$u;
! 1040: if ((s/çõôóñ$/þøóñ/) && (m/þøóñ$/))
! 1041: { ($fl,$id)=getflag($dbh,$_);
! 1042: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1043: $_=$u;
! 1044: if ((s/$/ôø/) && (m/õôø$/))
! 1045: { ($fl,$id)=getflag($dbh,$_);
! 1046: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1047: $_=$u;
! 1048: if ((s/óø$/ôøóñ/) && (m/õôøóñ$/))
! 1049: { ($fl,$id)=getflag($dbh,$_);
! 1050: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1051: $_=$u;
! 1052: if ((s/åí$/õôø/) && (m/õôø$/))
! 1053: { ($fl,$id)=getflag($dbh,$_);
! 1054: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1055: $_=$u;
! 1056: if ((s/åíóñ$/õôøóñ/) && (m/õôøóñ$/))
! 1057: { ($fl,$id)=getflag($dbh,$_);
! 1058: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1059: $_=$u;
! 1060: if ((s/åûø$/õôø/) && (m/õôø$/))
! 1061: { ($fl,$id)=getflag($dbh,$_);
! 1062: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1063: $_=$u;
! 1064: if ((s/åûøóñ$/õôøóñ/) && (m/õôøóñ$/))
! 1065: { ($fl,$id)=getflag($dbh,$_);
! 1066: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1067: $_=$u;
! 1068: if ((s/åôå$/õôø/) && (m/õôø$/))
! 1069: { ($fl,$id)=getflag($dbh,$_);
! 1070: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1071: $_=$u;
! 1072: if ((s/åôåóø$/õôøóñ/) && (m/õôøóñ$/))
! 1073: { ($fl,$id)=getflag($dbh,$_);
! 1074: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1075: $_=$u;
! 1076: if ((s/åô$/õôø/) && (m/õôø$/))
! 1077: { ($fl,$id)=getflag($dbh,$_);
! 1078: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1079: $_=$u;
! 1080: if ((s/åôóñ$/õôøóñ/) && (m/õôøóñ$/))
! 1081: { ($fl,$id)=getflag($dbh,$_);
! 1082: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1083: $_=$u;
! 1084: if ((s/$/ø/) && (m/õôø$/))
! 1085: { ($fl,$id)=getflag($dbh,$_);
! 1086: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1087: $_=$u;
! 1088: if ((s/óñ$/øóñ/) && (m/õôøóñ$/))
! 1089: { ($fl,$id)=getflag($dbh,$_);
! 1090: if ($fl && ($fl=~m/U/)){push @list, $id}}
! 1091: $_=$u;
! 1092: if ((s/ìà$/éôø/) && (m/[â÷íðæ]éôø$/))
! 1093: { ($fl,$id)=getflag($dbh,$_);
! 1094: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1095: $_=$u;
! 1096: if ((s/ìàóø$/éôøóñ/) && (m/[â÷íðæ]éôøóñ$/))
! 1097: { ($fl,$id)=getflag($dbh,$_);
! 1098: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1099: $_=$u;
! 1100: if ((s/öõ$/äéôø/) && (m/äéôø$/))
! 1101: { ($fl,$id)=getflag($dbh,$_);
! 1102: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1103: $_=$u;
! 1104: if ((s/öõóø$/äéôøóñ/) && (m/äéôøóñ$/))
! 1105: { ($fl,$id)=getflag($dbh,$_);
! 1106: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1107: $_=$u;
! 1108: if ((s/à$/éôø/) && (m/[áåìîïòõ]éôø$/))
! 1109: { ($fl,$id)=getflag($dbh,$_);
! 1110: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1111: $_=$u;
! 1112: if ((s/àóø$/éôøóñ/) && (m/[áåìîïòõ]éôøóñ$/))
! 1113: { ($fl,$id)=getflag($dbh,$_);
! 1114: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1115: $_=$u;
! 1116: if ((s/õ$/éôø/) && (m/[öþûý]éôø$/))
! 1117: { ($fl,$id)=getflag($dbh,$_);
! 1118: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1119: $_=$u;
! 1120: if ((s/õóø$/éôøóñ/) && (m/[öþûý]éôøóñ$/))
! 1121: { ($fl,$id)=getflag($dbh,$_);
! 1122: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1123: $_=$u;
! 1124: if ((s/öõ$/úéôø/) && (m/úéôø$/))
! 1125: { ($fl,$id)=getflag($dbh,$_);
! 1126: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1127: $_=$u;
! 1128: if ((s/öõóø$/úéôøóñ/) && (m/úéôøóñ$/))
! 1129: { ($fl,$id)=getflag($dbh,$_);
! 1130: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1131: $_=$u;
! 1132: if ((s/ûõ$/óéôø/) && (m/óéôø$/))
! 1133: { ($fl,$id)=getflag($dbh,$_);
! 1134: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1135: $_=$u;
! 1136: if ((s/ûõóø$/óéôøóñ/) && (m/óéôøóñ$/))
! 1137: { ($fl,$id)=getflag($dbh,$_);
! 1138: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1139: $_=$u;
! 1140: if ((s/þõ$/ôéôø/) && (m/[^áåéïõùüàñóþ]ôéôø$/))
! 1141: { ($fl,$id)=getflag($dbh,$_);
! 1142: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1143: $_=$u;
! 1144: if ((s/ýõ$/óôéôø/) && (m/óôéôø$/))
! 1145: { ($fl,$id)=getflag($dbh,$_);
! 1146: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1147: $_=$u;
! 1148: if ((s/þõóø$/ôéôøóñ/) && (m/[^áåéïõùüàñóþ]ôéôøóñ$/))
! 1149: { ($fl,$id)=getflag($dbh,$_);
! 1150: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1151: $_=$u;
! 1152: if ((s/ýõóø$/óôéôøóñ/) && (m/óôéôøóñ$/))
! 1153: { ($fl,$id)=getflag($dbh,$_);
! 1154: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1155: $_=$u;
! 1156: if ((s/í$/ôø/) && (m/éôø$/))
! 1157: { ($fl,$id)=getflag($dbh,$_);
! 1158: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1159: $_=$u;
! 1160: if ((s/íóñ$/ôøóñ/) && (m/éôøóñ$/))
! 1161: { ($fl,$id)=getflag($dbh,$_);
! 1162: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1163: $_=$u;
! 1164: if ((s/ûø$/ôø/) && (m/éôø$/))
! 1165: { ($fl,$id)=getflag($dbh,$_);
! 1166: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1167: $_=$u;
! 1168: if ((s/ûøóñ$/ôøóñ/) && (m/éôøóñ$/))
! 1169: { ($fl,$id)=getflag($dbh,$_);
! 1170: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1171: $_=$u;
! 1172: if ((s/å$/ø/) && (m/éôø$/))
! 1173: { ($fl,$id)=getflag($dbh,$_);
! 1174: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1175: $_=$u;
! 1176: if ((s/åóø$/øóñ/) && (m/éôøóñ$/))
! 1177: { ($fl,$id)=getflag($dbh,$_);
! 1178: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1179: $_=$u;
! 1180: if ((s/$/ø/) && (m/éôø$/))
! 1181: { ($fl,$id)=getflag($dbh,$_);
! 1182: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1183: $_=$u;
! 1184: if ((s/óñ$/øóñ/) && (m/éôøóñ$/))
! 1185: { ($fl,$id)=getflag($dbh,$_);
! 1186: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1187: $_=$u;
! 1188: if ((s/ñô$/éôø/) && (m/[^öþûý]éôø$/))
! 1189: { ($fl,$id)=getflag($dbh,$_);
! 1190: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1191: $_=$u;
! 1192: if ((s/ñôóñ$/éôøóñ/) && (m/[^öþûý]éôøóñ$/))
! 1193: { ($fl,$id)=getflag($dbh,$_);
! 1194: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1195: $_=$u;
! 1196: if ((s/áô$/éôø/) && (m/[öþûý]éôø$/))
! 1197: { ($fl,$id)=getflag($dbh,$_);
! 1198: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1199: $_=$u;
! 1200: if ((s/áôóñ$/éôøóñ/) && (m/[öþûý]éôøóñ$/))
! 1201: { ($fl,$id)=getflag($dbh,$_);
! 1202: if ($fl && ($fl=~m/W/)){push @list, $id}}
! 1203: $_=$u;
! 1204: if ((s/øà$/éôø/) && (m/[â÷ìð]éôø$/))
! 1205: { ($fl,$id)=getflag($dbh,$_);
! 1206: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1207: $_=$u;
! 1208: if ((s/øàóø$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
! 1209: { ($fl,$id)=getflag($dbh,$_);
! 1210: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1211: $_=$u;
! 1212: if ((s/øåí$/éôø/) && (m/[â÷ìð]éôø$/))
! 1213: { ($fl,$id)=getflag($dbh,$_);
! 1214: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1215: $_=$u;
! 1216: if ((s/øåíóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
! 1217: { ($fl,$id)=getflag($dbh,$_);
! 1218: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1219: $_=$u;
! 1220: if ((s/øåûø$/éôø/) && (m/[â÷ìð]éôø$/))
! 1221: { ($fl,$id)=getflag($dbh,$_);
! 1222: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1223: $_=$u;
! 1224: if ((s/øåûøóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
! 1225: { ($fl,$id)=getflag($dbh,$_);
! 1226: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1227: $_=$u;
! 1228: if ((s/øåôå$/éôø/) && (m/[â÷ìð]éôø$/))
! 1229: { ($fl,$id)=getflag($dbh,$_);
! 1230: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1231: $_=$u;
! 1232: if ((s/øåôåóø$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
! 1233: { ($fl,$id)=getflag($dbh,$_);
! 1234: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1235: $_=$u;
! 1236: if ((s/øåô$/éôø/) && (m/[â÷ìð]éôø$/))
! 1237: { ($fl,$id)=getflag($dbh,$_);
! 1238: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1239: $_=$u;
! 1240: if ((s/øåôóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
! 1241: { ($fl,$id)=getflag($dbh,$_);
! 1242: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1243: $_=$u;
! 1244: if ((s/øàô$/éôø/) && (m/[â÷ìð]éôø$/))
! 1245: { ($fl,$id)=getflag($dbh,$_);
! 1246: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1247: $_=$u;
! 1248: if ((s/øàôóñ$/éôøóñ/) && (m/[â÷ìð]éôøóñ$/))
! 1249: { ($fl,$id)=getflag($dbh,$_);
! 1250: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1251: $_=$u;
! 1252: if ((s/÷õ$/ôø/) && (m/öéôø$/))
! 1253: { ($fl,$id)=getflag($dbh,$_);
! 1254: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1255: $_=$u;
! 1256: if ((s/÷õóø$/ôøóñ/) && (m/öéôøóñ$/))
! 1257: { ($fl,$id)=getflag($dbh,$_);
! 1258: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1259: $_=$u;
! 1260: if ((s/÷åí$/ôø/) && (m/öéôø$/))
! 1261: { ($fl,$id)=getflag($dbh,$_);
! 1262: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1263: $_=$u;
! 1264: if ((s/÷åíóñ$/ôøóñ/) && (m/öéôøóñ$/))
! 1265: { ($fl,$id)=getflag($dbh,$_);
! 1266: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1267: $_=$u;
! 1268: if ((s/÷åûø$/ôø/) && (m/öéôø$/))
! 1269: { ($fl,$id)=getflag($dbh,$_);
! 1270: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1271: $_=$u;
! 1272: if ((s/÷åûøóñ$/ôøóñ/) && (m/öéôøóñ$/))
! 1273: { ($fl,$id)=getflag($dbh,$_);
! 1274: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1275: $_=$u;
! 1276: if ((s/÷åôå$/ôø/) && (m/öéôø$/))
! 1277: { ($fl,$id)=getflag($dbh,$_);
! 1278: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1279: $_=$u;
! 1280: if ((s/÷åôåóø$/ôøóñ/) && (m/öéôøóñ$/))
! 1281: { ($fl,$id)=getflag($dbh,$_);
! 1282: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1283: $_=$u;
! 1284: if ((s/÷åô$/ôø/) && (m/öéôø$/))
! 1285: { ($fl,$id)=getflag($dbh,$_);
! 1286: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1287: $_=$u;
! 1288: if ((s/÷åôóñ$/ôøóñ/) && (m/öéôøóñ$/))
! 1289: { ($fl,$id)=getflag($dbh,$_);
! 1290: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1291: $_=$u;
! 1292: if ((s/÷õô$/ôø/) && (m/öéôø$/))
! 1293: { ($fl,$id)=getflag($dbh,$_);
! 1294: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1295: $_=$u;
! 1296: if ((s/÷õôóñ$/ôøóñ/) && (m/öéôøóñ$/))
! 1297: { ($fl,$id)=getflag($dbh,$_);
! 1298: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1299: $_=$u;
! 1300: if ((s/õà$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 1301: { ($fl,$id)=getflag($dbh,$_);
! 1302: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1303: $_=$u;
! 1304: if ((s/õåí$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 1305: { ($fl,$id)=getflag($dbh,$_);
! 1306: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1307: $_=$u;
! 1308: if ((s/õåûø$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 1309: { ($fl,$id)=getflag($dbh,$_);
! 1310: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1311: $_=$u;
! 1312: if ((s/õåôå$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 1313: { ($fl,$id)=getflag($dbh,$_);
! 1314: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1315: $_=$u;
! 1316: if ((s/õåô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 1317: { ($fl,$id)=getflag($dbh,$_);
! 1318: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1319: $_=$u;
! 1320: if ((s/õàô$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 1321: { ($fl,$id)=getflag($dbh,$_);
! 1322: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1323: $_=$u;
! 1324: if ((s/õàóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 1325: { ($fl,$id)=getflag($dbh,$_);
! 1326: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1327: $_=$u;
! 1328: if ((s/õåôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 1329: { ($fl,$id)=getflag($dbh,$_);
! 1330: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1331: $_=$u;
! 1332: if ((s/õåûøóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 1333: { ($fl,$id)=getflag($dbh,$_);
! 1334: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1335: $_=$u;
! 1336: if ((s/õåôåóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 1337: { ($fl,$id)=getflag($dbh,$_);
! 1338: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1339: $_=$u;
! 1340: if ((s/õåôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 1341: { ($fl,$id)=getflag($dbh,$_);
! 1342: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1343: $_=$u;
! 1344: if ((s/õàôóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 1345: { ($fl,$id)=getflag($dbh,$_);
! 1346: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1347: $_=$u;
! 1348: if ((s/àà$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 1349: { ($fl,$id)=getflag($dbh,$_);
! 1350: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1351: $_=$u;
! 1352: if ((s/àåí$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 1353: { ($fl,$id)=getflag($dbh,$_);
! 1354: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1355: $_=$u;
! 1356: if ((s/àåûø$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 1357: { ($fl,$id)=getflag($dbh,$_);
! 1358: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1359: $_=$u;
! 1360: if ((s/àåôå$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 1361: { ($fl,$id)=getflag($dbh,$_);
! 1362: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1363: $_=$u;
! 1364: if ((s/àåô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 1365: { ($fl,$id)=getflag($dbh,$_);
! 1366: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1367: $_=$u;
! 1368: if ((s/ààô$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 1369: { ($fl,$id)=getflag($dbh,$_);
! 1370: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1371: $_=$u;
! 1372: if ((s/ààóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 1373: { ($fl,$id)=getflag($dbh,$_);
! 1374: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1375: $_=$u;
! 1376: if ((s/àåíóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 1377: { ($fl,$id)=getflag($dbh,$_);
! 1378: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1379: $_=$u;
! 1380: if ((s/àåûøóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 1381: { ($fl,$id)=getflag($dbh,$_);
! 1382: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1383: $_=$u;
! 1384: if ((s/àåôåóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 1385: { ($fl,$id)=getflag($dbh,$_);
! 1386: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1387: $_=$u;
! 1388: if ((s/àåôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 1389: { ($fl,$id)=getflag($dbh,$_);
! 1390: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1391: $_=$u;
! 1392: if ((s/ààôóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 1393: { ($fl,$id)=getflag($dbh,$_);
! 1394: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1395: $_=$u;
! 1396: if ((s/õà$/ï÷áôø/) && (m/ï÷áôø$/))
! 1397: { ($fl,$id)=getflag($dbh,$_);
! 1398: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1399: $_=$u;
! 1400: if ((s/õåí$/ï÷áôø/) && (m/ï÷áôø$/))
! 1401: { ($fl,$id)=getflag($dbh,$_);
! 1402: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1403: $_=$u;
! 1404: if ((s/õåûø$/ï÷áôø/) && (m/ï÷áôø$/))
! 1405: { ($fl,$id)=getflag($dbh,$_);
! 1406: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1407: $_=$u;
! 1408: if ((s/õåôå$/ï÷áôø/) && (m/ï÷áôø$/))
! 1409: { ($fl,$id)=getflag($dbh,$_);
! 1410: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1411: $_=$u;
! 1412: if ((s/õåô$/ï÷áôø/) && (m/ï÷áôø$/))
! 1413: { ($fl,$id)=getflag($dbh,$_);
! 1414: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1415: $_=$u;
! 1416: if ((s/õàô$/ï÷áôø/) && (m/ï÷áôø$/))
! 1417: { ($fl,$id)=getflag($dbh,$_);
! 1418: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1419: $_=$u;
! 1420: if ((s/õàóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 1421: { ($fl,$id)=getflag($dbh,$_);
! 1422: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1423: $_=$u;
! 1424: if ((s/õåíóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 1425: { ($fl,$id)=getflag($dbh,$_);
! 1426: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1427: $_=$u;
! 1428: if ((s/õåûøóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 1429: { ($fl,$id)=getflag($dbh,$_);
! 1430: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1431: $_=$u;
! 1432: if ((s/õåôåóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 1433: { ($fl,$id)=getflag($dbh,$_);
! 1434: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1435: $_=$u;
! 1436: if ((s/õåôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 1437: { ($fl,$id)=getflag($dbh,$_);
! 1438: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1439: $_=$u;
! 1440: if ((s/õàôóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 1441: { ($fl,$id)=getflag($dbh,$_);
! 1442: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1443: $_=$u;
! 1444: if ((s/îõ$/ôø/) && (m/äåôø$/))
! 1445: { ($fl,$id)=getflag($dbh,$_);
! 1446: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1447: $_=$u;
! 1448: if ((s/îõóø$/ôøóñ/) && (m/äåôøóñ$/))
! 1449: { ($fl,$id)=getflag($dbh,$_);
! 1450: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1451: $_=$u;
! 1452: if ((s/îåí$/ôø/) && (m/äåôø$/))
! 1453: { ($fl,$id)=getflag($dbh,$_);
! 1454: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1455: $_=$u;
! 1456: if ((s/îåíóñ$/ôøóñ/) && (m/äåôøóñ$/))
! 1457: { ($fl,$id)=getflag($dbh,$_);
! 1458: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1459: $_=$u;
! 1460: if ((s/îåûø$/ôø/) && (m/äåôø$/))
! 1461: { ($fl,$id)=getflag($dbh,$_);
! 1462: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1463: $_=$u;
! 1464: if ((s/îåûøóñ$/ôøóñ/) && (m/äåôøóñ$/))
! 1465: { ($fl,$id)=getflag($dbh,$_);
! 1466: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1467: $_=$u;
! 1468: if ((s/îåôå$/ôø/) && (m/äåôø$/))
! 1469: { ($fl,$id)=getflag($dbh,$_);
! 1470: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1471: $_=$u;
! 1472: if ((s/îåôåóø$/ôøóñ/) && (m/äåôøóñ$/))
! 1473: { ($fl,$id)=getflag($dbh,$_);
! 1474: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1475: $_=$u;
! 1476: if ((s/îåô$/ôø/) && (m/äåôø$/))
! 1477: { ($fl,$id)=getflag($dbh,$_);
! 1478: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1479: $_=$u;
! 1480: if ((s/îåôóñ$/ôøóñ/) && (m/äåôøóñ$/))
! 1481: { ($fl,$id)=getflag($dbh,$_);
! 1482: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1483: $_=$u;
! 1484: if ((s/îõô$/ôø/) && (m/äåôø$/))
! 1485: { ($fl,$id)=getflag($dbh,$_);
! 1486: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1487: $_=$u;
! 1488: if ((s/îõôóñ$/ôøóñ/) && (m/äåôøóñ$/))
! 1489: { ($fl,$id)=getflag($dbh,$_);
! 1490: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1491: $_=$u;
! 1492: if ((s/à$/ôø/) && (m/õôø$/))
! 1493: { ($fl,$id)=getflag($dbh,$_);
! 1494: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1495: $_=$u;
! 1496: if ((s/àóø$/ôøóñ/) && (m/õôøóñ$/))
! 1497: { ($fl,$id)=getflag($dbh,$_);
! 1498: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1499: $_=$u;
! 1500: if ((s/åí$/ôø/) && (m/õôø$/))
! 1501: { ($fl,$id)=getflag($dbh,$_);
! 1502: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1503: $_=$u;
! 1504: if ((s/åíóñ$/ôøóñ/) && (m/õôøóñ$/))
! 1505: { ($fl,$id)=getflag($dbh,$_);
! 1506: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1507: $_=$u;
! 1508: if ((s/åûø$/ôø/) && (m/õôø$/))
! 1509: { ($fl,$id)=getflag($dbh,$_);
! 1510: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1511: $_=$u;
! 1512: if ((s/åûøóñ$/ôøóñ/) && (m/õôøóñ$/))
! 1513: { ($fl,$id)=getflag($dbh,$_);
! 1514: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1515: $_=$u;
! 1516: if ((s/åôå$/ôø/) && (m/õôø$/))
! 1517: { ($fl,$id)=getflag($dbh,$_);
! 1518: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1519: $_=$u;
! 1520: if ((s/åôåóø$/ôøóñ/) && (m/õôøóñ$/))
! 1521: { ($fl,$id)=getflag($dbh,$_);
! 1522: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1523: $_=$u;
! 1524: if ((s/åô$/ôø/) && (m/õôø$/))
! 1525: { ($fl,$id)=getflag($dbh,$_);
! 1526: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1527: $_=$u;
! 1528: if ((s/åôóñ$/ôøóñ/) && (m/õôøóñ$/))
! 1529: { ($fl,$id)=getflag($dbh,$_);
! 1530: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1531: $_=$u;
! 1532: if ((s/àô$/ôø/) && (m/õôø$/))
! 1533: { ($fl,$id)=getflag($dbh,$_);
! 1534: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1535: $_=$u;
! 1536: if ((s/àôóñ$/ôøóñ/) && (m/õôøóñ$/))
! 1537: { ($fl,$id)=getflag($dbh,$_);
! 1538: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1539: $_=$u;
! 1540: if ((s/äõ$/èáôø/) && (m/èáôø$/))
! 1541: { ($fl,$id)=getflag($dbh,$_);
! 1542: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1543: $_=$u;
! 1544: if ((s/äõóø$/èáôøóñ/) && (m/èáôøóñ$/))
! 1545: { ($fl,$id)=getflag($dbh,$_);
! 1546: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1547: $_=$u;
! 1548: if ((s/äåí$/èáôø/) && (m/èáôø$/))
! 1549: { ($fl,$id)=getflag($dbh,$_);
! 1550: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1551: $_=$u;
! 1552: if ((s/äåíóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 1553: { ($fl,$id)=getflag($dbh,$_);
! 1554: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1555: $_=$u;
! 1556: if ((s/äåûø$/èáôø/) && (m/èáôø$/))
! 1557: { ($fl,$id)=getflag($dbh,$_);
! 1558: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1559: $_=$u;
! 1560: if ((s/äåûøóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 1561: { ($fl,$id)=getflag($dbh,$_);
! 1562: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1563: $_=$u;
! 1564: if ((s/äåôå$/èáôø/) && (m/èáôø$/))
! 1565: { ($fl,$id)=getflag($dbh,$_);
! 1566: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1567: $_=$u;
! 1568: if ((s/äåôåóø$/èáôøóñ/) && (m/èáôøóñ$/))
! 1569: { ($fl,$id)=getflag($dbh,$_);
! 1570: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1571: $_=$u;
! 1572: if ((s/äåô$/èáôø/) && (m/èáôø$/))
! 1573: { ($fl,$id)=getflag($dbh,$_);
! 1574: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1575: $_=$u;
! 1576: if ((s/äåôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 1577: { ($fl,$id)=getflag($dbh,$_);
! 1578: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1579: $_=$u;
! 1580: if ((s/äõô$/èáôø/) && (m/èáôø$/))
! 1581: { ($fl,$id)=getflag($dbh,$_);
! 1582: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1583: $_=$u;
! 1584: if ((s/äõôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 1585: { ($fl,$id)=getflag($dbh,$_);
! 1586: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1587: $_=$u;
! 1588: if ((s/ìà$/áôø/) && (m/ðáôø$/))
! 1589: { ($fl,$id)=getflag($dbh,$_);
! 1590: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1591: $_=$u;
! 1592: if ((s/ìàóø$/áôøóñ/) && (m/ðáôøóñ$/))
! 1593: { ($fl,$id)=getflag($dbh,$_);
! 1594: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1595: $_=$u;
! 1596: if ((s/ìåí$/áôø/) && (m/ðáôø$/))
! 1597: { ($fl,$id)=getflag($dbh,$_);
! 1598: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1599: $_=$u;
! 1600: if ((s/ìåíóñ$/áôøóñ/) && (m/ðáôøóñ$/))
! 1601: { ($fl,$id)=getflag($dbh,$_);
! 1602: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1603: $_=$u;
! 1604: if ((s/ìåûø$/áôø/) && (m/ðáôø$/))
! 1605: { ($fl,$id)=getflag($dbh,$_);
! 1606: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1607: $_=$u;
! 1608: if ((s/ìåûøóñ$/áôøóñ/) && (m/ðáôøóñ$/))
! 1609: { ($fl,$id)=getflag($dbh,$_);
! 1610: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1611: $_=$u;
! 1612: if ((s/ìåôå$/áôø/) && (m/ðáôø$/))
! 1613: { ($fl,$id)=getflag($dbh,$_);
! 1614: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1615: $_=$u;
! 1616: if ((s/ìåôåóø$/áôøóñ/) && (m/ðáôøóñ$/))
! 1617: { ($fl,$id)=getflag($dbh,$_);
! 1618: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1619: $_=$u;
! 1620: if ((s/ìåô$/áôø/) && (m/ðáôø$/))
! 1621: { ($fl,$id)=getflag($dbh,$_);
! 1622: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1623: $_=$u;
! 1624: if ((s/ìåôóñ$/áôøóñ/) && (m/ðáôøóñ$/))
! 1625: { ($fl,$id)=getflag($dbh,$_);
! 1626: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1627: $_=$u;
! 1628: if ((s/ìàô$/áôø/) && (m/ðáôø$/))
! 1629: { ($fl,$id)=getflag($dbh,$_);
! 1630: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1631: $_=$u;
! 1632: if ((s/ìàôóñ$/áôøóñ/) && (m/ðáôøóñ$/))
! 1633: { ($fl,$id)=getflag($dbh,$_);
! 1634: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1635: $_=$u;
! 1636: if ((s/ñçõ$/åþø/) && (m/ìåþø$/))
! 1637: { ($fl,$id)=getflag($dbh,$_);
! 1638: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1639: $_=$u;
! 1640: if ((s/ñçõóø$/åþøóñ/) && (m/ìåþøóñ$/))
! 1641: { ($fl,$id)=getflag($dbh,$_);
! 1642: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1643: $_=$u;
! 1644: if ((s/ñöåí$/åþø/) && (m/ìåþø$/))
! 1645: { ($fl,$id)=getflag($dbh,$_);
! 1646: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1647: $_=$u;
! 1648: if ((s/ñöåíóñ$/åþøóñ/) && (m/ìåþøóñ$/))
! 1649: { ($fl,$id)=getflag($dbh,$_);
! 1650: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1651: $_=$u;
! 1652: if ((s/ñöåûø$/åþø/) && (m/ìåþø$/))
! 1653: { ($fl,$id)=getflag($dbh,$_);
! 1654: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1655: $_=$u;
! 1656: if ((s/ñöåûøóñ$/åþøóñ/) && (m/ìåþøóñ$/))
! 1657: { ($fl,$id)=getflag($dbh,$_);
! 1658: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1659: $_=$u;
! 1660: if ((s/ñöåôå$/åþø/) && (m/ìåþø$/))
! 1661: { ($fl,$id)=getflag($dbh,$_);
! 1662: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1663: $_=$u;
! 1664: if ((s/ñöåôåóø$/åþøóñ/) && (m/ìåþøóñ$/))
! 1665: { ($fl,$id)=getflag($dbh,$_);
! 1666: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1667: $_=$u;
! 1668: if ((s/ñöåô$/åþø/) && (m/ìåþø$/))
! 1669: { ($fl,$id)=getflag($dbh,$_);
! 1670: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1671: $_=$u;
! 1672: if ((s/ñöåôóñ$/åþøóñ/) && (m/ìåþøóñ$/))
! 1673: { ($fl,$id)=getflag($dbh,$_);
! 1674: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1675: $_=$u;
! 1676: if ((s/ñçõô$/åþø/) && (m/ìåþø$/))
! 1677: { ($fl,$id)=getflag($dbh,$_);
! 1678: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1679: $_=$u;
! 1680: if ((s/ñçõôóñ$/åþøóñ/) && (m/ìåþøóñ$/))
! 1681: { ($fl,$id)=getflag($dbh,$_);
! 1682: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1683: $_=$u;
! 1684: if ((s/à$/ñôø/) && (m/ñôø$/))
! 1685: { ($fl,$id)=getflag($dbh,$_);
! 1686: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1687: $_=$u;
! 1688: if ((s/åí$/ñôø/) && (m/ñôø$/))
! 1689: { ($fl,$id)=getflag($dbh,$_);
! 1690: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1691: $_=$u;
! 1692: if ((s/åûø$/ñôø/) && (m/ñôø$/))
! 1693: { ($fl,$id)=getflag($dbh,$_);
! 1694: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1695: $_=$u;
! 1696: if ((s/åôå$/ñôø/) && (m/ñôø$/))
! 1697: { ($fl,$id)=getflag($dbh,$_);
! 1698: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1699: $_=$u;
! 1700: if ((s/åô$/ñôø/) && (m/ñôø$/))
! 1701: { ($fl,$id)=getflag($dbh,$_);
! 1702: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1703: $_=$u;
! 1704: if ((s/àô$/ñôø/) && (m/ñôø$/))
! 1705: { ($fl,$id)=getflag($dbh,$_);
! 1706: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1707: $_=$u;
! 1708: if ((s/àóø$/ñôøóñ/) && (m/ñôøóñ$/))
! 1709: { ($fl,$id)=getflag($dbh,$_);
! 1710: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1711: $_=$u;
! 1712: if ((s/åíóñ$/ñôøóñ/) && (m/ñôøóñ$/))
! 1713: { ($fl,$id)=getflag($dbh,$_);
! 1714: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1715: $_=$u;
! 1716: if ((s/åûøóñ$/ñôøóñ/) && (m/ñôøóñ$/))
! 1717: { ($fl,$id)=getflag($dbh,$_);
! 1718: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1719: $_=$u;
! 1720: if ((s/åôåóø$/ñôøóñ/) && (m/ñôøóñ$/))
! 1721: { ($fl,$id)=getflag($dbh,$_);
! 1722: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1723: $_=$u;
! 1724: if ((s/åôóñ$/ñôøóñ/) && (m/ñôøóñ$/))
! 1725: { ($fl,$id)=getflag($dbh,$_);
! 1726: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1727: $_=$u;
! 1728: if ((s/àôóñ$/ñôøóñ/) && (m/ñôøóñ$/))
! 1729: { ($fl,$id)=getflag($dbh,$_);
! 1730: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1731: $_=$u;
! 1732: if ((s/õ$/áôø/) && (m/äáôø$/))
! 1733: { ($fl,$id)=getflag($dbh,$_);
! 1734: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1735: $_=$u;
! 1736: if ((s/åí$/áôø/) && (m/äáôø$/))
! 1737: { ($fl,$id)=getflag($dbh,$_);
! 1738: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1739: $_=$u;
! 1740: if ((s/åûø$/áôø/) && (m/äáôø$/))
! 1741: { ($fl,$id)=getflag($dbh,$_);
! 1742: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1743: $_=$u;
! 1744: if ((s/åôå$/áôø/) && (m/äáôø$/))
! 1745: { ($fl,$id)=getflag($dbh,$_);
! 1746: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1747: $_=$u;
! 1748: if ((s/åô$/áôø/) && (m/äáôø$/))
! 1749: { ($fl,$id)=getflag($dbh,$_);
! 1750: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1751: $_=$u;
! 1752: if ((s/õô$/áôø/) && (m/äáôø$/))
! 1753: { ($fl,$id)=getflag($dbh,$_);
! 1754: if ($fl && ($fl=~m/V/)){push @list, $id}}
! 1755: $_=$u;
! 1756: if ((s/öõ$/äåôø/) && (m/äåôø$/))
! 1757: { ($fl,$id)=getflag($dbh,$_);
! 1758: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1759: $_=$u;
! 1760: if ((s/öõóø$/äåôøóñ/) && (m/äåôøóñ$/))
! 1761: { ($fl,$id)=getflag($dbh,$_);
! 1762: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1763: $_=$u;
! 1764: if ((s/ìà$/åôø/) && (m/ðåôø$/))
! 1765: { ($fl,$id)=getflag($dbh,$_);
! 1766: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1767: $_=$u;
! 1768: if ((s/ìàóø$/åôøóñ/) && (m/ðåôøóñ$/))
! 1769: { ($fl,$id)=getflag($dbh,$_);
! 1770: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1771: $_=$u;
! 1772: if ((s/à$/åôø/) && (m/òåôø$/))
! 1773: { ($fl,$id)=getflag($dbh,$_);
! 1774: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1775: $_=$u;
! 1776: if ((s/àóø$/åôøóñ/) && (m/òåôøóñ$/))
! 1777: { ($fl,$id)=getflag($dbh,$_);
! 1778: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1779: $_=$u;
! 1780: if ((s/ûõ$/óåôø/) && (m/óåôø$/))
! 1781: { ($fl,$id)=getflag($dbh,$_);
! 1782: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1783: $_=$u;
! 1784: if ((s/éí$/åôø/) && (m/[äíîðòóô]åôø$/))
! 1785: { ($fl,$id)=getflag($dbh,$_);
! 1786: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1787: $_=$u;
! 1788: if ((s/éíóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
! 1789: { ($fl,$id)=getflag($dbh,$_);
! 1790: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1791: $_=$u;
! 1792: if ((s/éûø$/åôø/) && (m/[äíîðòóô]åôø$/))
! 1793: { ($fl,$id)=getflag($dbh,$_);
! 1794: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1795: $_=$u;
! 1796: if ((s/éûøóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
! 1797: { ($fl,$id)=getflag($dbh,$_);
! 1798: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1799: $_=$u;
! 1800: if ((s/éôå$/åôø/) && (m/[äíîðòóô]åôø$/))
! 1801: { ($fl,$id)=getflag($dbh,$_);
! 1802: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1803: $_=$u;
! 1804: if ((s/éôåóø$/åôøóñ/) && (m/[äòô]åôøóñ$/))
! 1805: { ($fl,$id)=getflag($dbh,$_);
! 1806: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1807: $_=$u;
! 1808: if ((s/éô$/åôø/) && (m/[äíîðòóô]åôø$/))
! 1809: { ($fl,$id)=getflag($dbh,$_);
! 1810: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1811: $_=$u;
! 1812: if ((s/éôóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
! 1813: { ($fl,$id)=getflag($dbh,$_);
! 1814: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1815: $_=$u;
! 1816: if ((s/ñô$/åôø/) && (m/[äíîðòóô]åôø$/))
! 1817: { ($fl,$id)=getflag($dbh,$_);
! 1818: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1819: $_=$u;
! 1820: if ((s/ñôóñ$/åôøóñ/) && (m/[äòô]åôøóñ$/))
! 1821: { ($fl,$id)=getflag($dbh,$_);
! 1822: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1823: $_=$u;
! 1824: if ((s/õäõ$/ùôø/) && (m/âùôø$/))
! 1825: { ($fl,$id)=getflag($dbh,$_);
! 1826: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1827: $_=$u;
! 1828: if ((s/õäõóø$/ùôøóñ/) && (m/âùôøóñ$/))
! 1829: { ($fl,$id)=getflag($dbh,$_);
! 1830: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1831: $_=$u;
! 1832: if ((s/õäåí$/ùôø/) && (m/âùôø$/))
! 1833: { ($fl,$id)=getflag($dbh,$_);
! 1834: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1835: $_=$u;
! 1836: if ((s/õäåíóñ$/ùôøóñ/) && (m/âùôøóñ$/))
! 1837: { ($fl,$id)=getflag($dbh,$_);
! 1838: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1839: $_=$u;
! 1840: if ((s/õäåûø$/ùôø/) && (m/âùôø$/))
! 1841: { ($fl,$id)=getflag($dbh,$_);
! 1842: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1843: $_=$u;
! 1844: if ((s/õäåûøóñ$/ùôøóñ/) && (m/âùôøóñ$/))
! 1845: { ($fl,$id)=getflag($dbh,$_);
! 1846: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1847: $_=$u;
! 1848: if ((s/õäåôå$/ùôø/) && (m/âùôø$/))
! 1849: { ($fl,$id)=getflag($dbh,$_);
! 1850: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1851: $_=$u;
! 1852: if ((s/õäåôåóø$/ùôøóñ/) && (m/âùôøóñ$/))
! 1853: { ($fl,$id)=getflag($dbh,$_);
! 1854: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1855: $_=$u;
! 1856: if ((s/õäåô$/ùôø/) && (m/âùôø$/))
! 1857: { ($fl,$id)=getflag($dbh,$_);
! 1858: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1859: $_=$u;
! 1860: if ((s/õäåôóñ$/ùôøóñ/) && (m/âùôøóñ$/))
! 1861: { ($fl,$id)=getflag($dbh,$_);
! 1862: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1863: $_=$u;
! 1864: if ((s/õäõô$/ùôø/) && (m/âùôø$/))
! 1865: { ($fl,$id)=getflag($dbh,$_);
! 1866: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1867: $_=$u;
! 1868: if ((s/õäõôóñ$/ùôøóñ/) && (m/âùôøóñ$/))
! 1869: { ($fl,$id)=getflag($dbh,$_);
! 1870: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1871: $_=$u;
! 1872: if ((s/÷õ$/ôø/) && (m/ìùôø$/))
! 1873: { ($fl,$id)=getflag($dbh,$_);
! 1874: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1875: $_=$u;
! 1876: if ((s/÷õóø$/ôøóñ/) && (m/ìùôøóñ$/))
! 1877: { ($fl,$id)=getflag($dbh,$_);
! 1878: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1879: $_=$u;
! 1880: if ((s/÷åí$/ôø/) && (m/ìùôø$/))
! 1881: { ($fl,$id)=getflag($dbh,$_);
! 1882: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1883: $_=$u;
! 1884: if ((s/÷åíóñ$/ôøóñ/) && (m/ìùôøóñ$/))
! 1885: { ($fl,$id)=getflag($dbh,$_);
! 1886: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1887: $_=$u;
! 1888: if ((s/÷åûø$/ôø/) && (m/ìùôø$/))
! 1889: { ($fl,$id)=getflag($dbh,$_);
! 1890: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1891: $_=$u;
! 1892: if ((s/÷åûøóñ$/ôøóñ/) && (m/ìùôøóñ$/))
! 1893: { ($fl,$id)=getflag($dbh,$_);
! 1894: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1895: $_=$u;
! 1896: if ((s/÷åôå$/ôø/) && (m/ìùôø$/))
! 1897: { ($fl,$id)=getflag($dbh,$_);
! 1898: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1899: $_=$u;
! 1900: if ((s/÷åôåóø$/ôøóñ/) && (m/ìùôøóñ$/))
! 1901: { ($fl,$id)=getflag($dbh,$_);
! 1902: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1903: $_=$u;
! 1904: if ((s/÷åô$/ôø/) && (m/ìùôø$/))
! 1905: { ($fl,$id)=getflag($dbh,$_);
! 1906: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1907: $_=$u;
! 1908: if ((s/÷åôóñ$/ôøóñ/) && (m/ìùôøóñ$/))
! 1909: { ($fl,$id)=getflag($dbh,$_);
! 1910: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1911: $_=$u;
! 1912: if ((s/÷õô$/ôø/) && (m/ìùôø$/))
! 1913: { ($fl,$id)=getflag($dbh,$_);
! 1914: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1915: $_=$u;
! 1916: if ((s/÷õôóñ$/ôøóñ/) && (m/ìùôøóñ$/))
! 1917: { ($fl,$id)=getflag($dbh,$_);
! 1918: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1919: $_=$u;
! 1920: if ((s/öõ$/úáôø/) && (m/úáôø$/))
! 1921: { ($fl,$id)=getflag($dbh,$_);
! 1922: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1923: $_=$u;
! 1924: if ((s/öõóø$/úáôøóñ/) && (m/úáôøóñ$/))
! 1925: { ($fl,$id)=getflag($dbh,$_);
! 1926: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1927: $_=$u;
! 1928: if ((s/öåí$/úáôø/) && (m/úáôø$/))
! 1929: { ($fl,$id)=getflag($dbh,$_);
! 1930: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1931: $_=$u;
! 1932: if ((s/öåíóñ$/úáôøóñ/) && (m/úáôøóñ$/))
! 1933: { ($fl,$id)=getflag($dbh,$_);
! 1934: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1935: $_=$u;
! 1936: if ((s/öåûø$/úáôø/) && (m/úáôø$/))
! 1937: { ($fl,$id)=getflag($dbh,$_);
! 1938: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1939: $_=$u;
! 1940: if ((s/öåûøóñ$/úáôøóñ/) && (m/úáôøóñ$/))
! 1941: { ($fl,$id)=getflag($dbh,$_);
! 1942: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1943: $_=$u;
! 1944: if ((s/öåôå$/úáôø/) && (m/úáôø$/))
! 1945: { ($fl,$id)=getflag($dbh,$_);
! 1946: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1947: $_=$u;
! 1948: if ((s/öåôåóø$/úáôøóñ/) && (m/úáôøóñ$/))
! 1949: { ($fl,$id)=getflag($dbh,$_);
! 1950: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1951: $_=$u;
! 1952: if ((s/öåô$/úáôø/) && (m/úáôø$/))
! 1953: { ($fl,$id)=getflag($dbh,$_);
! 1954: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1955: $_=$u;
! 1956: if ((s/öåôóñ$/úáôøóñ/) && (m/úáôøóñ$/))
! 1957: { ($fl,$id)=getflag($dbh,$_);
! 1958: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1959: $_=$u;
! 1960: if ((s/öõô$/úáôø/) && (m/úáôø$/))
! 1961: { ($fl,$id)=getflag($dbh,$_);
! 1962: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1963: $_=$u;
! 1964: if ((s/öõôóñ$/úáôøóñ/) && (m/úáôøóñ$/))
! 1965: { ($fl,$id)=getflag($dbh,$_);
! 1966: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1967: $_=$u;
! 1968: if ((s/ûõ$/óáôø/) && (m/[^ï]óáôø$/))
! 1969: { ($fl,$id)=getflag($dbh,$_);
! 1970: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1971: $_=$u;
! 1972: if ((s/ûõóø$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
! 1973: { ($fl,$id)=getflag($dbh,$_);
! 1974: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1975: $_=$u;
! 1976: if ((s/ûåí$/óáôø/) && (m/[^ï]óáôø$/))
! 1977: { ($fl,$id)=getflag($dbh,$_);
! 1978: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1979: $_=$u;
! 1980: if ((s/ûåíóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
! 1981: { ($fl,$id)=getflag($dbh,$_);
! 1982: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1983: $_=$u;
! 1984: if ((s/ûåûø$/óáôø/) && (m/[^ï]óáôø$/))
! 1985: { ($fl,$id)=getflag($dbh,$_);
! 1986: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1987: $_=$u;
! 1988: if ((s/ûåûøóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
! 1989: { ($fl,$id)=getflag($dbh,$_);
! 1990: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1991: $_=$u;
! 1992: if ((s/ûåôå$/óáôø/) && (m/[^ï]óáôø$/))
! 1993: { ($fl,$id)=getflag($dbh,$_);
! 1994: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1995: $_=$u;
! 1996: if ((s/ûåôåóø$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
! 1997: { ($fl,$id)=getflag($dbh,$_);
! 1998: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 1999: $_=$u;
! 2000: if ((s/ûåô$/óáôø/) && (m/[^ï]óáôø$/))
! 2001: { ($fl,$id)=getflag($dbh,$_);
! 2002: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2003: $_=$u;
! 2004: if ((s/ûåôóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
! 2005: { ($fl,$id)=getflag($dbh,$_);
! 2006: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2007: $_=$u;
! 2008: if ((s/ûõô$/óáôø/) && (m/[^ï]óáôø$/))
! 2009: { ($fl,$id)=getflag($dbh,$_);
! 2010: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2011: $_=$u;
! 2012: if ((s/ûõôóñ$/óáôøóñ/) && (m/[^ï]óáôøóñ$/))
! 2013: { ($fl,$id)=getflag($dbh,$_);
! 2014: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2015: $_=$u;
! 2016: if ((s/õ$/áôø/) && (m/ïóáôø$/))
! 2017: { ($fl,$id)=getflag($dbh,$_);
! 2018: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2019: $_=$u;
! 2020: if ((s/õóø$/áôøóñ/) && (m/ïóáôøóñ$/))
! 2021: { ($fl,$id)=getflag($dbh,$_);
! 2022: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2023: $_=$u;
! 2024: if ((s/åí$/áôø/) && (m/ïóáôø$/))
! 2025: { ($fl,$id)=getflag($dbh,$_);
! 2026: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2027: $_=$u;
! 2028: if ((s/åíóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
! 2029: { ($fl,$id)=getflag($dbh,$_);
! 2030: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2031: $_=$u;
! 2032: if ((s/åûø$/áôø/) && (m/ïóáôø$/))
! 2033: { ($fl,$id)=getflag($dbh,$_);
! 2034: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2035: $_=$u;
! 2036: if ((s/åûøóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
! 2037: { ($fl,$id)=getflag($dbh,$_);
! 2038: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2039: $_=$u;
! 2040: if ((s/åôå$/áôø/) && (m/ïóáôø$/))
! 2041: { ($fl,$id)=getflag($dbh,$_);
! 2042: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2043: $_=$u;
! 2044: if ((s/åôåóø$/áôøóñ/) && (m/ïóáôøóñ$/))
! 2045: { ($fl,$id)=getflag($dbh,$_);
! 2046: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2047: $_=$u;
! 2048: if ((s/åô$/áôø/) && (m/ïóáôø$/))
! 2049: { ($fl,$id)=getflag($dbh,$_);
! 2050: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2051: $_=$u;
! 2052: if ((s/åôóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
! 2053: { ($fl,$id)=getflag($dbh,$_);
! 2054: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2055: $_=$u;
! 2056: if ((s/õô$/áôø/) && (m/ïóáôø$/))
! 2057: { ($fl,$id)=getflag($dbh,$_);
! 2058: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2059: $_=$u;
! 2060: if ((s/õôóñ$/áôøóñ/) && (m/ïóáôøóñ$/))
! 2061: { ($fl,$id)=getflag($dbh,$_);
! 2062: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2063: $_=$u;
! 2064: if ((s/çõ$/öáôø/) && (m/öáôø$/))
! 2065: { ($fl,$id)=getflag($dbh,$_);
! 2066: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2067: $_=$u;
! 2068: if ((s/çõóø$/öáôøóñ/) && (m/öáôøóñ$/))
! 2069: { ($fl,$id)=getflag($dbh,$_);
! 2070: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2071: $_=$u;
! 2072: if ((s/éí$/áôø/) && (m/öáôø$/))
! 2073: { ($fl,$id)=getflag($dbh,$_);
! 2074: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2075: $_=$u;
! 2076: if ((s/éíóñ$/áôøóñ/) && (m/öáôøóñ$/))
! 2077: { ($fl,$id)=getflag($dbh,$_);
! 2078: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2079: $_=$u;
! 2080: if ((s/éûø$/áôø/) && (m/öáôø$/))
! 2081: { ($fl,$id)=getflag($dbh,$_);
! 2082: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2083: $_=$u;
! 2084: if ((s/éûøóñ$/áôøóñ/) && (m/öáôøóñ$/))
! 2085: { ($fl,$id)=getflag($dbh,$_);
! 2086: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2087: $_=$u;
! 2088: if ((s/éôå$/áôø/) && (m/öáôø$/))
! 2089: { ($fl,$id)=getflag($dbh,$_);
! 2090: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2091: $_=$u;
! 2092: if ((s/éôåóø$/áôøóñ/) && (m/öáôøóñ$/))
! 2093: { ($fl,$id)=getflag($dbh,$_);
! 2094: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2095: $_=$u;
! 2096: if ((s/éô$/áôø/) && (m/öáôø$/))
! 2097: { ($fl,$id)=getflag($dbh,$_);
! 2098: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2099: $_=$u;
! 2100: if ((s/éôóñ$/áôøóñ/) && (m/öáôøóñ$/))
! 2101: { ($fl,$id)=getflag($dbh,$_);
! 2102: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2103: $_=$u;
! 2104: if ((s/çõô$/öáôø/) && (m/öáôø$/))
! 2105: { ($fl,$id)=getflag($dbh,$_);
! 2106: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2107: $_=$u;
! 2108: if ((s/çõôóñ$/öáôøóñ/) && (m/öáôøóñ$/))
! 2109: { ($fl,$id)=getflag($dbh,$_);
! 2110: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2111: $_=$u;
! 2112: if ((s/à$/éôø/) && (m/ìéôø$/))
! 2113: { ($fl,$id)=getflag($dbh,$_);
! 2114: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2115: $_=$u;
! 2116: if ((s/åí$/éôø/) && (m/ìéôø$/))
! 2117: { ($fl,$id)=getflag($dbh,$_);
! 2118: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2119: $_=$u;
! 2120: if ((s/åûø$/éôø/) && (m/ìéôø$/))
! 2121: { ($fl,$id)=getflag($dbh,$_);
! 2122: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2123: $_=$u;
! 2124: if ((s/åôå$/éôø/) && (m/ìéôø$/))
! 2125: { ($fl,$id)=getflag($dbh,$_);
! 2126: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2127: $_=$u;
! 2128: if ((s/åô$/éôø/) && (m/ìéôø$/))
! 2129: { ($fl,$id)=getflag($dbh,$_);
! 2130: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2131: $_=$u;
! 2132: if ((s/àô$/éôø/) && (m/ìéôø$/))
! 2133: { ($fl,$id)=getflag($dbh,$_);
! 2134: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2135: $_=$u;
! 2136: if ((s/í$/ôø/) && (m/äáôø$/))
! 2137: { ($fl,$id)=getflag($dbh,$_);
! 2138: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2139: $_=$u;
! 2140: if ((s/íóñ$/ôøóñ/) && (m/äáôøóñ$/))
! 2141: { ($fl,$id)=getflag($dbh,$_);
! 2142: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2143: $_=$u;
! 2144: if ((s/äéí$/ôø/) && (m/äáôø$/))
! 2145: { ($fl,$id)=getflag($dbh,$_);
! 2146: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2147: $_=$u;
! 2148: if ((s/äéíóñ$/ôøóñ/) && (m/äáôøóñ$/))
! 2149: { ($fl,$id)=getflag($dbh,$_);
! 2150: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2151: $_=$u;
! 2152: if ((s/ûø$/ôø/) && (m/äáôø$/))
! 2153: { ($fl,$id)=getflag($dbh,$_);
! 2154: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2155: $_=$u;
! 2156: if ((s/ûøóñ$/ôøóñ/) && (m/äáôøóñ$/))
! 2157: { ($fl,$id)=getflag($dbh,$_);
! 2158: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2159: $_=$u;
! 2160: if ((s/äéôå$/ôø/) && (m/äáôø$/))
! 2161: { ($fl,$id)=getflag($dbh,$_);
! 2162: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2163: $_=$u;
! 2164: if ((s/äéôåóø$/ôøóñ/) && (m/äáôøóñ$/))
! 2165: { ($fl,$id)=getflag($dbh,$_);
! 2166: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2167: $_=$u;
! 2168: if ((s/óô$/ôø/) && (m/äáôø$/))
! 2169: { ($fl,$id)=getflag($dbh,$_);
! 2170: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2171: $_=$u;
! 2172: if ((s/óôóñ$/ôøóñ/) && (m/äáôøóñ$/))
! 2173: { ($fl,$id)=getflag($dbh,$_);
! 2174: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2175: $_=$u;
! 2176: if ((s/äõô$/ôø/) && (m/äáôø$/))
! 2177: { ($fl,$id)=getflag($dbh,$_);
! 2178: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2179: $_=$u;
! 2180: if ((s/äõôóñ$/ôøóñ/) && (m/äáôøóñ$/))
! 2181: { ($fl,$id)=getflag($dbh,$_);
! 2182: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2183: $_=$u;
! 2184: if ((s/þõ$/ëáôø/) && (m/[^ó]ëáôø$/))
! 2185: { ($fl,$id)=getflag($dbh,$_);
! 2186: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2187: $_=$u;
! 2188: if ((s/þõóø$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
! 2189: { ($fl,$id)=getflag($dbh,$_);
! 2190: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2191: $_=$u;
! 2192: if ((s/þåí$/ëáôø/) && (m/[^ó]ëáôø$/))
! 2193: { ($fl,$id)=getflag($dbh,$_);
! 2194: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2195: $_=$u;
! 2196: if ((s/þåíóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
! 2197: { ($fl,$id)=getflag($dbh,$_);
! 2198: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2199: $_=$u;
! 2200: if ((s/þåûø$/ëáôø/) && (m/[^ó]ëáôø$/))
! 2201: { ($fl,$id)=getflag($dbh,$_);
! 2202: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2203: $_=$u;
! 2204: if ((s/þåûøóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
! 2205: { ($fl,$id)=getflag($dbh,$_);
! 2206: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2207: $_=$u;
! 2208: if ((s/þåôå$/ëáôø/) && (m/[^ó]ëáôø$/))
! 2209: { ($fl,$id)=getflag($dbh,$_);
! 2210: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2211: $_=$u;
! 2212: if ((s/þåôåóø$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
! 2213: { ($fl,$id)=getflag($dbh,$_);
! 2214: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2215: $_=$u;
! 2216: if ((s/þåô$/ëáôø/) && (m/[^ó]ëáôø$/))
! 2217: { ($fl,$id)=getflag($dbh,$_);
! 2218: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2219: $_=$u;
! 2220: if ((s/þåôóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
! 2221: { ($fl,$id)=getflag($dbh,$_);
! 2222: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2223: $_=$u;
! 2224: if ((s/þõô$/ëáôø/) && (m/[^ó]ëáôø$/))
! 2225: { ($fl,$id)=getflag($dbh,$_);
! 2226: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2227: $_=$u;
! 2228: if ((s/þõôóñ$/ëáôøóñ/) && (m/[^ó]ëáôøóñ$/))
! 2229: { ($fl,$id)=getflag($dbh,$_);
! 2230: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2231: $_=$u;
! 2232: if ((s/ýõ$/óëáôø/) && (m/óëáôø$/))
! 2233: { ($fl,$id)=getflag($dbh,$_);
! 2234: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2235: $_=$u;
! 2236: if ((s/ýõóø$/óëáôøóñ/) && (m/óëáôøóñ$/))
! 2237: { ($fl,$id)=getflag($dbh,$_);
! 2238: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2239: $_=$u;
! 2240: if ((s/ýåí$/óëáôø/) && (m/óëáôø$/))
! 2241: { ($fl,$id)=getflag($dbh,$_);
! 2242: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2243: $_=$u;
! 2244: if ((s/ýåíóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
! 2245: { ($fl,$id)=getflag($dbh,$_);
! 2246: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2247: $_=$u;
! 2248: if ((s/ýåûø$/óëáôø/) && (m/óëáôø$/))
! 2249: { ($fl,$id)=getflag($dbh,$_);
! 2250: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2251: $_=$u;
! 2252: if ((s/ýåûøóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
! 2253: { ($fl,$id)=getflag($dbh,$_);
! 2254: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2255: $_=$u;
! 2256: if ((s/ýåôå$/óëáôø/) && (m/óëáôø$/))
! 2257: { ($fl,$id)=getflag($dbh,$_);
! 2258: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2259: $_=$u;
! 2260: if ((s/ýåôåóø$/óëáôøóñ/) && (m/óëáôøóñ$/))
! 2261: { ($fl,$id)=getflag($dbh,$_);
! 2262: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2263: $_=$u;
! 2264: if ((s/ýåô$/óëáôø/) && (m/óëáôø$/))
! 2265: { ($fl,$id)=getflag($dbh,$_);
! 2266: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2267: $_=$u;
! 2268: if ((s/ýåôóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
! 2269: { ($fl,$id)=getflag($dbh,$_);
! 2270: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2271: $_=$u;
! 2272: if ((s/ýõô$/óëáôø/) && (m/óëáôø$/))
! 2273: { ($fl,$id)=getflag($dbh,$_);
! 2274: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2275: $_=$u;
! 2276: if ((s/ýõôóñ$/óëáôøóñ/) && (m/óëáôøóñ$/))
! 2277: { ($fl,$id)=getflag($dbh,$_);
! 2278: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2279: $_=$u;
! 2280: if ((s/åòõ$/òáôø/) && (m/[âä]òáôø$/))
! 2281: { ($fl,$id)=getflag($dbh,$_);
! 2282: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2283: $_=$u;
! 2284: if ((s/åòõóø$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
! 2285: { ($fl,$id)=getflag($dbh,$_);
! 2286: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2287: $_=$u;
! 2288: if ((s/åòåí$/òáôø/) && (m/[âä]òáôø$/))
! 2289: { ($fl,$id)=getflag($dbh,$_);
! 2290: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2291: $_=$u;
! 2292: if ((s/åòåíóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
! 2293: { ($fl,$id)=getflag($dbh,$_);
! 2294: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2295: $_=$u;
! 2296: if ((s/åòåûø$/òáôø/) && (m/[âä]òáôø$/))
! 2297: { ($fl,$id)=getflag($dbh,$_);
! 2298: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2299: $_=$u;
! 2300: if ((s/åòåûøóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
! 2301: { ($fl,$id)=getflag($dbh,$_);
! 2302: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2303: $_=$u;
! 2304: if ((s/åòåôå$/òáôø/) && (m/[âä]òáôø$/))
! 2305: { ($fl,$id)=getflag($dbh,$_);
! 2306: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2307: $_=$u;
! 2308: if ((s/åòåôåóø$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
! 2309: { ($fl,$id)=getflag($dbh,$_);
! 2310: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2311: $_=$u;
! 2312: if ((s/åòåô$/òáôø/) && (m/[âä]òáôø$/))
! 2313: { ($fl,$id)=getflag($dbh,$_);
! 2314: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2315: $_=$u;
! 2316: if ((s/åòåôóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
! 2317: { ($fl,$id)=getflag($dbh,$_);
! 2318: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2319: $_=$u;
! 2320: if ((s/åòõô$/òáôø/) && (m/[âä]òáôø$/))
! 2321: { ($fl,$id)=getflag($dbh,$_);
! 2322: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2323: $_=$u;
! 2324: if ((s/åòõôóñ$/òáôøóñ/) && (m/[âä]òáôøóñ$/))
! 2325: { ($fl,$id)=getflag($dbh,$_);
! 2326: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2327: $_=$u;
! 2328: if ((s/òõ$/òáôø/) && (m/[^âä]òáôø$/))
! 2329: { ($fl,$id)=getflag($dbh,$_);
! 2330: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2331: $_=$u;
! 2332: if ((s/òõóø$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
! 2333: { ($fl,$id)=getflag($dbh,$_);
! 2334: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2335: $_=$u;
! 2336: if ((s/òåí$/òáôø/) && (m/[^âä]òáôø$/))
! 2337: { ($fl,$id)=getflag($dbh,$_);
! 2338: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2339: $_=$u;
! 2340: if ((s/òåíóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
! 2341: { ($fl,$id)=getflag($dbh,$_);
! 2342: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2343: $_=$u;
! 2344: if ((s/òåûø$/òáôø/) && (m/[^âä]òáôø$/))
! 2345: { ($fl,$id)=getflag($dbh,$_);
! 2346: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2347: $_=$u;
! 2348: if ((s/òåûøóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
! 2349: { ($fl,$id)=getflag($dbh,$_);
! 2350: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2351: $_=$u;
! 2352: if ((s/òåôå$/òáôø/) && (m/[^âä]òáôø$/))
! 2353: { ($fl,$id)=getflag($dbh,$_);
! 2354: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2355: $_=$u;
! 2356: if ((s/òåôåóø$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
! 2357: { ($fl,$id)=getflag($dbh,$_);
! 2358: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2359: $_=$u;
! 2360: if ((s/òåô$/òáôø/) && (m/[^âä]òáôø$/))
! 2361: { ($fl,$id)=getflag($dbh,$_);
! 2362: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2363: $_=$u;
! 2364: if ((s/òåôóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
! 2365: { ($fl,$id)=getflag($dbh,$_);
! 2366: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2367: $_=$u;
! 2368: if ((s/òõô$/òáôø/) && (m/[^âä]òáôø$/))
! 2369: { ($fl,$id)=getflag($dbh,$_);
! 2370: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2371: $_=$u;
! 2372: if ((s/òõôóñ$/òáôøóñ/) && (m/[^âä]òáôøóñ$/))
! 2373: { ($fl,$id)=getflag($dbh,$_);
! 2374: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2375: $_=$u;
! 2376: if ((s/þõ$/ôáôø/) && (m/[^ó]ôáôø$/))
! 2377: { ($fl,$id)=getflag($dbh,$_);
! 2378: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2379: $_=$u;
! 2380: if ((s/þõóø$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
! 2381: { ($fl,$id)=getflag($dbh,$_);
! 2382: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2383: $_=$u;
! 2384: if ((s/þåí$/ôáôø/) && (m/[^ó]ôáôø$/))
! 2385: { ($fl,$id)=getflag($dbh,$_);
! 2386: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2387: $_=$u;
! 2388: if ((s/þåíóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
! 2389: { ($fl,$id)=getflag($dbh,$_);
! 2390: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2391: $_=$u;
! 2392: if ((s/þåûø$/ôáôø/) && (m/[^ó]ôáôø$/))
! 2393: { ($fl,$id)=getflag($dbh,$_);
! 2394: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2395: $_=$u;
! 2396: if ((s/þåûøóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
! 2397: { ($fl,$id)=getflag($dbh,$_);
! 2398: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2399: $_=$u;
! 2400: if ((s/þåôå$/ôáôø/) && (m/[^ó]ôáôø$/))
! 2401: { ($fl,$id)=getflag($dbh,$_);
! 2402: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2403: $_=$u;
! 2404: if ((s/þåôåóø$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
! 2405: { ($fl,$id)=getflag($dbh,$_);
! 2406: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2407: $_=$u;
! 2408: if ((s/þåô$/ôáôø/) && (m/[^ó]ôáôø$/))
! 2409: { ($fl,$id)=getflag($dbh,$_);
! 2410: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2411: $_=$u;
! 2412: if ((s/þåôóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
! 2413: { ($fl,$id)=getflag($dbh,$_);
! 2414: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2415: $_=$u;
! 2416: if ((s/þõô$/ôáôø/) && (m/[^ó]ôáôø$/))
! 2417: { ($fl,$id)=getflag($dbh,$_);
! 2418: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2419: $_=$u;
! 2420: if ((s/þõôóñ$/ôáôøóñ/) && (m/[^ó]ôáôøóñ$/))
! 2421: { ($fl,$id)=getflag($dbh,$_);
! 2422: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2423: $_=$u;
! 2424: if ((s/îõ$/ôø/) && (m/óôáôø$/))
! 2425: { ($fl,$id)=getflag($dbh,$_);
! 2426: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2427: $_=$u;
! 2428: if ((s/îõóø$/ôøóñ/) && (m/óôáôøóñ$/))
! 2429: { ($fl,$id)=getflag($dbh,$_);
! 2430: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2431: $_=$u;
! 2432: if ((s/îåí$/ôø/) && (m/óôáôø$/))
! 2433: { ($fl,$id)=getflag($dbh,$_);
! 2434: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2435: $_=$u;
! 2436: if ((s/îåíóñ$/ôøóñ/) && (m/óôáôøóñ$/))
! 2437: { ($fl,$id)=getflag($dbh,$_);
! 2438: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2439: $_=$u;
! 2440: if ((s/îåûø$/ôø/) && (m/óôáôø$/))
! 2441: { ($fl,$id)=getflag($dbh,$_);
! 2442: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2443: $_=$u;
! 2444: if ((s/îåûøóñ$/ôøóñ/) && (m/óôáôøóñ$/))
! 2445: { ($fl,$id)=getflag($dbh,$_);
! 2446: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2447: $_=$u;
! 2448: if ((s/îåôå$/ôø/) && (m/óôáôø$/))
! 2449: { ($fl,$id)=getflag($dbh,$_);
! 2450: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2451: $_=$u;
! 2452: if ((s/îåôåóø$/ôøóñ/) && (m/óôáôøóñ$/))
! 2453: { ($fl,$id)=getflag($dbh,$_);
! 2454: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2455: $_=$u;
! 2456: if ((s/îåô$/ôø/) && (m/óôáôø$/))
! 2457: { ($fl,$id)=getflag($dbh,$_);
! 2458: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2459: $_=$u;
! 2460: if ((s/îåôóñ$/ôøóñ/) && (m/óôáôøóñ$/))
! 2461: { ($fl,$id)=getflag($dbh,$_);
! 2462: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2463: $_=$u;
! 2464: if ((s/îõô$/ôø/) && (m/óôáôø$/))
! 2465: { ($fl,$id)=getflag($dbh,$_);
! 2466: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2467: $_=$u;
! 2468: if ((s/îõôóñ$/ôøóñ/) && (m/óôáôøóñ$/))
! 2469: { ($fl,$id)=getflag($dbh,$_);
! 2470: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2471: $_=$u;
! 2472: if ((s/ìà$/áôø/) && (m/óðáôø$/))
! 2473: { ($fl,$id)=getflag($dbh,$_);
! 2474: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2475: $_=$u;
! 2476: if ((s/ìàóø$/áôøóñ/) && (m/óðáôøóñ$/))
! 2477: { ($fl,$id)=getflag($dbh,$_);
! 2478: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2479: $_=$u;
! 2480: if ((s/éí$/áôø/) && (m/óðáôø$/))
! 2481: { ($fl,$id)=getflag($dbh,$_);
! 2482: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2483: $_=$u;
! 2484: if ((s/éíóñ$/áôøóñ/) && (m/óðáôøóñ$/))
! 2485: { ($fl,$id)=getflag($dbh,$_);
! 2486: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2487: $_=$u;
! 2488: if ((s/éûø$/áôø/) && (m/óðáôø$/))
! 2489: { ($fl,$id)=getflag($dbh,$_);
! 2490: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2491: $_=$u;
! 2492: if ((s/éûøóñ$/áôøóñ/) && (m/óðáôøóñ$/))
! 2493: { ($fl,$id)=getflag($dbh,$_);
! 2494: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2495: $_=$u;
! 2496: if ((s/éôå$/áôø/) && (m/óðáôø$/))
! 2497: { ($fl,$id)=getflag($dbh,$_);
! 2498: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2499: $_=$u;
! 2500: if ((s/éôåóø$/áôøóñ/) && (m/óðáôøóñ$/))
! 2501: { ($fl,$id)=getflag($dbh,$_);
! 2502: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2503: $_=$u;
! 2504: if ((s/éô$/áôø/) && (m/óðáôø$/))
! 2505: { ($fl,$id)=getflag($dbh,$_);
! 2506: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2507: $_=$u;
! 2508: if ((s/éôóñ$/áôøóñ/) && (m/óðáôøóñ$/))
! 2509: { ($fl,$id)=getflag($dbh,$_);
! 2510: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2511: $_=$u;
! 2512: if ((s/ñô$/áôø/) && (m/óðáôø$/))
! 2513: { ($fl,$id)=getflag($dbh,$_);
! 2514: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2515: $_=$u;
! 2516: if ((s/ñôóñ$/áôøóñ/) && (m/óðáôøóñ$/))
! 2517: { ($fl,$id)=getflag($dbh,$_);
! 2518: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2519: $_=$u;
! 2520: if ((s/ûìà$/óìáôø/) && (m/óìáôø$/))
! 2521: { ($fl,$id)=getflag($dbh,$_);
! 2522: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2523: $_=$u;
! 2524: if ((s/ûìàóø$/óìáôøóñ/) && (m/óìáôøóñ$/))
! 2525: { ($fl,$id)=getflag($dbh,$_);
! 2526: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2527: $_=$u;
! 2528: if ((s/ûìåí$/óìáôø/) && (m/óìáôø$/))
! 2529: { ($fl,$id)=getflag($dbh,$_);
! 2530: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2531: $_=$u;
! 2532: if ((s/ûìåíóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
! 2533: { ($fl,$id)=getflag($dbh,$_);
! 2534: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2535: $_=$u;
! 2536: if ((s/ûìåûø$/óìáôø/) && (m/óìáôø$/))
! 2537: { ($fl,$id)=getflag($dbh,$_);
! 2538: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2539: $_=$u;
! 2540: if ((s/ûìåûøóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
! 2541: { ($fl,$id)=getflag($dbh,$_);
! 2542: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2543: $_=$u;
! 2544: if ((s/ûìåôå$/óìáôø/) && (m/óìáôø$/))
! 2545: { ($fl,$id)=getflag($dbh,$_);
! 2546: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2547: $_=$u;
! 2548: if ((s/ûìåôåóø$/óìáôøóñ/) && (m/óìáôøóñ$/))
! 2549: { ($fl,$id)=getflag($dbh,$_);
! 2550: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2551: $_=$u;
! 2552: if ((s/ûìåô$/óìáôø/) && (m/óìáôø$/))
! 2553: { ($fl,$id)=getflag($dbh,$_);
! 2554: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2555: $_=$u;
! 2556: if ((s/ûìåôóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
! 2557: { ($fl,$id)=getflag($dbh,$_);
! 2558: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2559: $_=$u;
! 2560: if ((s/ûìàô$/óìáôø/) && (m/óìáôø$/))
! 2561: { ($fl,$id)=getflag($dbh,$_);
! 2562: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2563: $_=$u;
! 2564: if ((s/ûìàôóñ$/óìáôøóñ/) && (m/óìáôøóñ$/))
! 2565: { ($fl,$id)=getflag($dbh,$_);
! 2566: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2567: $_=$u;
! 2568: if ((s/õ$/áôø/) && (m/ò÷áôø$/))
! 2569: { ($fl,$id)=getflag($dbh,$_);
! 2570: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2571: $_=$u;
! 2572: if ((s/õóø$/áôøóñ/) && (m/ò÷áôøóñ$/))
! 2573: { ($fl,$id)=getflag($dbh,$_);
! 2574: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2575: $_=$u;
! 2576: if ((s/åí$/áôø/) && (m/ò÷áôø$/))
! 2577: { ($fl,$id)=getflag($dbh,$_);
! 2578: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2579: $_=$u;
! 2580: if ((s/åíóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
! 2581: { ($fl,$id)=getflag($dbh,$_);
! 2582: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2583: $_=$u;
! 2584: if ((s/åûø$/áôø/) && (m/ò÷áôø$/))
! 2585: { ($fl,$id)=getflag($dbh,$_);
! 2586: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2587: $_=$u;
! 2588: if ((s/åûøóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
! 2589: { ($fl,$id)=getflag($dbh,$_);
! 2590: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2591: $_=$u;
! 2592: if ((s/åôå$/áôø/) && (m/ò÷áôø$/))
! 2593: { ($fl,$id)=getflag($dbh,$_);
! 2594: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2595: $_=$u;
! 2596: if ((s/åôåóø$/áôøóñ/) && (m/ò÷áôøóñ$/))
! 2597: { ($fl,$id)=getflag($dbh,$_);
! 2598: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2599: $_=$u;
! 2600: if ((s/åô$/áôø/) && (m/ò÷áôø$/))
! 2601: { ($fl,$id)=getflag($dbh,$_);
! 2602: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2603: $_=$u;
! 2604: if ((s/åôóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
! 2605: { ($fl,$id)=getflag($dbh,$_);
! 2606: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2607: $_=$u;
! 2608: if ((s/õô$/áôø/) && (m/ò÷áôø$/))
! 2609: { ($fl,$id)=getflag($dbh,$_);
! 2610: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2611: $_=$u;
! 2612: if ((s/õôóñ$/áôøóñ/) && (m/ò÷áôøóñ$/))
! 2613: { ($fl,$id)=getflag($dbh,$_);
! 2614: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2615: $_=$u;
! 2616: if ((s/ï÷õ$/÷áôø/) && (m/ú÷áôø$/))
! 2617: { ($fl,$id)=getflag($dbh,$_);
! 2618: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2619: $_=$u;
! 2620: if ((s/ï÷õóø$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
! 2621: { ($fl,$id)=getflag($dbh,$_);
! 2622: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2623: $_=$u;
! 2624: if ((s/ï÷åí$/÷áôø/) && (m/ú÷áôø$/))
! 2625: { ($fl,$id)=getflag($dbh,$_);
! 2626: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2627: $_=$u;
! 2628: if ((s/ï÷åíóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
! 2629: { ($fl,$id)=getflag($dbh,$_);
! 2630: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2631: $_=$u;
! 2632: if ((s/ï÷åûø$/÷áôø/) && (m/ú÷áôø$/))
! 2633: { ($fl,$id)=getflag($dbh,$_);
! 2634: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2635: $_=$u;
! 2636: if ((s/ï÷åûøóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
! 2637: { ($fl,$id)=getflag($dbh,$_);
! 2638: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2639: $_=$u;
! 2640: if ((s/ï÷åôå$/÷áôø/) && (m/ú÷áôø$/))
! 2641: { ($fl,$id)=getflag($dbh,$_);
! 2642: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2643: $_=$u;
! 2644: if ((s/ï÷åôåóø$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
! 2645: { ($fl,$id)=getflag($dbh,$_);
! 2646: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2647: $_=$u;
! 2648: if ((s/ï÷åô$/÷áôø/) && (m/ú÷áôø$/))
! 2649: { ($fl,$id)=getflag($dbh,$_);
! 2650: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2651: $_=$u;
! 2652: if ((s/ï÷åôóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
! 2653: { ($fl,$id)=getflag($dbh,$_);
! 2654: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2655: $_=$u;
! 2656: if ((s/ï÷õô$/÷áôø/) && (m/ú÷áôø$/))
! 2657: { ($fl,$id)=getflag($dbh,$_);
! 2658: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2659: $_=$u;
! 2660: if ((s/ï÷õôóñ$/÷áôøóñ/) && (m/ú÷áôøóñ$/))
! 2661: { ($fl,$id)=getflag($dbh,$_);
! 2662: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2663: $_=$u;
! 2664: if ((s/ïîà$/îáôø/) && (m/çîáôø$/))
! 2665: { ($fl,$id)=getflag($dbh,$_);
! 2666: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2667: $_=$u;
! 2668: if ((s/ïîàóø$/îáôøóñ/) && (m/çîáôøóñ$/))
! 2669: { ($fl,$id)=getflag($dbh,$_);
! 2670: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2671: $_=$u;
! 2672: if ((s/ïîéí$/îáôø/) && (m/çîáôø$/))
! 2673: { ($fl,$id)=getflag($dbh,$_);
! 2674: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2675: $_=$u;
! 2676: if ((s/ïîéíóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
! 2677: { ($fl,$id)=getflag($dbh,$_);
! 2678: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2679: $_=$u;
! 2680: if ((s/ïîéûø$/îáôø/) && (m/çîáôø$/))
! 2681: { ($fl,$id)=getflag($dbh,$_);
! 2682: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2683: $_=$u;
! 2684: if ((s/ïîéûøóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
! 2685: { ($fl,$id)=getflag($dbh,$_);
! 2686: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2687: $_=$u;
! 2688: if ((s/ïîéôå$/îáôø/) && (m/çîáôø$/))
! 2689: { ($fl,$id)=getflag($dbh,$_);
! 2690: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2691: $_=$u;
! 2692: if ((s/ïîéôåóø$/îáôøóñ/) && (m/çîáôøóñ$/))
! 2693: { ($fl,$id)=getflag($dbh,$_);
! 2694: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2695: $_=$u;
! 2696: if ((s/ïîéô$/îáôø/) && (m/çîáôø$/))
! 2697: { ($fl,$id)=getflag($dbh,$_);
! 2698: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2699: $_=$u;
! 2700: if ((s/ïîéôóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
! 2701: { ($fl,$id)=getflag($dbh,$_);
! 2702: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2703: $_=$u;
! 2704: if ((s/ïîñô$/îáôø/) && (m/çîáôø$/))
! 2705: { ($fl,$id)=getflag($dbh,$_);
! 2706: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2707: $_=$u;
! 2708: if ((s/ïîñôóñ$/îáôøóñ/) && (m/çîáôøóñ$/))
! 2709: { ($fl,$id)=getflag($dbh,$_);
! 2710: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2711: $_=$u;
! 2712: if ((s/ûõ$/èáôø/) && (m/èáôø$/))
! 2713: { ($fl,$id)=getflag($dbh,$_);
! 2714: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2715: $_=$u;
! 2716: if ((s/ûõóø$/èáôøóñ/) && (m/èáôøóñ$/))
! 2717: { ($fl,$id)=getflag($dbh,$_);
! 2718: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2719: $_=$u;
! 2720: if ((s/ûåí$/èáôø/) && (m/èáôø$/))
! 2721: { ($fl,$id)=getflag($dbh,$_);
! 2722: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2723: $_=$u;
! 2724: if ((s/ûåíóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 2725: { ($fl,$id)=getflag($dbh,$_);
! 2726: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2727: $_=$u;
! 2728: if ((s/ûåûø$/èáôø/) && (m/èáôø$/))
! 2729: { ($fl,$id)=getflag($dbh,$_);
! 2730: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2731: $_=$u;
! 2732: if ((s/ûåûøóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 2733: { ($fl,$id)=getflag($dbh,$_);
! 2734: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2735: $_=$u;
! 2736: if ((s/ûåôå$/èáôø/) && (m/èáôø$/))
! 2737: { ($fl,$id)=getflag($dbh,$_);
! 2738: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2739: $_=$u;
! 2740: if ((s/ûåôåóø$/èáôøóñ/) && (m/èáôøóñ$/))
! 2741: { ($fl,$id)=getflag($dbh,$_);
! 2742: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2743: $_=$u;
! 2744: if ((s/ûåô$/èáôø/) && (m/èáôø$/))
! 2745: { ($fl,$id)=getflag($dbh,$_);
! 2746: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2747: $_=$u;
! 2748: if ((s/ûåôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 2749: { ($fl,$id)=getflag($dbh,$_);
! 2750: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2751: $_=$u;
! 2752: if ((s/ûõô$/èáôø/) && (m/èáôø$/))
! 2753: { ($fl,$id)=getflag($dbh,$_);
! 2754: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2755: $_=$u;
! 2756: if ((s/ûõôóñ$/èáôøóñ/) && (m/èáôøóñ$/))
! 2757: { ($fl,$id)=getflag($dbh,$_);
! 2758: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2759: $_=$u;
! 2760: if ((s/ôõ$/åóôø/) && (m/þåóôø$/))
! 2761: { ($fl,$id)=getflag($dbh,$_);
! 2762: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2763: $_=$u;
! 2764: if ((s/ôåí$/åóôø/) && (m/þåóôø$/))
! 2765: { ($fl,$id)=getflag($dbh,$_);
! 2766: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2767: $_=$u;
! 2768: if ((s/ôåûø$/åóôø/) && (m/þåóôø$/))
! 2769: { ($fl,$id)=getflag($dbh,$_);
! 2770: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2771: $_=$u;
! 2772: if ((s/ôåôå$/åóôø/) && (m/þåóôø$/))
! 2773: { ($fl,$id)=getflag($dbh,$_);
! 2774: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2775: $_=$u;
! 2776: if ((s/ôåô$/åóôø/) && (m/þåóôø$/))
! 2777: { ($fl,$id)=getflag($dbh,$_);
! 2778: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2779: $_=$u;
! 2780: if ((s/ôõô$/åóôø/) && (m/þåóôø$/))
! 2781: { ($fl,$id)=getflag($dbh,$_);
! 2782: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2783: $_=$u;
! 2784: if ((s/ñäõ$/åóôø/) && (m/óåóôø$/))
! 2785: { ($fl,$id)=getflag($dbh,$_);
! 2786: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2787: $_=$u;
! 2788: if ((s/ñäåí$/åóôø/) && (m/óåóôø$/))
! 2789: { ($fl,$id)=getflag($dbh,$_);
! 2790: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2791: $_=$u;
! 2792: if ((s/ñäåûø$/åóôø/) && (m/óåóôø$/))
! 2793: { ($fl,$id)=getflag($dbh,$_);
! 2794: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2795: $_=$u;
! 2796: if ((s/ñäåôå$/åóôø/) && (m/óåóôø$/))
! 2797: { ($fl,$id)=getflag($dbh,$_);
! 2798: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2799: $_=$u;
! 2800: if ((s/ñäåô$/åóôø/) && (m/óåóôø$/))
! 2801: { ($fl,$id)=getflag($dbh,$_);
! 2802: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2803: $_=$u;
! 2804: if ((s/ñäõô$/åóôø/) && (m/óåóôø$/))
! 2805: { ($fl,$id)=getflag($dbh,$_);
! 2806: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2807: $_=$u;
! 2808: if ((s/õ$/ôø/) && (m/ìåúôø$/))
! 2809: { ($fl,$id)=getflag($dbh,$_);
! 2810: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2811: $_=$u;
! 2812: if ((s/åí$/ôø/) && (m/ìåúôø$/))
! 2813: { ($fl,$id)=getflag($dbh,$_);
! 2814: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2815: $_=$u;
! 2816: if ((s/åûø$/ôø/) && (m/ìåúôø$/))
! 2817: { ($fl,$id)=getflag($dbh,$_);
! 2818: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2819: $_=$u;
! 2820: if ((s/åôå$/ôø/) && (m/ìåúôø$/))
! 2821: { ($fl,$id)=getflag($dbh,$_);
! 2822: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2823: $_=$u;
! 2824: if ((s/åô$/ôø/) && (m/ìåúôø$/))
! 2825: { ($fl,$id)=getflag($dbh,$_);
! 2826: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2827: $_=$u;
! 2828: if ((s/õô$/ôø/) && (m/ìåúôø$/))
! 2829: { ($fl,$id)=getflag($dbh,$_);
! 2830: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2831: $_=$u;
! 2832: if ((s/äõ$/óôø/) && (m/áóôø$/))
! 2833: { ($fl,$id)=getflag($dbh,$_);
! 2834: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2835: $_=$u;
! 2836: if ((s/äõóø$/óôøóñ/) && (m/áóôøóñ$/))
! 2837: { ($fl,$id)=getflag($dbh,$_);
! 2838: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2839: $_=$u;
! 2840: if ((s/äåí$/óôø/) && (m/áóôø$/))
! 2841: { ($fl,$id)=getflag($dbh,$_);
! 2842: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2843: $_=$u;
! 2844: if ((s/äåíóñ$/óôøóñ/) && (m/áóôøóñ$/))
! 2845: { ($fl,$id)=getflag($dbh,$_);
! 2846: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2847: $_=$u;
! 2848: if ((s/äåûø$/óôø/) && (m/áóôø$/))
! 2849: { ($fl,$id)=getflag($dbh,$_);
! 2850: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2851: $_=$u;
! 2852: if ((s/äåûøóñ$/óôøóñ/) && (m/áóôøóñ$/))
! 2853: { ($fl,$id)=getflag($dbh,$_);
! 2854: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2855: $_=$u;
! 2856: if ((s/äåôå$/óôø/) && (m/áóôø$/))
! 2857: { ($fl,$id)=getflag($dbh,$_);
! 2858: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2859: $_=$u;
! 2860: if ((s/äåôåóø$/óôøóñ/) && (m/áóôøóñ$/))
! 2861: { ($fl,$id)=getflag($dbh,$_);
! 2862: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2863: $_=$u;
! 2864: if ((s/äåô$/óôø/) && (m/áóôø$/))
! 2865: { ($fl,$id)=getflag($dbh,$_);
! 2866: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2867: $_=$u;
! 2868: if ((s/äåôóñ$/óôøóñ/) && (m/áóôøóñ$/))
! 2869: { ($fl,$id)=getflag($dbh,$_);
! 2870: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2871: $_=$u;
! 2872: if ((s/äõô$/óôø/) && (m/áóôø$/))
! 2873: { ($fl,$id)=getflag($dbh,$_);
! 2874: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2875: $_=$u;
! 2876: if ((s/äõôóñ$/óôøóñ/) && (m/áóôøóñ$/))
! 2877: { ($fl,$id)=getflag($dbh,$_);
! 2878: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2879: $_=$u;
! 2880: if ((s/îõ$/ñôø/) && (m/íñôø$/))
! 2881: { ($fl,$id)=getflag($dbh,$_);
! 2882: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2883: $_=$u;
! 2884: if ((s/îõóø$/ñôøóñ/) && (m/íñôøóñ$/))
! 2885: { ($fl,$id)=getflag($dbh,$_);
! 2886: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2887: $_=$u;
! 2888: if ((s/îåí$/ñôø/) && (m/íñôø$/))
! 2889: { ($fl,$id)=getflag($dbh,$_);
! 2890: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2891: $_=$u;
! 2892: if ((s/îåíóñ$/ñôøóñ/) && (m/íñôøóñ$/))
! 2893: { ($fl,$id)=getflag($dbh,$_);
! 2894: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2895: $_=$u;
! 2896: if ((s/îåûø$/ñôø/) && (m/íñôø$/))
! 2897: { ($fl,$id)=getflag($dbh,$_);
! 2898: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2899: $_=$u;
! 2900: if ((s/îåûøóñ$/ñôøóñ/) && (m/íñôøóñ$/))
! 2901: { ($fl,$id)=getflag($dbh,$_);
! 2902: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2903: $_=$u;
! 2904: if ((s/îåôå$/ñôø/) && (m/íñôø$/))
! 2905: { ($fl,$id)=getflag($dbh,$_);
! 2906: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2907: $_=$u;
! 2908: if ((s/îåôåóø$/ñôøóñ/) && (m/íñôøóñ$/))
! 2909: { ($fl,$id)=getflag($dbh,$_);
! 2910: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2911: $_=$u;
! 2912: if ((s/îåô$/ñôø/) && (m/íñôø$/))
! 2913: { ($fl,$id)=getflag($dbh,$_);
! 2914: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2915: $_=$u;
! 2916: if ((s/îåôóñ$/ñôøóñ/) && (m/íñôøóñ$/))
! 2917: { ($fl,$id)=getflag($dbh,$_);
! 2918: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2919: $_=$u;
! 2920: if ((s/îõô$/ñôø/) && (m/íñôø$/))
! 2921: { ($fl,$id)=getflag($dbh,$_);
! 2922: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2923: $_=$u;
! 2924: if ((s/îõôóñ$/ñôøóñ/) && (m/íñôøóñ$/))
! 2925: { ($fl,$id)=getflag($dbh,$_);
! 2926: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2927: $_=$u;
! 2928: if ((s/õ$/é/) && (m/òáóôé$/))
! 2929: { ($fl,$id)=getflag($dbh,$_);
! 2930: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2931: $_=$u;
! 2932: if ((s/åí$/é/) && (m/òáóôé$/))
! 2933: { ($fl,$id)=getflag($dbh,$_);
! 2934: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2935: $_=$u;
! 2936: if ((s/åûø$/é/) && (m/òáóôé$/))
! 2937: { ($fl,$id)=getflag($dbh,$_);
! 2938: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2939: $_=$u;
! 2940: if ((s/åôå$/é/) && (m/òáóôé$/))
! 2941: { ($fl,$id)=getflag($dbh,$_);
! 2942: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2943: $_=$u;
! 2944: if ((s/åô$/é/) && (m/òáóôé$/))
! 2945: { ($fl,$id)=getflag($dbh,$_);
! 2946: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2947: $_=$u;
! 2948: if ((s/õô$/é/) && (m/òáóôé$/))
! 2949: { ($fl,$id)=getflag($dbh,$_);
! 2950: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2951: $_=$u;
! 2952: if ((s/äõ$/óôé/) && (m/÷åóôé$/))
! 2953: { ($fl,$id)=getflag($dbh,$_);
! 2954: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2955: $_=$u;
! 2956: if ((s/äõóø$/óôéóø/) && (m/÷åóôéóø$/))
! 2957: { ($fl,$id)=getflag($dbh,$_);
! 2958: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2959: $_=$u;
! 2960: if ((s/äåí$/óôé/) && (m/÷åóôé$/))
! 2961: { ($fl,$id)=getflag($dbh,$_);
! 2962: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2963: $_=$u;
! 2964: if ((s/äåíóñ$/óôéóø/) && (m/÷åóôéóø$/))
! 2965: { ($fl,$id)=getflag($dbh,$_);
! 2966: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2967: $_=$u;
! 2968: if ((s/äåûø$/óôé/) && (m/÷åóôé$/))
! 2969: { ($fl,$id)=getflag($dbh,$_);
! 2970: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2971: $_=$u;
! 2972: if ((s/äåûøóñ$/óôéóø/) && (m/÷åóôéóø$/))
! 2973: { ($fl,$id)=getflag($dbh,$_);
! 2974: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2975: $_=$u;
! 2976: if ((s/äåôå$/óôé/) && (m/÷åóôé$/))
! 2977: { ($fl,$id)=getflag($dbh,$_);
! 2978: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2979: $_=$u;
! 2980: if ((s/äåôåóø$/óôéóø/) && (m/÷åóôéóø$/))
! 2981: { ($fl,$id)=getflag($dbh,$_);
! 2982: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2983: $_=$u;
! 2984: if ((s/äåô$/óôé/) && (m/÷åóôé$/))
! 2985: { ($fl,$id)=getflag($dbh,$_);
! 2986: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2987: $_=$u;
! 2988: if ((s/äåôóñ$/óôéóø/) && (m/÷åóôéóø$/))
! 2989: { ($fl,$id)=getflag($dbh,$_);
! 2990: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2991: $_=$u;
! 2992: if ((s/äõô$/óôé/) && (m/÷åóôé$/))
! 2993: { ($fl,$id)=getflag($dbh,$_);
! 2994: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2995: $_=$u;
! 2996: if ((s/äõôóñ$/óôéóø/) && (m/÷åóôéóø$/))
! 2997: { ($fl,$id)=getflag($dbh,$_);
! 2998: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 2999: $_=$u;
! 3000: if ((s/ôõ$/óôé/) && (m/ìåóôé$/))
! 3001: { ($fl,$id)=getflag($dbh,$_);
! 3002: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3003: $_=$u;
! 3004: if ((s/ôõóø$/óôéóø/) && (m/ìåóôéóø$/))
! 3005: { ($fl,$id)=getflag($dbh,$_);
! 3006: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3007: $_=$u;
! 3008: if ((s/ôåí$/óôé/) && (m/ìåóôé$/))
! 3009: { ($fl,$id)=getflag($dbh,$_);
! 3010: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3011: $_=$u;
! 3012: if ((s/ôåíóñ$/óôéóø/) && (m/ìåóôéóø$/))
! 3013: { ($fl,$id)=getflag($dbh,$_);
! 3014: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3015: $_=$u;
! 3016: if ((s/ôåûø$/óôé/) && (m/ìåóôé$/))
! 3017: { ($fl,$id)=getflag($dbh,$_);
! 3018: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3019: $_=$u;
! 3020: if ((s/ôåûøóñ$/óôéóø/) && (m/ìåóôéóø$/))
! 3021: { ($fl,$id)=getflag($dbh,$_);
! 3022: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3023: $_=$u;
! 3024: if ((s/ôåôå$/óôé/) && (m/ìåóôé$/))
! 3025: { ($fl,$id)=getflag($dbh,$_);
! 3026: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3027: $_=$u;
! 3028: if ((s/ôåôåóø$/óôéóø/) && (m/ìåóôéóø$/))
! 3029: { ($fl,$id)=getflag($dbh,$_);
! 3030: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3031: $_=$u;
! 3032: if ((s/ôåô$/óôé/) && (m/ìåóôé$/))
! 3033: { ($fl,$id)=getflag($dbh,$_);
! 3034: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3035: $_=$u;
! 3036: if ((s/ôåôóñ$/óôéóø/) && (m/ìåóôéóø$/))
! 3037: { ($fl,$id)=getflag($dbh,$_);
! 3038: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3039: $_=$u;
! 3040: if ((s/ôõô$/óôé/) && (m/ìåóôé$/))
! 3041: { ($fl,$id)=getflag($dbh,$_);
! 3042: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3043: $_=$u;
! 3044: if ((s/ôõôóñ$/óôéóø/) && (m/ìåóôéóø$/))
! 3045: { ($fl,$id)=getflag($dbh,$_);
! 3046: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3047: $_=$u;
! 3048: if ((s/âõ$/óôé/) && (m/òåóôé$/))
! 3049: { ($fl,$id)=getflag($dbh,$_);
! 3050: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3051: $_=$u;
! 3052: if ((s/âåí$/óôé/) && (m/òåóôé$/))
! 3053: { ($fl,$id)=getflag($dbh,$_);
! 3054: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3055: $_=$u;
! 3056: if ((s/âåûø$/óôé/) && (m/òåóôé$/))
! 3057: { ($fl,$id)=getflag($dbh,$_);
! 3058: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3059: $_=$u;
! 3060: if ((s/âåôå$/óôé/) && (m/òåóôé$/))
! 3061: { ($fl,$id)=getflag($dbh,$_);
! 3062: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3063: $_=$u;
! 3064: if ((s/âåô$/óôé/) && (m/òåóôé$/))
! 3065: { ($fl,$id)=getflag($dbh,$_);
! 3066: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3067: $_=$u;
! 3068: if ((s/âõô$/óôé/) && (m/òåóôé$/))
! 3069: { ($fl,$id)=getflag($dbh,$_);
! 3070: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3071: $_=$u;
! 3072: if ((s/çõ$/þø/) && (m/þø$/))
! 3073: { ($fl,$id)=getflag($dbh,$_);
! 3074: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3075: $_=$u;
! 3076: if ((s/öåí$/þø/) && (m/þø$/))
! 3077: { ($fl,$id)=getflag($dbh,$_);
! 3078: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3079: $_=$u;
! 3080: if ((s/öåûø$/þø/) && (m/þø$/))
! 3081: { ($fl,$id)=getflag($dbh,$_);
! 3082: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3083: $_=$u;
! 3084: if ((s/öåôå$/þø/) && (m/þø$/))
! 3085: { ($fl,$id)=getflag($dbh,$_);
! 3086: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3087: $_=$u;
! 3088: if ((s/öåô$/þø/) && (m/þø$/))
! 3089: { ($fl,$id)=getflag($dbh,$_);
! 3090: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3091: $_=$u;
! 3092: if ((s/çõô$/þø/) && (m/þø$/))
! 3093: { ($fl,$id)=getflag($dbh,$_);
! 3094: if ($fl && ($fl=~m/Y/)){push @list, $id}}
! 3095: $_=$u;
! 3096: if ((s/ê$/ôø/) && (m/[áåñ]ôø$/))
! 3097: { ($fl,$id)=getflag($dbh,$_);
! 3098: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3099: $_=$u;
! 3100: if ((s/êóñ$/ôøóñ/) && (m/[áåñ]ôøóñ$/))
! 3101: { ($fl,$id)=getflag($dbh,$_);
! 3102: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3103: $_=$u;
! 3104: if ((s/êôå$/ôø/) && (m/[áåñ]ôø$/))
! 3105: { ($fl,$id)=getflag($dbh,$_);
! 3106: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3107: $_=$u;
! 3108: if ((s/êôåóø$/ôøóñ/) && (m/[áåñ]ôøóñ$/))
! 3109: { ($fl,$id)=getflag($dbh,$_);
! 3110: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3111: $_=$u;
! 3112: if ((s/$/ôø/) && (m/éôø$/))
! 3113: { ($fl,$id)=getflag($dbh,$_);
! 3114: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3115: $_=$u;
! 3116: if ((s/å$/ø/) && (m/éôø$/))
! 3117: { ($fl,$id)=getflag($dbh,$_);
! 3118: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3119: $_=$u;
! 3120: if ((s/óø$/ôøóñ/) && (m/éôøóñ$/))
! 3121: { ($fl,$id)=getflag($dbh,$_);
! 3122: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3123: $_=$u;
! 3124: if ((s/ôåóø$/ôøóñ/) && (m/éôøóñ$/))
! 3125: { ($fl,$id)=getflag($dbh,$_);
! 3126: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3127: $_=$u;
! 3128: if ((s/é$/ïôø/) && (m/ïôø$/))
! 3129: { ($fl,$id)=getflag($dbh,$_);
! 3130: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3131: $_=$u;
! 3132: if ((s/éôå$/ïôø/) && (m/ïôø$/))
! 3133: { ($fl,$id)=getflag($dbh,$_);
! 3134: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3135: $_=$u;
! 3136: if ((s/éóø$/ïôøóñ/) && (m/ïôøóñ$/))
! 3137: { ($fl,$id)=getflag($dbh,$_);
! 3138: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3139: $_=$u;
! 3140: if ((s/éôåóø$/ïôøóñ/) && (m/ïôøóñ$/))
! 3141: { ($fl,$id)=getflag($dbh,$_);
! 3142: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3143: $_=$u;
! 3144: if ((s/é$/õôø/) && (m/õôø$/))
! 3145: { ($fl,$id)=getflag($dbh,$_);
! 3146: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3147: $_=$u;
! 3148: if ((s/éôå$/õôø/) && (m/õôø$/))
! 3149: { ($fl,$id)=getflag($dbh,$_);
! 3150: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3151: $_=$u;
! 3152: if ((s/éóø$/õôøóñ/) && (m/õôøóñ$/))
! 3153: { ($fl,$id)=getflag($dbh,$_);
! 3154: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3155: $_=$u;
! 3156: if ((s/éôåóø$/õôøóñ/) && (m/õôøóñ$/))
! 3157: { ($fl,$id)=getflag($dbh,$_);
! 3158: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3159: $_=$u;
! 3160: if ((s/ïê$/ùôø/) && (m/ùôø$/))
! 3161: { ($fl,$id)=getflag($dbh,$_);
! 3162: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3163: $_=$u;
! 3164: if ((s/ïêôå$/ùôø/) && (m/ùôø$/))
! 3165: { ($fl,$id)=getflag($dbh,$_);
! 3166: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3167: $_=$u;
! 3168: if ((s/ïêóñ$/ùôøóñ/) && (m/ùôøóñ$/))
! 3169: { ($fl,$id)=getflag($dbh,$_);
! 3170: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3171: $_=$u;
! 3172: if ((s/ïêôåóø$/ùôøóñ/) && (m/ùôøóñ$/))
! 3173: { ($fl,$id)=getflag($dbh,$_);
! 3174: if ($fl && ($fl=~m/B/)){push @list, $id}}
! 3175: $_=$u;
! 3176: if ((s/õê$/ï÷áôø/) && (m/ï÷áôø$/))
! 3177: { ($fl,$id)=getflag($dbh,$_);
! 3178: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3179: $_=$u;
! 3180: if ((s/õêóñ$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 3181: { ($fl,$id)=getflag($dbh,$_);
! 3182: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3183: $_=$u;
! 3184: if ((s/õêôå$/ï÷áôø/) && (m/ï÷áôø$/))
! 3185: { ($fl,$id)=getflag($dbh,$_);
! 3186: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3187: $_=$u;
! 3188: if ((s/õêôåóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 3189: { ($fl,$id)=getflag($dbh,$_);
! 3190: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3191: $_=$u;
! 3192: if ((s/õê$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 3193: { ($fl,$id)=getflag($dbh,$_);
! 3194: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3195: $_=$u;
! 3196: if ((s/õêôå$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 3197: { ($fl,$id)=getflag($dbh,$_);
! 3198: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3199: $_=$u;
! 3200: if ((s/õêóñ$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 3201: { ($fl,$id)=getflag($dbh,$_);
! 3202: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3203: $_=$u;
! 3204: if ((s/õêôåóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 3205: { ($fl,$id)=getflag($dbh,$_);
! 3206: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3207: $_=$u;
! 3208: if ((s/àê$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 3209: { ($fl,$id)=getflag($dbh,$_);
! 3210: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3211: $_=$u;
! 3212: if ((s/àêôå$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 3213: { ($fl,$id)=getflag($dbh,$_);
! 3214: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3215: $_=$u;
! 3216: if ((s/àêóñ$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 3217: { ($fl,$id)=getflag($dbh,$_);
! 3218: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3219: $_=$u;
! 3220: if ((s/àêôåóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 3221: { ($fl,$id)=getflag($dbh,$_);
! 3222: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3223: $_=$u;
! 3224: if ((s/é$/áôø/) && (m/[öþ]áôø$/))
! 3225: { ($fl,$id)=getflag($dbh,$_);
! 3226: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3227: $_=$u;
! 3228: if ((s/éóø$/áôøóñ/) && (m/[öþ]áôøóñ$/))
! 3229: { ($fl,$id)=getflag($dbh,$_);
! 3230: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3231: $_=$u;
! 3232: if ((s/ûé$/óáôø/) && (m/óáôø$/))
! 3233: { ($fl,$id)=getflag($dbh,$_);
! 3234: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3235: $_=$u;
! 3236: if ((s/ûéôå$/óáôø/) && (m/óáôø$/))
! 3237: { ($fl,$id)=getflag($dbh,$_);
! 3238: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3239: $_=$u;
! 3240: if ((s/ûéóø$/óáôøóñ/) && (m/óáôøóñ$/))
! 3241: { ($fl,$id)=getflag($dbh,$_);
! 3242: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3243: $_=$u;
! 3244: if ((s/ûéôåóø$/óáôøóñ/) && (m/óáôøóñ$/))
! 3245: { ($fl,$id)=getflag($dbh,$_);
! 3246: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3247: $_=$u;
! 3248: if ((s/ê$/éôø/) && (m/[áåï]éôø$/))
! 3249: { ($fl,$id)=getflag($dbh,$_);
! 3250: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3251: $_=$u;
! 3252: if ((s/êôå$/éôø/) && (m/[áåï]éôø$/))
! 3253: { ($fl,$id)=getflag($dbh,$_);
! 3254: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3255: $_=$u;
! 3256: if ((s/êóñ$/éôøóñ/) && (m/[áåï]éôøóñ$/))
! 3257: { ($fl,$id)=getflag($dbh,$_);
! 3258: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3259: $_=$u;
! 3260: if ((s/êôåóø$/éôøóñ/) && (m/[áåï]éôøóñ$/))
! 3261: { ($fl,$id)=getflag($dbh,$_);
! 3262: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3263: $_=$u;
! 3264: if ((s/ø$/éôø/) && (m/[^áåï]éôø$/))
! 3265: { ($fl,$id)=getflag($dbh,$_);
! 3266: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3267: $_=$u;
! 3268: if ((s/øôå$/éôø/) && (m/[^áåï]éôø$/))
! 3269: { ($fl,$id)=getflag($dbh,$_);
! 3270: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3271: $_=$u;
! 3272: if ((s/øóñ$/éôøóñ/) && (m/[^áåï]éôøóñ$/))
! 3273: { ($fl,$id)=getflag($dbh,$_);
! 3274: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3275: $_=$u;
! 3276: if ((s/øôåóø$/éôøóñ/) && (m/[^áåï]éôøóñ$/))
! 3277: { ($fl,$id)=getflag($dbh,$_);
! 3278: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3279: $_=$u;
! 3280: if ((s/ø$/õôø/) && (m/õôø$/))
! 3281: { ($fl,$id)=getflag($dbh,$_);
! 3282: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3283: $_=$u;
! 3284: if ((s/øôå$/õôø/) && (m/õôø$/))
! 3285: { ($fl,$id)=getflag($dbh,$_);
! 3286: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3287: $_=$u;
! 3288: if ((s/øóñ$/õôøóñ/) && (m/õôøóñ$/))
! 3289: { ($fl,$id)=getflag($dbh,$_);
! 3290: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3291: $_=$u;
! 3292: if ((s/øôåóø$/õôøóñ/) && (m/õôøóñ$/))
! 3293: { ($fl,$id)=getflag($dbh,$_);
! 3294: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3295: $_=$u;
! 3296: if ((s/ê$/ñôø/) && (m/[áåïõ]ñôø$/))
! 3297: { ($fl,$id)=getflag($dbh,$_);
! 3298: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3299: $_=$u;
! 3300: if ((s/êôå$/ñôø/) && (m/[áåïõ]ñôø$/))
! 3301: { ($fl,$id)=getflag($dbh,$_);
! 3302: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3303: $_=$u;
! 3304: if ((s/êóñ$/ñôøóñ/) && (m/[áåïõ]ñôøóñ$/))
! 3305: { ($fl,$id)=getflag($dbh,$_);
! 3306: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3307: $_=$u;
! 3308: if ((s/êôåóø$/ñôøóñ/) && (m/[áåïõ]ñôøóñ$/))
! 3309: { ($fl,$id)=getflag($dbh,$_);
! 3310: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3311: $_=$u;
! 3312: if ((s/é$/åôø/) && (m/åôø$/))
! 3313: { ($fl,$id)=getflag($dbh,$_);
! 3314: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3315: $_=$u;
! 3316: if ((s/éóø$/åôøóñ/) && (m/åôøóñ$/))
! 3317: { ($fl,$id)=getflag($dbh,$_);
! 3318: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3319: $_=$u;
! 3320: if ((s/éôå$/åôø/) && (m/åôø$/))
! 3321: { ($fl,$id)=getflag($dbh,$_);
! 3322: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3323: $_=$u;
! 3324: if ((s/éôåóø$/åôøóñ/) && (m/åôøóñ$/))
! 3325: { ($fl,$id)=getflag($dbh,$_);
! 3326: if ($fl && ($fl=~m/T/)){push @list, $id}}
! 3327: $_=$u;
! 3328: if ((s/ñ$/ôø/) && (m/[áå]ôø$/))
! 3329: { ($fl,$id)=getflag($dbh,$_);
! 3330: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3331: $_=$u;
! 3332: if ((s/ñóø$/ôøóñ/) && (m/[áå]ôøóñ$/))
! 3333: { ($fl,$id)=getflag($dbh,$_);
! 3334: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3335: $_=$u;
! 3336: if ((s/ñ$/ôø/) && (m/[^áåïõ]ñôø$/))
! 3337: { ($fl,$id)=getflag($dbh,$_);
! 3338: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3339: $_=$u;
! 3340: if ((s/ñóø$/ôøóñ/) && (m/[^áåïõ]ñôøóñ$/))
! 3341: { ($fl,$id)=getflag($dbh,$_);
! 3342: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3343: $_=$u;
! 3344: if ((s/$/ôø/) && (m/[áåïõ]ñôø$/))
! 3345: { ($fl,$id)=getflag($dbh,$_);
! 3346: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3347: $_=$u;
! 3348: if ((s/óø$/ôøóñ/) && (m/[áåïõ]ñôøóñ$/))
! 3349: { ($fl,$id)=getflag($dbh,$_);
! 3350: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3351: $_=$u;
! 3352: if ((s/ñ$/éôø/) && (m/[^öþûý]éôø$/))
! 3353: { ($fl,$id)=getflag($dbh,$_);
! 3354: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3355: $_=$u;
! 3356: if ((s/ñóø$/éôøóñ/) && (m/[^öþûý]éôøóñ$/))
! 3357: { ($fl,$id)=getflag($dbh,$_);
! 3358: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3359: $_=$u;
! 3360: if ((s/á$/éôø/) && (m/[öþûý]éôø$/))
! 3361: { ($fl,$id)=getflag($dbh,$_);
! 3362: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3363: $_=$u;
! 3364: if ((s/áóø$/éôøóñ/) && (m/[öþûý]éôøóñ$/))
! 3365: { ($fl,$id)=getflag($dbh,$_);
! 3366: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3367: $_=$u;
! 3368: if ((s/ïñ$/ùôø/) && (m/ùôø$/))
! 3369: { ($fl,$id)=getflag($dbh,$_);
! 3370: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3371: $_=$u;
! 3372: if ((s/ïñóø$/ùôøóñ/) && (m/ùôøóñ$/))
! 3373: { ($fl,$id)=getflag($dbh,$_);
! 3374: if ($fl && ($fl=~m/P/)){push @list, $id}}
! 3375: $_=$u;
! 3376: if ((s/õñ$/å÷áôø/) && (m/[öûýþã]å÷áôø$/))
! 3377: { ($fl,$id)=getflag($dbh,$_);
! 3378: if ($fl && ($fl=~m/Q/)){push @list, $id}}
! 3379: $_=$u;
! 3380: if ((s/õñóø$/å÷áôøóñ/) && (m/[öûýþã]å÷áôøóñ$/))
! 3381: { ($fl,$id)=getflag($dbh,$_);
! 3382: if ($fl && ($fl=~m/Q/)){push @list, $id}}
! 3383: $_=$u;
! 3384: if ((s/àñ$/å÷áôø/) && (m/[^öûýþã]å÷áôø$/))
! 3385: { ($fl,$id)=getflag($dbh,$_);
! 3386: if ($fl && ($fl=~m/Q/)){push @list, $id}}
! 3387: $_=$u;
! 3388: if ((s/àñóø$/å÷áôøóñ/) && (m/[^öûýþã]å÷áôøóñ$/))
! 3389: { ($fl,$id)=getflag($dbh,$_);
! 3390: if ($fl && ($fl=~m/Q/)){push @list, $id}}
! 3391: $_=$u;
! 3392: if ((s/õñ$/ï÷áôø/) && (m/ï÷áôø$/))
! 3393: { ($fl,$id)=getflag($dbh,$_);
! 3394: if ($fl && ($fl=~m/Q/)){push @list, $id}}
! 3395: $_=$u;
! 3396: if ((s/õñóø$/ï÷áôøóñ/) && (m/ï÷áôøóñ$/))
! 3397: { ($fl,$id)=getflag($dbh,$_);
! 3398: if ($fl && ($fl=~m/Q/)){push @list, $id}}
! 3399: $_=$u;
! 3400: if ((s/÷$/ôø/) && (m/[áåéïõùñ]ôø$/))
! 3401: { ($fl,$id)=getflag($dbh,$_);
! 3402: if ($fl && ($fl=~m/R/)){push @list, $id}}
! 3403: $_=$u;
! 3404: if ((s/÷ûéóø$/ôøóñ/) && (m/[áåéïõùñ]ôøóñ$/))
! 3405: { ($fl,$id)=getflag($dbh,$_);
! 3406: if ($fl && ($fl=~m/R/)){push @list, $id}}
! 3407: $_=$u;
! 3408: if ((s/÷$/óôø/) && (m/óôø$/))
! 3409: { ($fl,$id)=getflag($dbh,$_);
! 3410: if ($fl && ($fl=~m/R/)){push @list, $id}}
! 3411: $_=$u;
! 3412: if ((s/÷ûéóø$/óôøóñ/) && (m/óôøóñ$/))
! 3413: { ($fl,$id)=getflag($dbh,$_);
! 3414: if ($fl && ($fl=~m/R/)){push @list, $id}}
! 3415: $_=$u;
! 3416: if ((s/ï$/ùê/) && (m/[÷ìîòô]ùê$/))
! 3417: { ($fl,$id)=getflag($dbh,$_);
! 3418: if ($fl && ($fl=~m/Z/)){push @list, $id}}
! 3419: $_=$u;
! 3420: if ((s/$/ê/) && (m/[óã]ëéê$/))
! 3421: { ($fl,$id)=getflag($dbh,$_);
! 3422: if ($fl && ($fl=~m/Z/)){push @list, $id}}
! 3423: $_=$u;
! 3424: if ((s/å$/éê/) && (m/ýéê$/))
! 3425: { ($fl,$id)=getflag($dbh,$_);
! 3426: if ($fl && ($fl=~m/Z/)){push @list, $id}}
! 3427: $_=$u;
! 3428: if ((s/ïçï$/ùê/) && (m/[^ã]ùê$/))
! 3429: { ($fl,$id)=getflag($dbh,$_);
! 3430: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3431: $_=$u;
! 3432: if ((s/åçï$/ùê/) && (m/ãùê$/))
! 3433: { ($fl,$id)=getflag($dbh,$_);
! 3434: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3435: $_=$u;
! 3436: if ((s/ïíõ$/ùê/) && (m/[^ã]ùê$/))
! 3437: { ($fl,$id)=getflag($dbh,$_);
! 3438: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3439: $_=$u;
! 3440: if ((s/åíõ$/ùê/) && (m/ãùê$/))
! 3441: { ($fl,$id)=getflag($dbh,$_);
! 3442: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3443: $_=$u;
! 3444: if ((s/í$/ê/) && (m/ùê$/))
! 3445: { ($fl,$id)=getflag($dbh,$_);
! 3446: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3447: $_=$u;
! 3448: if ((s/ïí$/ùê/) && (m/[^ã]ùê$/))
! 3449: { ($fl,$id)=getflag($dbh,$_);
! 3450: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3451: $_=$u;
! 3452: if ((s/åí$/ùê/) && (m/ãùê$/))
! 3453: { ($fl,$id)=getflag($dbh,$_);
! 3454: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3455: $_=$u;
! 3456: if ((s/å$/ê/) && (m/ùê$/))
! 3457: { ($fl,$id)=getflag($dbh,$_);
! 3458: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3459: $_=$u;
! 3460: if ((s/è$/ê/) && (m/ùê$/))
! 3461: { ($fl,$id)=getflag($dbh,$_);
! 3462: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3463: $_=$u;
! 3464: if ((s/íé$/ê/) && (m/ùê$/))
! 3465: { ($fl,$id)=getflag($dbh,$_);
! 3466: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3467: $_=$u;
! 3468: if ((s/áñ$/ùê/) && (m/ùê$/))
! 3469: { ($fl,$id)=getflag($dbh,$_);
! 3470: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3471: $_=$u;
! 3472: if ((s/ïê$/ùê/) && (m/[^ã]ùê$/))
! 3473: { ($fl,$id)=getflag($dbh,$_);
! 3474: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3475: $_=$u;
! 3476: if ((s/ïà$/ùê/) && (m/[^ã]ùê$/))
! 3477: { ($fl,$id)=getflag($dbh,$_);
! 3478: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3479: $_=$u;
! 3480: if ((s/åê$/ùê/) && (m/ãùê$/))
! 3481: { ($fl,$id)=getflag($dbh,$_);
! 3482: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3483: $_=$u;
! 3484: if ((s/õà$/ùê/) && (m/ùê$/))
! 3485: { ($fl,$id)=getflag($dbh,$_);
! 3486: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3487: $_=$u;
! 3488: if ((s/ïå$/ùê/) && (m/[^ã]ùê$/))
! 3489: { ($fl,$id)=getflag($dbh,$_);
! 3490: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3491: $_=$u;
! 3492: if ((s/åå$/ùê/) && (m/ãùê$/))
! 3493: { ($fl,$id)=getflag($dbh,$_);
! 3494: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3495: $_=$u;
! 3496: if ((s/ïçï$/éê/) && (m/[çëè]éê$/))
! 3497: { ($fl,$id)=getflag($dbh,$_);
! 3498: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3499: $_=$u;
! 3500: if ((s/ïíõ$/éê/) && (m/[çëè]éê$/))
! 3501: { ($fl,$id)=getflag($dbh,$_);
! 3502: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3503: $_=$u;
! 3504: if ((s/í$/ê/) && (m/[çëè]éê$/))
! 3505: { ($fl,$id)=getflag($dbh,$_);
! 3506: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3507: $_=$u;
! 3508: if ((s/ïí$/éê/) && (m/[çëè]éê$/))
! 3509: { ($fl,$id)=getflag($dbh,$_);
! 3510: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3511: $_=$u;
! 3512: if ((s/å$/ê/) && (m/[çëè]éê$/))
! 3513: { ($fl,$id)=getflag($dbh,$_);
! 3514: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3515: $_=$u;
! 3516: if ((s/è$/ê/) && (m/[çëè]éê$/))
! 3517: { ($fl,$id)=getflag($dbh,$_);
! 3518: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3519: $_=$u;
! 3520: if ((s/íé$/ê/) && (m/[çëè]éê$/))
! 3521: { ($fl,$id)=getflag($dbh,$_);
! 3522: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3523: $_=$u;
! 3524: if ((s/áñ$/éê/) && (m/[çëè]éê$/))
! 3525: { ($fl,$id)=getflag($dbh,$_);
! 3526: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3527: $_=$u;
! 3528: if ((s/ïê$/éê/) && (m/[çëè]éê$/))
! 3529: { ($fl,$id)=getflag($dbh,$_);
! 3530: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3531: $_=$u;
! 3532: if ((s/ïà$/éê/) && (m/[çëè]éê$/))
! 3533: { ($fl,$id)=getflag($dbh,$_);
! 3534: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3535: $_=$u;
! 3536: if ((s/õà$/éê/) && (m/[çëè]éê$/))
! 3537: { ($fl,$id)=getflag($dbh,$_);
! 3538: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3539: $_=$u;
! 3540: if ((s/ïå$/éê/) && (m/[çëè]éê$/))
! 3541: { ($fl,$id)=getflag($dbh,$_);
! 3542: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3543: $_=$u;
! 3544: if ((s/åçï$/éê/) && (m/[öîòûýþ]éê$/))
! 3545: { ($fl,$id)=getflag($dbh,$_);
! 3546: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3547: $_=$u;
! 3548: if ((s/åíõ$/éê/) && (m/[öîòûýþ]éê$/))
! 3549: { ($fl,$id)=getflag($dbh,$_);
! 3550: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3551: $_=$u;
! 3552: if ((s/í$/ê/) && (m/[öîòûýþ]éê$/))
! 3553: { ($fl,$id)=getflag($dbh,$_);
! 3554: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3555: $_=$u;
! 3556: if ((s/åí$/éê/) && (m/[öîòûýþ]éê$/))
! 3557: { ($fl,$id)=getflag($dbh,$_);
! 3558: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3559: $_=$u;
! 3560: if ((s/å$/ê/) && (m/[öîòûýþ]éê$/))
! 3561: { ($fl,$id)=getflag($dbh,$_);
! 3562: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3563: $_=$u;
! 3564: if ((s/è$/ê/) && (m/[öîòûýþ]éê$/))
! 3565: { ($fl,$id)=getflag($dbh,$_);
! 3566: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3567: $_=$u;
! 3568: if ((s/íé$/ê/) && (m/[öîòûýþ]éê$/))
! 3569: { ($fl,$id)=getflag($dbh,$_);
! 3570: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3571: $_=$u;
! 3572: if ((s/åçïóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3573: { ($fl,$id)=getflag($dbh,$_);
! 3574: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3575: $_=$u;
! 3576: if ((s/åíõóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3577: { ($fl,$id)=getflag($dbh,$_);
! 3578: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3579: $_=$u;
! 3580: if ((s/éíóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3581: { ($fl,$id)=getflag($dbh,$_);
! 3582: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3583: $_=$u;
! 3584: if ((s/åíóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3585: { ($fl,$id)=getflag($dbh,$_);
! 3586: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3587: $_=$u;
! 3588: if ((s/éåóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3589: { ($fl,$id)=getflag($dbh,$_);
! 3590: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3591: $_=$u;
! 3592: if ((s/éèóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3593: { ($fl,$id)=getflag($dbh,$_);
! 3594: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3595: $_=$u;
! 3596: if ((s/éíéóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3597: { ($fl,$id)=getflag($dbh,$_);
! 3598: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3599: $_=$u;
! 3600: if ((s/ññ$/éê/) && (m/îéê$/))
! 3601: { ($fl,$id)=getflag($dbh,$_);
! 3602: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3603: $_=$u;
! 3604: if ((s/áñ$/éê/) && (m/[öûýþ]éê$/))
! 3605: { ($fl,$id)=getflag($dbh,$_);
! 3606: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3607: $_=$u;
! 3608: if ((s/åê$/éê/) && (m/[öîûýþ]éê$/))
! 3609: { ($fl,$id)=getflag($dbh,$_);
! 3610: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3611: $_=$u;
! 3612: if ((s/åà$/éê/) && (m/[öîûýþ]éê$/))
! 3613: { ($fl,$id)=getflag($dbh,$_);
! 3614: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3615: $_=$u;
! 3616: if ((s/àà$/éê/) && (m/îéê$/))
! 3617: { ($fl,$id)=getflag($dbh,$_);
! 3618: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3619: $_=$u;
! 3620: if ((s/õà$/éê/) && (m/[öûýþ]éê$/))
! 3621: { ($fl,$id)=getflag($dbh,$_);
! 3622: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3623: $_=$u;
! 3624: if ((s/åå$/éê/) && (m/[öîûýþ]éê$/))
! 3625: { ($fl,$id)=getflag($dbh,$_);
! 3626: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3627: $_=$u;
! 3628: if ((s/áñóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3629: { ($fl,$id)=getflag($dbh,$_);
! 3630: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3631: $_=$u;
! 3632: if ((s/åêóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3633: { ($fl,$id)=getflag($dbh,$_);
! 3634: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3635: $_=$u;
! 3636: if ((s/õàóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3637: { ($fl,$id)=getflag($dbh,$_);
! 3638: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3639: $_=$u;
! 3640: if ((s/ååóñ$/éêóñ/) && (m/[ûý]éêóñ$/))
! 3641: { ($fl,$id)=getflag($dbh,$_);
! 3642: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3643: $_=$u;
! 3644: if ((s/ïçï$/ïê/) && (m/ïê$/))
! 3645: { ($fl,$id)=getflag($dbh,$_);
! 3646: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3647: $_=$u;
! 3648: if ((s/ïíõ$/ïê/) && (m/ïê$/))
! 3649: { ($fl,$id)=getflag($dbh,$_);
! 3650: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3651: $_=$u;
! 3652: if ((s/éí$/ïê/) && (m/[çöëèûýþ]ïê$/))
! 3653: { ($fl,$id)=getflag($dbh,$_);
! 3654: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3655: $_=$u;
! 3656: if ((s/ùí$/ïê/) && (m/[^çöëèûýþ]ïê$/))
! 3657: { ($fl,$id)=getflag($dbh,$_);
! 3658: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3659: $_=$u;
! 3660: if ((s/ïí$/ïê/) && (m/ïê$/))
! 3661: { ($fl,$id)=getflag($dbh,$_);
! 3662: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3663: $_=$u;
! 3664: if ((s/éå$/ïê/) && (m/[çöëèûýþ]ïê$/))
! 3665: { ($fl,$id)=getflag($dbh,$_);
! 3666: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3667: $_=$u;
! 3668: if ((s/ùå$/ïê/) && (m/[^çöëèûýþ]ïê$/))
! 3669: { ($fl,$id)=getflag($dbh,$_);
! 3670: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3671: $_=$u;
! 3672: if ((s/éè$/ïê/) && (m/[çöëèûýþ]ïê$/))
! 3673: { ($fl,$id)=getflag($dbh,$_);
! 3674: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3675: $_=$u;
! 3676: if ((s/ùè$/ïê/) && (m/[^çöëèûýþ]ïê$/))
! 3677: { ($fl,$id)=getflag($dbh,$_);
! 3678: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3679: $_=$u;
! 3680: if ((s/éíé$/ïê/) && (m/[çöëèûýþ]ïê$/))
! 3681: { ($fl,$id)=getflag($dbh,$_);
! 3682: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3683: $_=$u;
! 3684: if ((s/ùíé$/ïê/) && (m/[^çöëèûýþ]ïê$/))
! 3685: { ($fl,$id)=getflag($dbh,$_);
! 3686: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3687: $_=$u;
! 3688: if ((s/áñ$/ïê/) && (m/ïê$/))
! 3689: { ($fl,$id)=getflag($dbh,$_);
! 3690: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3691: $_=$u;
! 3692: if ((s/õà$/ïê/) && (m/ïê$/))
! 3693: { ($fl,$id)=getflag($dbh,$_);
! 3694: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3695: $_=$u;
! 3696: if ((s/ïå$/ïê/) && (m/ïê$/))
! 3697: { ($fl,$id)=getflag($dbh,$_);
! 3698: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3699: $_=$u;
! 3700: if ((s/ïçï$//) && (m/éî$/))
! 3701: { ($fl,$id)=getflag($dbh,$_);
! 3702: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3703: $_=$u;
! 3704: if ((s/ïíõ$//) && (m/éî$/))
! 3705: { ($fl,$id)=getflag($dbh,$_);
! 3706: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3707: $_=$u;
! 3708: if ((s/ùí$//) && (m/éî$/))
! 3709: { ($fl,$id)=getflag($dbh,$_);
! 3710: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3711: $_=$u;
! 3712: if ((s/ïí$//) && (m/éî$/))
! 3713: { ($fl,$id)=getflag($dbh,$_);
! 3714: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3715: $_=$u;
! 3716: if ((s/á$//) && (m/éî$/))
! 3717: { ($fl,$id)=getflag($dbh,$_);
! 3718: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3719: $_=$u;
! 3720: if ((s/ïê$//) && (m/éî$/))
! 3721: { ($fl,$id)=getflag($dbh,$_);
! 3722: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3723: $_=$u;
! 3724: if ((s/õ$//) && (m/éî$/))
! 3725: { ($fl,$id)=getflag($dbh,$_);
! 3726: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3727: $_=$u;
! 3728: if ((s/ï$//) && (m/éî$/))
! 3729: { ($fl,$id)=getflag($dbh,$_);
! 3730: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3731: $_=$u;
! 3732: if ((s/ù$//) && (m/éî$/))
! 3733: { ($fl,$id)=getflag($dbh,$_);
! 3734: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3735: $_=$u;
! 3736: if ((s/ùè$//) && (m/éî$/))
! 3737: { ($fl,$id)=getflag($dbh,$_);
! 3738: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3739: $_=$u;
! 3740: if ((s/ùíé$//) && (m/éî$/))
! 3741: { ($fl,$id)=getflag($dbh,$_);
! 3742: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3743: $_=$u;
! 3744: if ((s/á$//) && (m/÷$/))
! 3745: { ($fl,$id)=getflag($dbh,$_);
! 3746: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3747: $_=$u;
! 3748: if ((s/ï$//) && (m/÷$/))
! 3749: { ($fl,$id)=getflag($dbh,$_);
! 3750: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3751: $_=$u;
! 3752: if ((s/õ$//) && (m/÷$/))
! 3753: { ($fl,$id)=getflag($dbh,$_);
! 3754: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3755: $_=$u;
! 3756: if ((s/ïê$//) && (m/÷$/))
! 3757: { ($fl,$id)=getflag($dbh,$_);
! 3758: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3759: $_=$u;
! 3760: if ((s/ïí$//) && (m/÷$/))
! 3761: { ($fl,$id)=getflag($dbh,$_);
! 3762: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3763: $_=$u;
! 3764: if ((s/ù$//) && (m/÷$/))
! 3765: { ($fl,$id)=getflag($dbh,$_);
! 3766: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3767: $_=$u;
! 3768: if ((s/ùè$//) && (m/÷$/))
! 3769: { ($fl,$id)=getflag($dbh,$_);
! 3770: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3771: $_=$u;
! 3772: if ((s/ùí$//) && (m/÷$/))
! 3773: { ($fl,$id)=getflag($dbh,$_);
! 3774: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3775: $_=$u;
! 3776: if ((s/ùíé$//) && (m/÷$/))
! 3777: { ($fl,$id)=getflag($dbh,$_);
! 3778: if ($fl && ($fl=~m/A/)){push @list, $id}}
! 3779: $_=$u;
! 3780: if ((s/$/ùê/) && (m/[^î]ùê$/))
! 3781: { ($fl,$id)=getflag($dbh,$_);
! 3782: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3783: $_=$u;
! 3784: if ((s/á$/ùê/) && (m/[^î]ùê$/))
! 3785: { ($fl,$id)=getflag($dbh,$_);
! 3786: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3787: $_=$u;
! 3788: if ((s/ï$/ùê/) && (m/[^î]ùê$/))
! 3789: { ($fl,$id)=getflag($dbh,$_);
! 3790: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3791: $_=$u;
! 3792: if ((s/ù$/ùê/) && (m/[^î]ùê$/))
! 3793: { ($fl,$id)=getflag($dbh,$_);
! 3794: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3795: $_=$u;
! 3796: if ((s/åî$/îùê/) && (m/[^åêìîø]îùê$/))
! 3797: { ($fl,$id)=getflag($dbh,$_);
! 3798: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3799: $_=$u;
! 3800: if ((s/$/ùê/) && (m/åîùê$/))
! 3801: { ($fl,$id)=getflag($dbh,$_);
! 3802: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3803: $_=$u;
! 3804: if ((s/åî$/êîùê/) && (m/êîùê$/))
! 3805: { ($fl,$id)=getflag($dbh,$_);
! 3806: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3807: $_=$u;
! 3808: if ((s/ïî$/îùê/) && (m/ìîùê$/))
! 3809: { ($fl,$id)=getflag($dbh,$_);
! 3810: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3811: $_=$u;
! 3812: if ((s/åî$/øîùê/) && (m/øîùê$/))
! 3813: { ($fl,$id)=getflag($dbh,$_);
! 3814: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3815: $_=$u;
! 3816: if ((s/îá$/îùê/) && (m/[^î]îùê$/))
! 3817: { ($fl,$id)=getflag($dbh,$_);
! 3818: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3819: $_=$u;
! 3820: if ((s/îï$/îùê/) && (m/[^î]îùê$/))
! 3821: { ($fl,$id)=getflag($dbh,$_);
! 3822: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3823: $_=$u;
! 3824: if ((s/îù$/îùê/) && (m/[^î]îùê$/))
! 3825: { ($fl,$id)=getflag($dbh,$_);
! 3826: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3827: $_=$u;
! 3828: if ((s/ïë$/ëéê/) && (m/[^áåéêïõùø]ëéê$/))
! 3829: { ($fl,$id)=getflag($dbh,$_);
! 3830: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3831: $_=$u;
! 3832: if ((s/$/éê/) && (m/[áåéïõù]ëéê$/))
! 3833: { ($fl,$id)=getflag($dbh,$_);
! 3834: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3835: $_=$u;
! 3836: if ((s/åë$/êëéê/) && (m/êëéê$/))
! 3837: { ($fl,$id)=getflag($dbh,$_);
! 3838: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3839: $_=$u;
! 3840: if ((s/åë$/øëéê/) && (m/øëéê$/))
! 3841: { ($fl,$id)=getflag($dbh,$_);
! 3842: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3843: $_=$u;
! 3844: if ((s/$/éê/) && (m/[çöþèý]éê$/))
! 3845: { ($fl,$id)=getflag($dbh,$_);
! 3846: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3847: $_=$u;
! 3848: if ((s/á$/éê/) && (m/[çöëèþý]éê$/))
! 3849: { ($fl,$id)=getflag($dbh,$_);
! 3850: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3851: $_=$u;
! 3852: if ((s/ï$/éê/) && (m/[çëè]éê$/))
! 3853: { ($fl,$id)=getflag($dbh,$_);
! 3854: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3855: $_=$u;
! 3856: if ((s/å$/éê/) && (m/[öþý]éê$/))
! 3857: { ($fl,$id)=getflag($dbh,$_);
! 3858: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3859: $_=$u;
! 3860: if ((s/é$/éê/) && (m/[çöëèþý]éê$/))
! 3861: { ($fl,$id)=getflag($dbh,$_);
! 3862: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3863: $_=$u;
! 3864: if ((s/$/ïê/) && (m/ïê$/))
! 3865: { ($fl,$id)=getflag($dbh,$_);
! 3866: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3867: $_=$u;
! 3868: if ((s/á$/ïê/) && (m/ïê$/))
! 3869: { ($fl,$id)=getflag($dbh,$_);
! 3870: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3871: $_=$u;
! 3872: if ((s/ï$/ïê/) && (m/ïê$/))
! 3873: { ($fl,$id)=getflag($dbh,$_);
! 3874: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3875: $_=$u;
! 3876: if ((s/ù$/ïê/) && (m/[^çè]ïê$/))
! 3877: { ($fl,$id)=getflag($dbh,$_);
! 3878: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3879: $_=$u;
! 3880: if ((s/é$/ïê/) && (m/[çè]ïê$/))
! 3881: { ($fl,$id)=getflag($dbh,$_);
! 3882: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3883: $_=$u;
! 3884: if ((s/$/îùê/) && (m/îîùê$/))
! 3885: { ($fl,$id)=getflag($dbh,$_);
! 3886: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3887: $_=$u;
! 3888: if ((s/á$/îùê/) && (m/îîùê$/))
! 3889: { ($fl,$id)=getflag($dbh,$_);
! 3890: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3891: $_=$u;
! 3892: if ((s/ï$/îùê/) && (m/îîùê$/))
! 3893: { ($fl,$id)=getflag($dbh,$_);
! 3894: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3895: $_=$u;
! 3896: if ((s/ù$/îùê/) && (m/îîùê$/))
! 3897: { ($fl,$id)=getflag($dbh,$_);
! 3898: if ($fl && ($fl=~m/S/)){push @list, $id}}
! 3899: $_=$u;
! 3900: if ((s/á$/ùê/) && (m/îîùê$/))
! 3901: { ($fl,$id)=getflag($dbh,$_);
! 3902: if ($fl && ($fl=~m/X/)){push @list, $id}}
! 3903: $_=$u;
! 3904: if ((s/ï$/ùê/) && (m/îîùê$/))
! 3905: { ($fl,$id)=getflag($dbh,$_);
! 3906: if ($fl && ($fl=~m/X/)){push @list, $id}}
! 3907: $_=$u;
! 3908: if ((s/ù$/ùê/) && (m/îîùê$/))
! 3909: { ($fl,$id)=getflag($dbh,$_);
! 3910: if ($fl && ($fl=~m/X/)){push @list, $id}}
! 3911: $_=$u;
! 3912: if ((s/åå$/ùê/) && (m/ùê$/))
! 3913: { ($fl,$id)=getflag($dbh,$_);
! 3914: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3915: $_=$u;
! 3916: if ((s/åê$/ùê/) && (m/ùê$/))
! 3917: { ($fl,$id)=getflag($dbh,$_);
! 3918: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3919: $_=$u;
! 3920: if ((s/ê$/å/) && (m/åå$/))
! 3921: { ($fl,$id)=getflag($dbh,$_);
! 3922: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3923: $_=$u;
! 3924: if ((s/ñ$/ø/) && (m/ø$/))
! 3925: { ($fl,$id)=getflag($dbh,$_);
! 3926: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3927: $_=$u;
! 3928: if ((s/à$/ø/) && (m/ø$/))
! 3929: { ($fl,$id)=getflag($dbh,$_);
! 3930: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3931: $_=$u;
! 3932: if ((s/åí$/ø/) && (m/ø$/))
! 3933: { ($fl,$id)=getflag($dbh,$_);
! 3934: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3935: $_=$u;
! 3936: if ((s/å$/ø/) && (m/ø$/))
! 3937: { ($fl,$id)=getflag($dbh,$_);
! 3938: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3939: $_=$u;
! 3940: if ((s/é$/ñ/) && (m/ñ$/))
! 3941: { ($fl,$id)=getflag($dbh,$_);
! 3942: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3943: $_=$u;
! 3944: if ((s/å$/ñ/) && (m/[^é]ñ$/))
! 3945: { ($fl,$id)=getflag($dbh,$_);
! 3946: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3947: $_=$u;
! 3948: if ((s/à$/ñ/) && (m/ñ$/))
! 3949: { ($fl,$id)=getflag($dbh,$_);
! 3950: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3951: $_=$u;
! 3952: if ((s/åê$/ñ/) && (m/ñ$/))
! 3953: { ($fl,$id)=getflag($dbh,$_);
! 3954: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3955: $_=$u;
! 3956: if ((s/åà$/ñ/) && (m/ñ$/))
! 3957: { ($fl,$id)=getflag($dbh,$_);
! 3958: if ($fl && ($fl=~m/E/)){push @list, $id}}
! 3959: $_=$u;
! 3960: if ((s/ù$/á/) && (m/[^çöëèþûý]á$/))
! 3961: { ($fl,$id)=getflag($dbh,$_);
! 3962: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3963: $_=$u;
! 3964: if ((s/é$/á/) && (m/[çöëèþûý]á$/))
! 3965: { ($fl,$id)=getflag($dbh,$_);
! 3966: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3967: $_=$u;
! 3968: if ((s/å$/á/) && (m/á$/))
! 3969: { ($fl,$id)=getflag($dbh,$_);
! 3970: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3971: $_=$u;
! 3972: if ((s/õ$/á/) && (m/á$/))
! 3973: { ($fl,$id)=getflag($dbh,$_);
! 3974: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3975: $_=$u;
! 3976: if ((s/ïê$/á/) && (m/[^öãþûý]á$/))
! 3977: { ($fl,$id)=getflag($dbh,$_);
! 3978: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3979: $_=$u;
! 3980: if ((s/ïà$/á/) && (m/[^öãþûý]á$/))
! 3981: { ($fl,$id)=getflag($dbh,$_);
! 3982: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3983: $_=$u;
! 3984: if ((s/åê$/á/) && (m/[öãþûý]á$/))
! 3985: { ($fl,$id)=getflag($dbh,$_);
! 3986: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3987: $_=$u;
! 3988: if ((s/åà$/á/) && (m/[öãþûý]á$/))
! 3989: { ($fl,$id)=getflag($dbh,$_);
! 3990: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3991: $_=$u;
! 3992: if ((s/$/á/) && (m/[^ë]á$/))
! 3993: { ($fl,$id)=getflag($dbh,$_);
! 3994: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3995: $_=$u;
! 3996: if ((s/ïë$/ëá/) && (m/[^áåöéêïõãþûøùàñ]ëá$/))
! 3997: { ($fl,$id)=getflag($dbh,$_);
! 3998: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 3999: $_=$u;
! 4000: if ((s/ë$/ëá/) && (m/[áåéïõùàñ]ëá$/))
! 4001: { ($fl,$id)=getflag($dbh,$_);
! 4002: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4003: $_=$u;
! 4004: if ((s/åë$/ëá/) && (m/[öãþû]ëá$/))
! 4005: { ($fl,$id)=getflag($dbh,$_);
! 4006: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4007: $_=$u;
! 4008: if ((s/åë$/êëá/) && (m/êëá$/))
! 4009: { ($fl,$id)=getflag($dbh,$_);
! 4010: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4011: $_=$u;
! 4012: if ((s/åë$/øëá/) && (m/øëá$/))
! 4013: { ($fl,$id)=getflag($dbh,$_);
! 4014: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4015: $_=$u;
! 4016: if ((s/í$//) && (m/á$/))
! 4017: { ($fl,$id)=getflag($dbh,$_);
! 4018: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4019: $_=$u;
! 4020: if ((s/íé$//) && (m/á$/))
! 4021: { ($fl,$id)=getflag($dbh,$_);
! 4022: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4023: $_=$u;
! 4024: if ((s/è$//) && (m/á$/))
! 4025: { ($fl,$id)=getflag($dbh,$_);
! 4026: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4027: $_=$u;
! 4028: if ((s/é$/ñ/) && (m/ñ$/))
! 4029: { ($fl,$id)=getflag($dbh,$_);
! 4030: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4031: $_=$u;
! 4032: if ((s/å$/ñ/) && (m/[^é]ñ$/))
! 4033: { ($fl,$id)=getflag($dbh,$_);
! 4034: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4035: $_=$u;
! 4036: if ((s/à$/ñ/) && (m/ñ$/))
! 4037: { ($fl,$id)=getflag($dbh,$_);
! 4038: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4039: $_=$u;
! 4040: if ((s/åê$/ñ/) && (m/ñ$/))
! 4041: { ($fl,$id)=getflag($dbh,$_);
! 4042: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4043: $_=$u;
! 4044: if ((s/åà$/ñ/) && (m/ñ$/))
! 4045: { ($fl,$id)=getflag($dbh,$_);
! 4046: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4047: $_=$u;
! 4048: if ((s/ê$/ñ/) && (m/[åéõ]ñ$/))
! 4049: { ($fl,$id)=getflag($dbh,$_);
! 4050: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4051: $_=$u;
! 4052: if ((s/åî$/îñ/) && (m/[^áåúéêïõùø]îñ$/))
! 4053: { ($fl,$id)=getflag($dbh,$_);
! 4054: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4055: $_=$u;
! 4056: if ((s/ø$/ñ/) && (m/[áåéïõù]îñ$/))
! 4057: { ($fl,$id)=getflag($dbh,$_);
! 4058: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4059: $_=$u;
! 4060: if ((s/åî$/êîñ/) && (m/êîñ$/))
! 4061: { ($fl,$id)=getflag($dbh,$_);
! 4062: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4063: $_=$u;
! 4064: if ((s/åî$/øîñ/) && (m/øîñ$/))
! 4065: { ($fl,$id)=getflag($dbh,$_);
! 4066: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4067: $_=$u;
! 4068: if ((s/í$//) && (m/ñ$/))
! 4069: { ($fl,$id)=getflag($dbh,$_);
! 4070: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4071: $_=$u;
! 4072: if ((s/íé$//) && (m/ñ$/))
! 4073: { ($fl,$id)=getflag($dbh,$_);
! 4074: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4075: $_=$u;
! 4076: if ((s/è$//) && (m/ñ$/))
! 4077: { ($fl,$id)=getflag($dbh,$_);
! 4078: if ($fl && ($fl=~m/I/)){push @list, $id}}
! 4079: $_=$u;
! 4080: if ((s/ù$/á/) && (m/[^çöëèþûý]á$/))
! 4081: { ($fl,$id)=getflag($dbh,$_);
! 4082: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4083: $_=$u;
! 4084: if ((s/é$/á/) && (m/[çöëèþûý]á$/))
! 4085: { ($fl,$id)=getflag($dbh,$_);
! 4086: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4087: $_=$u;
! 4088: if ((s/å$/á/) && (m/á$/))
! 4089: { ($fl,$id)=getflag($dbh,$_);
! 4090: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4091: $_=$u;
! 4092: if ((s/õ$/á/) && (m/á$/))
! 4093: { ($fl,$id)=getflag($dbh,$_);
! 4094: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4095: $_=$u;
! 4096: if ((s/ïê$/á/) && (m/[^öãþûý]á$/))
! 4097: { ($fl,$id)=getflag($dbh,$_);
! 4098: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4099: $_=$u;
! 4100: if ((s/ïà$/á/) && (m/[^öãþûý]á$/))
! 4101: { ($fl,$id)=getflag($dbh,$_);
! 4102: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4103: $_=$u;
! 4104: if ((s/åê$/á/) && (m/[öãþûý]á$/))
! 4105: { ($fl,$id)=getflag($dbh,$_);
! 4106: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4107: $_=$u;
! 4108: if ((s/åà$/á/) && (m/[öãþûý]á$/))
! 4109: { ($fl,$id)=getflag($dbh,$_);
! 4110: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4111: $_=$u;
! 4112: if ((s/é$/ñ/) && (m/ñ$/))
! 4113: { ($fl,$id)=getflag($dbh,$_);
! 4114: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4115: $_=$u;
! 4116: if ((s/å$/ñ/) && (m/[^é]ñ$/))
! 4117: { ($fl,$id)=getflag($dbh,$_);
! 4118: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4119: $_=$u;
! 4120: if ((s/à$/ñ/) && (m/ñ$/))
! 4121: { ($fl,$id)=getflag($dbh,$_);
! 4122: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4123: $_=$u;
! 4124: if ((s/åê$/ñ/) && (m/ñ$/))
! 4125: { ($fl,$id)=getflag($dbh,$_);
! 4126: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4127: $_=$u;
! 4128: if ((s/åà$/ñ/) && (m/ñ$/))
! 4129: { ($fl,$id)=getflag($dbh,$_);
! 4130: if ($fl && ($fl=~m/H/)){push @list, $id}}
! 4131: $_=$u;
! 4132: if ((s/á$//) && (m/[^åêïø]$/))
! 4133: { ($fl,$id)=getflag($dbh,$_);
! 4134: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4135: $_=$u;
! 4136: if ((s/õ$//) && (m/[^åêïø]$/))
! 4137: { ($fl,$id)=getflag($dbh,$_);
! 4138: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4139: $_=$u;
! 4140: if ((s/ïí$//) && (m/[^åöêïãþûýø]$/))
! 4141: { ($fl,$id)=getflag($dbh,$_);
! 4142: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4143: $_=$u;
! 4144: if ((s/å$//) && (m/[^åêïø]$/))
! 4145: { ($fl,$id)=getflag($dbh,$_);
! 4146: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4147: $_=$u;
! 4148: if ((s/ù$//) && (m/[^çåöêëïèþûýø]$/))
! 4149: { ($fl,$id)=getflag($dbh,$_);
! 4150: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4151: $_=$u;
! 4152: if ((s/é$//) && (m/[çöëèþûý]$/))
! 4153: { ($fl,$id)=getflag($dbh,$_);
! 4154: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4155: $_=$u;
! 4156: if ((s/åê$//) && (m/[öþûý]$/))
! 4157: { ($fl,$id)=getflag($dbh,$_);
! 4158: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4159: $_=$u;
! 4160: if ((s/ï÷$//) && (m/[^åöêïãþûýø]$/))
! 4161: { ($fl,$id)=getflag($dbh,$_);
! 4162: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4163: $_=$u;
! 4164: if ((s/áí$//) && (m/[^åêïø]$/))
! 4165: { ($fl,$id)=getflag($dbh,$_);
! 4166: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4167: $_=$u;
! 4168: if ((s/áíé$//) && (m/[^åêïø]$/))
! 4169: { ($fl,$id)=getflag($dbh,$_);
! 4170: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4171: $_=$u;
! 4172: if ((s/áè$//) && (m/[^åêïø]$/))
! 4173: { ($fl,$id)=getflag($dbh,$_);
! 4174: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4175: $_=$u;
! 4176: if ((s/ñ$/ê/) && (m/ê$/))
! 4177: { ($fl,$id)=getflag($dbh,$_);
! 4178: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4179: $_=$u;
! 4180: if ((s/à$/ê/) && (m/ê$/))
! 4181: { ($fl,$id)=getflag($dbh,$_);
! 4182: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4183: $_=$u;
! 4184: if ((s/åí$/ê/) && (m/ê$/))
! 4185: { ($fl,$id)=getflag($dbh,$_);
! 4186: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4187: $_=$u;
! 4188: if ((s/å$/ê/) && (m/[^é]ê$/))
! 4189: { ($fl,$id)=getflag($dbh,$_);
! 4190: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4191: $_=$u;
! 4192: if ((s/é$/ê/) && (m/éê$/))
! 4193: { ($fl,$id)=getflag($dbh,$_);
! 4194: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4195: $_=$u;
! 4196: if ((s/é$/ê/) && (m/[áåïõàñ]ê$/))
! 4197: { ($fl,$id)=getflag($dbh,$_);
! 4198: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4199: $_=$u;
! 4200: if ((s/å÷$/ê/) && (m/ê$/))
! 4201: { ($fl,$id)=getflag($dbh,$_);
! 4202: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4203: $_=$u;
! 4204: if ((s/ñí$/ê/) && (m/ê$/))
! 4205: { ($fl,$id)=getflag($dbh,$_);
! 4206: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4207: $_=$u;
! 4208: if ((s/ñíé$/ê/) && (m/ê$/))
! 4209: { ($fl,$id)=getflag($dbh,$_);
! 4210: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4211: $_=$u;
! 4212: if ((s/ñè$/ê/) && (m/ê$/))
! 4213: { ($fl,$id)=getflag($dbh,$_);
! 4214: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4215: $_=$u;
! 4216: if ((s/ñ$/ø/) && (m/ø$/))
! 4217: { ($fl,$id)=getflag($dbh,$_);
! 4218: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4219: $_=$u;
! 4220: if ((s/à$/ø/) && (m/ø$/))
! 4221: { ($fl,$id)=getflag($dbh,$_);
! 4222: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4223: $_=$u;
! 4224: if ((s/åí$/ø/) && (m/ø$/))
! 4225: { ($fl,$id)=getflag($dbh,$_);
! 4226: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4227: $_=$u;
! 4228: if ((s/å$/ø/) && (m/ø$/))
! 4229: { ($fl,$id)=getflag($dbh,$_);
! 4230: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4231: $_=$u;
! 4232: if ((s/é$/ø/) && (m/ø$/))
! 4233: { ($fl,$id)=getflag($dbh,$_);
! 4234: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4235: $_=$u;
! 4236: if ((s/åê$/ø/) && (m/ø$/))
! 4237: { ($fl,$id)=getflag($dbh,$_);
! 4238: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4239: $_=$u;
! 4240: if ((s/ñí$/ø/) && (m/ø$/))
! 4241: { ($fl,$id)=getflag($dbh,$_);
! 4242: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4243: $_=$u;
! 4244: if ((s/ñíé$/ø/) && (m/ø$/))
! 4245: { ($fl,$id)=getflag($dbh,$_);
! 4246: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4247: $_=$u;
! 4248: if ((s/ñè$/ø/) && (m/ø$/))
! 4249: { ($fl,$id)=getflag($dbh,$_);
! 4250: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4251: $_=$u;
! 4252: if ((s/ñ$/å/) && (m/[^öãûý]å$/))
! 4253: { ($fl,$id)=getflag($dbh,$_);
! 4254: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4255: $_=$u;
! 4256: if ((s/á$/å/) && (m/[öãûý]å$/))
! 4257: { ($fl,$id)=getflag($dbh,$_);
! 4258: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4259: $_=$u;
! 4260: if ((s/à$/å/) && (m/[^öãûý]å$/))
! 4261: { ($fl,$id)=getflag($dbh,$_);
! 4262: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4263: $_=$u;
! 4264: if ((s/õ$/å/) && (m/[öãûý]å$/))
! 4265: { ($fl,$id)=getflag($dbh,$_);
! 4266: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4267: $_=$u;
! 4268: if ((s/í$//) && (m/å$/))
! 4269: { ($fl,$id)=getflag($dbh,$_);
! 4270: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4271: $_=$u;
! 4272: if ((s/é$/å/) && (m/éå$/))
! 4273: { ($fl,$id)=getflag($dbh,$_);
! 4274: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4275: $_=$u;
! 4276: if ((s/åê$/å/) && (m/[^öéãýø]å$/))
! 4277: { ($fl,$id)=getflag($dbh,$_);
! 4278: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4279: $_=$u;
! 4280: if ((s/$/å/) && (m/[öý]å$/))
! 4281: { ($fl,$id)=getflag($dbh,$_);
! 4282: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4283: $_=$u;
! 4284: if ((s/ê$/å/) && (m/éå$/))
! 4285: { ($fl,$id)=getflag($dbh,$_);
! 4286: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4287: $_=$u;
! 4288: if ((s/éê$/øå/) && (m/øå$/))
! 4289: { ($fl,$id)=getflag($dbh,$_);
! 4290: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4291: $_=$u;
! 4292: if ((s/ñí$/å/) && (m/[^öãûý]å$/))
! 4293: { ($fl,$id)=getflag($dbh,$_);
! 4294: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4295: $_=$u;
! 4296: if ((s/áí$/å/) && (m/[öãûý]å$/))
! 4297: { ($fl,$id)=getflag($dbh,$_);
! 4298: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4299: $_=$u;
! 4300: if ((s/ñíé$/å/) && (m/[^öãûý]å$/))
! 4301: { ($fl,$id)=getflag($dbh,$_);
! 4302: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4303: $_=$u;
! 4304: if ((s/áíé$/å/) && (m/[öãûý]å$/))
! 4305: { ($fl,$id)=getflag($dbh,$_);
! 4306: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4307: $_=$u;
! 4308: if ((s/ñè$/å/) && (m/[^öãûý]å$/))
! 4309: { ($fl,$id)=getflag($dbh,$_);
! 4310: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4311: $_=$u;
! 4312: if ((s/áè$/å/) && (m/[öãûý]å$/))
! 4313: { ($fl,$id)=getflag($dbh,$_);
! 4314: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4315: $_=$u;
! 4316: if ((s/á$/ï/) && (m/ï$/))
! 4317: { ($fl,$id)=getflag($dbh,$_);
! 4318: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4319: $_=$u;
! 4320: if ((s/õ$/ï/) && (m/ï$/))
! 4321: { ($fl,$id)=getflag($dbh,$_);
! 4322: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4323: $_=$u;
! 4324: if ((s/í$//) && (m/ï$/))
! 4325: { ($fl,$id)=getflag($dbh,$_);
! 4326: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4327: $_=$u;
! 4328: if ((s/å$/ï/) && (m/ï$/))
! 4329: { ($fl,$id)=getflag($dbh,$_);
! 4330: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4331: $_=$u;
! 4332: if ((s/é$/ï/) && (m/[éþû]ëï$/))
! 4333: { ($fl,$id)=getflag($dbh,$_);
! 4334: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4335: $_=$u;
! 4336: if ((s/$/ï/) && (m/[÷çäóô]ï$/))
! 4337: { ($fl,$id)=getflag($dbh,$_);
! 4338: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4339: $_=$u;
! 4340: if ((s/áí$/ï/) && (m/ï$/))
! 4341: { ($fl,$id)=getflag($dbh,$_);
! 4342: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4343: $_=$u;
! 4344: if ((s/áíé$/ï/) && (m/ï$/))
! 4345: { ($fl,$id)=getflag($dbh,$_);
! 4346: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4347: $_=$u;
! 4348: if ((s/áè$/ï/) && (m/ï$/))
! 4349: { ($fl,$id)=getflag($dbh,$_);
! 4350: if ($fl && ($fl=~m/K/)){push @list, $id}}
! 4351: $_=$u;
! 4352: if ((s/á$//) && (m/[^åêïø]$/))
! 4353: { ($fl,$id)=getflag($dbh,$_);
! 4354: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4355: $_=$u;
! 4356: if ((s/õ$//) && (m/[^åêïø]$/))
! 4357: { ($fl,$id)=getflag($dbh,$_);
! 4358: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4359: $_=$u;
! 4360: if ((s/ïí$//) && (m/[^åöêïãþûýø]$/))
! 4361: { ($fl,$id)=getflag($dbh,$_);
! 4362: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4363: $_=$u;
! 4364: if ((s/å$//) && (m/[^åêïø]$/))
! 4365: { ($fl,$id)=getflag($dbh,$_);
! 4366: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4367: $_=$u;
! 4368: if ((s/ñ$/ê/) && (m/ê$/))
! 4369: { ($fl,$id)=getflag($dbh,$_);
! 4370: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4371: $_=$u;
! 4372: if ((s/à$/ê/) && (m/ê$/))
! 4373: { ($fl,$id)=getflag($dbh,$_);
! 4374: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4375: $_=$u;
! 4376: if ((s/åí$/ê/) && (m/ê$/))
! 4377: { ($fl,$id)=getflag($dbh,$_);
! 4378: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4379: $_=$u;
! 4380: if ((s/å$/ê/) && (m/[^é]ê$/))
! 4381: { ($fl,$id)=getflag($dbh,$_);
! 4382: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4383: $_=$u;
! 4384: if ((s/é$/ê/) && (m/éê$/))
! 4385: { ($fl,$id)=getflag($dbh,$_);
! 4386: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4387: $_=$u;
! 4388: if ((s/ñ$/ø/) && (m/ø$/))
! 4389: { ($fl,$id)=getflag($dbh,$_);
! 4390: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4391: $_=$u;
! 4392: if ((s/à$/ø/) && (m/ø$/))
! 4393: { ($fl,$id)=getflag($dbh,$_);
! 4394: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4395: $_=$u;
! 4396: if ((s/åí$/ø/) && (m/ø$/))
! 4397: { ($fl,$id)=getflag($dbh,$_);
! 4398: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4399: $_=$u;
! 4400: if ((s/å$/ø/) && (m/ø$/))
! 4401: { ($fl,$id)=getflag($dbh,$_);
! 4402: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4403: $_=$u;
! 4404: if ((s/ñ$/å/) && (m/[^öãûý]å$/))
! 4405: { ($fl,$id)=getflag($dbh,$_);
! 4406: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4407: $_=$u;
! 4408: if ((s/á$/å/) && (m/[öãûý]å$/))
! 4409: { ($fl,$id)=getflag($dbh,$_);
! 4410: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4411: $_=$u;
! 4412: if ((s/à$/å/) && (m/[^öãûý]å$/))
! 4413: { ($fl,$id)=getflag($dbh,$_);
! 4414: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4415: $_=$u;
! 4416: if ((s/õ$/å/) && (m/[öãûý]å$/))
! 4417: { ($fl,$id)=getflag($dbh,$_);
! 4418: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4419: $_=$u;
! 4420: if ((s/í$//) && (m/å$/))
! 4421: { ($fl,$id)=getflag($dbh,$_);
! 4422: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4423: $_=$u;
! 4424: if ((s/é$/å/) && (m/éå$/))
! 4425: { ($fl,$id)=getflag($dbh,$_);
! 4426: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4427: $_=$u;
! 4428: if ((s/á$/ï/) && (m/ï$/))
! 4429: { ($fl,$id)=getflag($dbh,$_);
! 4430: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4431: $_=$u;
! 4432: if ((s/õ$/ï/) && (m/ï$/))
! 4433: { ($fl,$id)=getflag($dbh,$_);
! 4434: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4435: $_=$u;
! 4436: if ((s/í$//) && (m/ï$/))
! 4437: { ($fl,$id)=getflag($dbh,$_);
! 4438: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4439: $_=$u;
! 4440: if ((s/å$/ï/) && (m/ï$/))
! 4441: { ($fl,$id)=getflag($dbh,$_);
! 4442: if ($fl && ($fl=~m/J/)){push @list, $id}}
! 4443: $_=$u;
! 4444: if ((s/é$/ø/) && (m/ø$/))
! 4445: { ($fl,$id)=getflag($dbh,$_);
! 4446: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4447: $_=$u;
! 4448: if ((s/à$//) && (m/ø$/))
! 4449: { ($fl,$id)=getflag($dbh,$_);
! 4450: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4451: $_=$u;
! 4452: if ((s/åê$/ø/) && (m/ø$/))
! 4453: { ($fl,$id)=getflag($dbh,$_);
! 4454: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4455: $_=$u;
! 4456: if ((s/áí$/ø/) && (m/[öþûý]ø$/))
! 4457: { ($fl,$id)=getflag($dbh,$_);
! 4458: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4459: $_=$u;
! 4460: if ((s/ñí$/ø/) && (m/[^öþûý]ø$/))
! 4461: { ($fl,$id)=getflag($dbh,$_);
! 4462: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4463: $_=$u;
! 4464: if ((s/áíé$/ø/) && (m/[öþûý]ø$/))
! 4465: { ($fl,$id)=getflag($dbh,$_);
! 4466: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4467: $_=$u;
! 4468: if ((s/ñíé$/ø/) && (m/[^öþûý]ø$/))
! 4469: { ($fl,$id)=getflag($dbh,$_);
! 4470: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4471: $_=$u;
! 4472: if ((s/áè$/ø/) && (m/[öþûý]ø$/))
! 4473: { ($fl,$id)=getflag($dbh,$_);
! 4474: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4475: $_=$u;
! 4476: if ((s/ñè$/ø/) && (m/[^öþûý]ø$/))
! 4477: { ($fl,$id)=getflag($dbh,$_);
! 4478: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4479: $_=$u;
! 4480: if ((s/á$//) && (m/[^ø]$/))
! 4481: { ($fl,$id)=getflag($dbh,$_);
! 4482: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4483: $_=$u;
! 4484: if ((s/õ$//) && (m/[^ø]$/))
! 4485: { ($fl,$id)=getflag($dbh,$_);
! 4486: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4487: $_=$u;
! 4488: if ((s/ïí$//) && (m/[^öãþûýø]$/))
! 4489: { ($fl,$id)=getflag($dbh,$_);
! 4490: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4491: $_=$u;
! 4492: if ((s/å$//) && (m/[^ø]$/))
! 4493: { ($fl,$id)=getflag($dbh,$_);
! 4494: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4495: $_=$u;
! 4496: if ((s/ï÷$//) && (m/[^öãþûýø]$/))
! 4497: { ($fl,$id)=getflag($dbh,$_);
! 4498: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4499: $_=$u;
! 4500: if ((s/áí$//) && (m/[^ø]$/))
! 4501: { ($fl,$id)=getflag($dbh,$_);
! 4502: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4503: $_=$u;
! 4504: if ((s/áíé$//) && (m/[^ø]$/))
! 4505: { ($fl,$id)=getflag($dbh,$_);
! 4506: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4507: $_=$u;
! 4508: if ((s/áè$//) && (m/[^ø]$/))
! 4509: { ($fl,$id)=getflag($dbh,$_);
! 4510: if ($fl && ($fl=~m/N/)){push @list, $id}}
! 4511: $_=$u;
! 4512: if ((s/é$/ø/) && (m/ø$/))
! 4513: { ($fl,$id)=getflag($dbh,$_);
! 4514: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4515: $_=$u;
! 4516: if ((s/à$//) && (m/ø$/))
! 4517: { ($fl,$id)=getflag($dbh,$_);
! 4518: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4519: $_=$u;
! 4520: if ((s/ëá$/ïë/) && (m/îïë$/))
! 4521: { ($fl,$id)=getflag($dbh,$_);
! 4522: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4523: $_=$u;
! 4524: if ((s/ëõ$/ïë/) && (m/îïë$/))
! 4525: { ($fl,$id)=getflag($dbh,$_);
! 4526: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4527: $_=$u;
! 4528: if ((s/ëïí$/ïë/) && (m/îïë$/))
! 4529: { ($fl,$id)=getflag($dbh,$_);
! 4530: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4531: $_=$u;
! 4532: if ((s/ëå$/ïë/) && (m/îïë$/))
! 4533: { ($fl,$id)=getflag($dbh,$_);
! 4534: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4535: $_=$u;
! 4536: if ((s/ñôá$/åîïë/) && (m/åîïë$/))
! 4537: { ($fl,$id)=getflag($dbh,$_);
! 4538: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4539: $_=$u;
! 4540: if ((s/áôá$/ïîïë/) && (m/ïîïë$/))
! 4541: { ($fl,$id)=getflag($dbh,$_);
! 4542: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4543: $_=$u;
! 4544: if ((s/ñô$/åîïë/) && (m/åîïë$/))
! 4545: { ($fl,$id)=getflag($dbh,$_);
! 4546: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4547: $_=$u;
! 4548: if ((s/áô$/ïîïë/) && (m/ïîïë$/))
! 4549: { ($fl,$id)=getflag($dbh,$_);
! 4550: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4551: $_=$u;
! 4552: if ((s/ñôáí$/åîïë/) && (m/åîïë$/))
! 4553: { ($fl,$id)=getflag($dbh,$_);
! 4554: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4555: $_=$u;
! 4556: if ((s/áôáí$/ïîïë/) && (m/ïîïë$/))
! 4557: { ($fl,$id)=getflag($dbh,$_);
! 4558: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4559: $_=$u;
! 4560: if ((s/ñôáíé$/åîïë/) && (m/åîïë$/))
! 4561: { ($fl,$id)=getflag($dbh,$_);
! 4562: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4563: $_=$u;
! 4564: if ((s/áôáíé$/ïîïë/) && (m/ïîïë$/))
! 4565: { ($fl,$id)=getflag($dbh,$_);
! 4566: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4567: $_=$u;
! 4568: if ((s/ñôáè$/åîïë/) && (m/åîïë$/))
! 4569: { ($fl,$id)=getflag($dbh,$_);
! 4570: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4571: $_=$u;
! 4572: if ((s/áôáè$/ïîïë/) && (m/ïîïë$/))
! 4573: { ($fl,$id)=getflag($dbh,$_);
! 4574: if ($fl && ($fl=~m/F/)){push @list, $id}}
! 4575: $_=$u;
! 4576: if ((s/øåçï$/éê/) && (m/éê$/))
! 4577: { ($fl,$id)=getflag($dbh,$_);
! 4578: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4579: $_=$u;
! 4580: if ((s/øåíõ$/éê/) && (m/éê$/))
! 4581: { ($fl,$id)=getflag($dbh,$_);
! 4582: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4583: $_=$u;
! 4584: if ((s/øéí$/éê/) && (m/éê$/))
! 4585: { ($fl,$id)=getflag($dbh,$_);
! 4586: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4587: $_=$u;
! 4588: if ((s/øåí$/éê/) && (m/éê$/))
! 4589: { ($fl,$id)=getflag($dbh,$_);
! 4590: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4591: $_=$u;
! 4592: if ((s/øñ$/éê/) && (m/éê$/))
! 4593: { ($fl,$id)=getflag($dbh,$_);
! 4594: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4595: $_=$u;
! 4596: if ((s/øåê$/éê/) && (m/éê$/))
! 4597: { ($fl,$id)=getflag($dbh,$_);
! 4598: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4599: $_=$u;
! 4600: if ((s/øà$/éê/) && (m/éê$/))
! 4601: { ($fl,$id)=getflag($dbh,$_);
! 4602: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4603: $_=$u;
! 4604: if ((s/øå$/éê/) && (m/éê$/))
! 4605: { ($fl,$id)=getflag($dbh,$_);
! 4606: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4607: $_=$u;
! 4608: if ((s/øé$/éê/) && (m/éê$/))
! 4609: { ($fl,$id)=getflag($dbh,$_);
! 4610: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4611: $_=$u;
! 4612: if ((s/øéè$/éê/) && (m/éê$/))
! 4613: { ($fl,$id)=getflag($dbh,$_);
! 4614: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4615: $_=$u;
! 4616: if ((s/øéíé$/éê/) && (m/éê$/))
! 4617: { ($fl,$id)=getflag($dbh,$_);
! 4618: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4619: $_=$u;
! 4620: if ((s/îñ$/åîø/) && (m/åîø$/))
! 4621: { ($fl,$id)=getflag($dbh,$_);
! 4622: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4623: $_=$u;
! 4624: if ((s/îà$/åîø/) && (m/åîø$/))
! 4625: { ($fl,$id)=getflag($dbh,$_);
! 4626: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4627: $_=$u;
! 4628: if ((s/îåí$/åîø/) && (m/åîø$/))
! 4629: { ($fl,$id)=getflag($dbh,$_);
! 4630: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4631: $_=$u;
! 4632: if ((s/îå$/åîø/) && (m/åîø$/))
! 4633: { ($fl,$id)=getflag($dbh,$_);
! 4634: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4635: $_=$u;
! 4636: if ((s/îé$/åîø/) && (m/åîø$/))
! 4637: { ($fl,$id)=getflag($dbh,$_);
! 4638: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4639: $_=$u;
! 4640: if ((s/îåê$/åîø/) && (m/åîø$/))
! 4641: { ($fl,$id)=getflag($dbh,$_);
! 4642: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4643: $_=$u;
! 4644: if ((s/îñí$/åîø/) && (m/åîø$/))
! 4645: { ($fl,$id)=getflag($dbh,$_);
! 4646: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4647: $_=$u;
! 4648: if ((s/îñíé$/åîø/) && (m/åîø$/))
! 4649: { ($fl,$id)=getflag($dbh,$_);
! 4650: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4651: $_=$u;
! 4652: if ((s/îñè$/åîø/) && (m/åîø$/))
! 4653: { ($fl,$id)=getflag($dbh,$_);
! 4654: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4655: $_=$u;
! 4656: if ((s/ëá$/ïë/) && (m/ïë$/))
! 4657: { ($fl,$id)=getflag($dbh,$_);
! 4658: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4659: $_=$u;
! 4660: if ((s/ëõ$/ïë/) && (m/ïë$/))
! 4661: { ($fl,$id)=getflag($dbh,$_);
! 4662: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4663: $_=$u;
! 4664: if ((s/ëïí$/ïë/) && (m/ïë$/))
! 4665: { ($fl,$id)=getflag($dbh,$_);
! 4666: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4667: $_=$u;
! 4668: if ((s/ëå$/ïë/) && (m/ïë$/))
! 4669: { ($fl,$id)=getflag($dbh,$_);
! 4670: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4671: $_=$u;
! 4672: if ((s/ëé$/ïë/) && (m/ïë$/))
! 4673: { ($fl,$id)=getflag($dbh,$_);
! 4674: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4675: $_=$u;
! 4676: if ((s/ëï÷$/ïë/) && (m/ïë$/))
! 4677: { ($fl,$id)=getflag($dbh,$_);
! 4678: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4679: $_=$u;
! 4680: if ((s/ëáí$/ïë/) && (m/ïë$/))
! 4681: { ($fl,$id)=getflag($dbh,$_);
! 4682: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4683: $_=$u;
! 4684: if ((s/ëáíé$/ïë/) && (m/ïë$/))
! 4685: { ($fl,$id)=getflag($dbh,$_);
! 4686: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4687: $_=$u;
! 4688: if ((s/ëáè$/ïë/) && (m/ïë$/))
! 4689: { ($fl,$id)=getflag($dbh,$_);
! 4690: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4691: $_=$u;
! 4692: if ((s/ôñ$/ïôø/) && (m/ïôø$/))
! 4693: { ($fl,$id)=getflag($dbh,$_);
! 4694: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4695: $_=$u;
! 4696: if ((s/ôà$/ïôø/) && (m/ïôø$/))
! 4697: { ($fl,$id)=getflag($dbh,$_);
! 4698: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4699: $_=$u;
! 4700: if ((s/ôåí$/ïôø/) && (m/ïôø$/))
! 4701: { ($fl,$id)=getflag($dbh,$_);
! 4702: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4703: $_=$u;
! 4704: if ((s/ôå$/ïôø/) && (m/ïôø$/))
! 4705: { ($fl,$id)=getflag($dbh,$_);
! 4706: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4707: $_=$u;
! 4708: if ((s/ôé$/ïôø/) && (m/ïôø$/))
! 4709: { ($fl,$id)=getflag($dbh,$_);
! 4710: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4711: $_=$u;
! 4712: if ((s/ôåê$/ïôø/) && (m/ïôø$/))
! 4713: { ($fl,$id)=getflag($dbh,$_);
! 4714: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4715: $_=$u;
! 4716: if ((s/ôñí$/ïôø/) && (m/ïôø$/))
! 4717: { ($fl,$id)=getflag($dbh,$_);
! 4718: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4719: $_=$u;
! 4720: if ((s/ôñíé$/ïôø/) && (m/ïôø$/))
! 4721: { ($fl,$id)=getflag($dbh,$_);
! 4722: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4723: $_=$u;
! 4724: if ((s/ôñè$/ïôø/) && (m/ïôø$/))
! 4725: { ($fl,$id)=getflag($dbh,$_);
! 4726: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4727: $_=$u;
! 4728: if ((s/ãá$/åã/) && (m/[^áåéïì]åã$/))
! 4729: { ($fl,$id)=getflag($dbh,$_);
! 4730: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4731: $_=$u;
! 4732: if ((s/êãá$/åã/) && (m/[áåéï]åã$/))
! 4733: { ($fl,$id)=getflag($dbh,$_);
! 4734: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4735: $_=$u;
! 4736: if ((s/øãá$/åã/) && (m/ìåã$/))
! 4737: { ($fl,$id)=getflag($dbh,$_);
! 4738: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4739: $_=$u;
! 4740: if ((s/ãõ$/åã/) && (m/[^áåéïì]åã$/))
! 4741: { ($fl,$id)=getflag($dbh,$_);
! 4742: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4743: $_=$u;
! 4744: if ((s/êãõ$/åã/) && (m/[áåéï]åã$/))
! 4745: { ($fl,$id)=getflag($dbh,$_);
! 4746: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4747: $_=$u;
! 4748: if ((s/øãõ$/åã/) && (m/ìåã$/))
! 4749: { ($fl,$id)=getflag($dbh,$_);
! 4750: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4751: $_=$u;
! 4752: if ((s/êãåí$/åã/) && (m/[áåé]åã$/))
! 4753: { ($fl,$id)=getflag($dbh,$_);
! 4754: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4755: $_=$u;
! 4756: if ((s/ãå$/åã/) && (m/[^áåéïì]åã$/))
! 4757: { ($fl,$id)=getflag($dbh,$_);
! 4758: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4759: $_=$u;
! 4760: if ((s/êãå$/åã/) && (m/[áåéï]åã$/))
! 4761: { ($fl,$id)=getflag($dbh,$_);
! 4762: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4763: $_=$u;
! 4764: if ((s/øãå$/åã/) && (m/ìåã$/))
! 4765: { ($fl,$id)=getflag($dbh,$_);
! 4766: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4767: $_=$u;
! 4768: if ((s/ãù$/åã/) && (m/[^áåéïì]åã$/))
! 4769: { ($fl,$id)=getflag($dbh,$_);
! 4770: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4771: $_=$u;
! 4772: if ((s/êãù$/åã/) && (m/[áåéï]åã$/))
! 4773: { ($fl,$id)=getflag($dbh,$_);
! 4774: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4775: $_=$u;
! 4776: if ((s/øãù$/åã/) && (m/ìåã$/))
! 4777: { ($fl,$id)=getflag($dbh,$_);
! 4778: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4779: $_=$u;
! 4780: if ((s/å÷$//) && (m/[áîòñ]ã$/))
! 4781: { ($fl,$id)=getflag($dbh,$_);
! 4782: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4783: $_=$u;
! 4784: if ((s/êãå÷$/åã/) && (m/[áåé]åã$/))
! 4785: { ($fl,$id)=getflag($dbh,$_);
! 4786: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4787: $_=$u;
! 4788: if ((s/ãáí$/åã/) && (m/[^áåéïì]åã$/))
! 4789: { ($fl,$id)=getflag($dbh,$_);
! 4790: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4791: $_=$u;
! 4792: if ((s/êãáí$/åã/) && (m/[áåéï]åã$/))
! 4793: { ($fl,$id)=getflag($dbh,$_);
! 4794: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4795: $_=$u;
! 4796: if ((s/øãáí$/åã/) && (m/ìåã$/))
! 4797: { ($fl,$id)=getflag($dbh,$_);
! 4798: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4799: $_=$u;
! 4800: if ((s/ãáíé$/åã/) && (m/[^áåéïì]åã$/))
! 4801: { ($fl,$id)=getflag($dbh,$_);
! 4802: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4803: $_=$u;
! 4804: if ((s/êãáíé$/åã/) && (m/[áåéï]åã$/))
! 4805: { ($fl,$id)=getflag($dbh,$_);
! 4806: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4807: $_=$u;
! 4808: if ((s/øãáíé$/åã/) && (m/ìåã$/))
! 4809: { ($fl,$id)=getflag($dbh,$_);
! 4810: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4811: $_=$u;
! 4812: if ((s/ãáè$/åã/) && (m/[^áåéïì]åã$/))
! 4813: { ($fl,$id)=getflag($dbh,$_);
! 4814: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4815: $_=$u;
! 4816: if ((s/êãáè$/åã/) && (m/[áåéï]åã$/))
! 4817: { ($fl,$id)=getflag($dbh,$_);
! 4818: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4819: $_=$u;
! 4820: if ((s/øãáè$/åã/) && (m/ìåã$/))
! 4821: { ($fl,$id)=getflag($dbh,$_);
! 4822: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4823: $_=$u;
! 4824: if ((s/ëá$/åë/) && (m/[öþû]åë$/))
! 4825: { ($fl,$id)=getflag($dbh,$_);
! 4826: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4827: $_=$u;
! 4828: if ((s/øëá$/åë/) && (m/[ìîò]åë$/))
! 4829: { ($fl,$id)=getflag($dbh,$_);
! 4830: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4831: $_=$u;
! 4832: if ((s/ëõ$/åë/) && (m/[öþû]åë$/))
! 4833: { ($fl,$id)=getflag($dbh,$_);
! 4834: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4835: $_=$u;
! 4836: if ((s/øëõ$/åë/) && (m/[ìîò]åë$/))
! 4837: { ($fl,$id)=getflag($dbh,$_);
! 4838: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4839: $_=$u;
! 4840: if ((s/ëïí$/åë/) && (m/[öþû]åë$/))
! 4841: { ($fl,$id)=getflag($dbh,$_);
! 4842: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4843: $_=$u;
! 4844: if ((s/øëïí$/åë/) && (m/[ìîò]åë$/))
! 4845: { ($fl,$id)=getflag($dbh,$_);
! 4846: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4847: $_=$u;
! 4848: if ((s/ëå$/åë/) && (m/[öþû]åë$/))
! 4849: { ($fl,$id)=getflag($dbh,$_);
! 4850: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4851: $_=$u;
! 4852: if ((s/øëå$/åë/) && (m/[ìîò]åë$/))
! 4853: { ($fl,$id)=getflag($dbh,$_);
! 4854: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4855: $_=$u;
! 4856: if ((s/ëé$/åë/) && (m/[öþû]åë$/))
! 4857: { ($fl,$id)=getflag($dbh,$_);
! 4858: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4859: $_=$u;
! 4860: if ((s/øëé$/åë/) && (m/[ìîò]åë$/))
! 4861: { ($fl,$id)=getflag($dbh,$_);
! 4862: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4863: $_=$u;
! 4864: if ((s/ëï÷$/åë/) && (m/[öþû]åë$/))
! 4865: { ($fl,$id)=getflag($dbh,$_);
! 4866: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4867: $_=$u;
! 4868: if ((s/øëï÷$/åë/) && (m/[ìîò]åë$/))
! 4869: { ($fl,$id)=getflag($dbh,$_);
! 4870: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4871: $_=$u;
! 4872: if ((s/ëáí$/åë/) && (m/[öþû]åë$/))
! 4873: { ($fl,$id)=getflag($dbh,$_);
! 4874: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4875: $_=$u;
! 4876: if ((s/øëáí$/åë/) && (m/[ìîò]åë$/))
! 4877: { ($fl,$id)=getflag($dbh,$_);
! 4878: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4879: $_=$u;
! 4880: if ((s/ëáíé$/åë/) && (m/[öþû]åë$/))
! 4881: { ($fl,$id)=getflag($dbh,$_);
! 4882: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4883: $_=$u;
! 4884: if ((s/øëáíé$/åë/) && (m/[ìîò]åë$/))
! 4885: { ($fl,$id)=getflag($dbh,$_);
! 4886: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4887: $_=$u;
! 4888: if ((s/ëáè$/åë/) && (m/[öþû]åë$/))
! 4889: { ($fl,$id)=getflag($dbh,$_);
! 4890: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4891: $_=$u;
! 4892: if ((s/øëáè$/åë/) && (m/[ìîò]åë$/))
! 4893: { ($fl,$id)=getflag($dbh,$_);
! 4894: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4895: $_=$u;
! 4896: if ((s/ìá$/åì/) && (m/åì$/))
! 4897: { ($fl,$id)=getflag($dbh,$_);
! 4898: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4899: $_=$u;
! 4900: if ((s/ìõ$/åì/) && (m/åì$/))
! 4901: { ($fl,$id)=getflag($dbh,$_);
! 4902: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4903: $_=$u;
! 4904: if ((s/ìïí$/åì/) && (m/åì$/))
! 4905: { ($fl,$id)=getflag($dbh,$_);
! 4906: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4907: $_=$u;
! 4908: if ((s/ìå$/åì/) && (m/åì$/))
! 4909: { ($fl,$id)=getflag($dbh,$_);
! 4910: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4911: $_=$u;
! 4912: if ((s/ìù$/åì/) && (m/åì$/))
! 4913: { ($fl,$id)=getflag($dbh,$_);
! 4914: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4915: $_=$u;
! 4916: if ((s/ìï÷$/åì/) && (m/åì$/))
! 4917: { ($fl,$id)=getflag($dbh,$_);
! 4918: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4919: $_=$u;
! 4920: if ((s/ìáí$/åì/) && (m/åì$/))
! 4921: { ($fl,$id)=getflag($dbh,$_);
! 4922: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4923: $_=$u;
! 4924: if ((s/ìáíé$/åì/) && (m/åì$/))
! 4925: { ($fl,$id)=getflag($dbh,$_);
! 4926: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4927: $_=$u;
! 4928: if ((s/ìáè$/åì/) && (m/åì$/))
! 4929: { ($fl,$id)=getflag($dbh,$_);
! 4930: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4931: $_=$u;
! 4932: if ((s/ñí$/é/) && (m/[áâäåéìîïòóô]é$/))
! 4933: { ($fl,$id)=getflag($dbh,$_);
! 4934: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4935: $_=$u;
! 4936: if ((s/áí$/é/) && (m/[^áâäåéìîïòóô]é$/))
! 4937: { ($fl,$id)=getflag($dbh,$_);
! 4938: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4939: $_=$u;
! 4940: if ((s/ñíé$/é/) && (m/[áâåéìîïòó]é$/))
! 4941: { ($fl,$id)=getflag($dbh,$_);
! 4942: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4943: $_=$u;
! 4944: if ((s/ñíé$/é/) && (m/[áòó]ôé$/))
! 4945: { ($fl,$id)=getflag($dbh,$_);
! 4946: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4947: $_=$u;
! 4948: if ((s/áíé$/é/) && (m/[^áâäåéìîïòóô]é$/))
! 4949: { ($fl,$id)=getflag($dbh,$_);
! 4950: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4951: $_=$u;
! 4952: if ((s/ñè$/é/) && (m/[áâäåéìîïòóô]é$/))
! 4953: { ($fl,$id)=getflag($dbh,$_);
! 4954: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4955: $_=$u;
! 4956: if ((s/áè$/é/) && (m/[^áâäåéìîïòóô]é$/))
! 4957: { ($fl,$id)=getflag($dbh,$_);
! 4958: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4959: $_=$u;
! 4960: if ((s/áí$/ù/) && (m/ù$/))
! 4961: { ($fl,$id)=getflag($dbh,$_);
! 4962: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4963: $_=$u;
! 4964: if ((s/áíé$/ù/) && (m/ù$/))
! 4965: { ($fl,$id)=getflag($dbh,$_);
! 4966: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4967: $_=$u;
! 4968: if ((s/áè$/ù/) && (m/ù$/))
! 4969: { ($fl,$id)=getflag($dbh,$_);
! 4970: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4971: $_=$u;
! 4972: if ((s/í$//) && (m/[áñ]$/))
! 4973: { ($fl,$id)=getflag($dbh,$_);
! 4974: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4975: $_=$u;
! 4976: if ((s/íé$//) && (m/[áñ]$/))
! 4977: { ($fl,$id)=getflag($dbh,$_);
! 4978: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4979: $_=$u;
! 4980: if ((s/è$//) && (m/[áñ]$/))
! 4981: { ($fl,$id)=getflag($dbh,$_);
! 4982: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4983: $_=$u;
! 4984: if ((s/á$//) && (m/éî$/))
! 4985: { ($fl,$id)=getflag($dbh,$_);
! 4986: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4987: $_=$u;
! 4988: if ((s/õ$//) && (m/éî$/))
! 4989: { ($fl,$id)=getflag($dbh,$_);
! 4990: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4991: $_=$u;
! 4992: if ((s/ïí$//) && (m/éî$/))
! 4993: { ($fl,$id)=getflag($dbh,$_);
! 4994: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4995: $_=$u;
! 4996: if ((s/å$//) && (m/éî$/))
! 4997: { ($fl,$id)=getflag($dbh,$_);
! 4998: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 4999: $_=$u;
! 5000: if ((s/å$/éî/) && (m/îéî$/))
! 5001: { ($fl,$id)=getflag($dbh,$_);
! 5002: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 5003: $_=$u;
! 5004: if ((s/ù$/éî/) && (m/òéî$/))
! 5005: { ($fl,$id)=getflag($dbh,$_);
! 5006: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 5007: $_=$u;
! 5008: if ((s/$/éî/) && (m/éî$/))
! 5009: { ($fl,$id)=getflag($dbh,$_);
! 5010: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 5011: $_=$u;
! 5012: if ((s/áí$/éî/) && (m/éî$/))
! 5013: { ($fl,$id)=getflag($dbh,$_);
! 5014: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 5015: $_=$u;
! 5016: if ((s/áíé$/éî/) && (m/éî$/))
! 5017: { ($fl,$id)=getflag($dbh,$_);
! 5018: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 5019: $_=$u;
! 5020: if ((s/áè$/éî/) && (m/éî$/))
! 5021: { ($fl,$id)=getflag($dbh,$_);
! 5022: if ($fl && ($fl=~m/O/)){push @list, $id}}
! 5023: $_=$u;
! 5024: if ((s/á$//) && (m/[^åêëïøñ]$/))
! 5025: { ($fl,$id)=getflag($dbh,$_);
! 5026: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5027: $_=$u;
! 5028: if ((s/õ$//) && (m/[^åêëïøñ]$/))
! 5029: { ($fl,$id)=getflag($dbh,$_);
! 5030: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5031: $_=$u;
! 5032: if ((s/ùí$//) && (m/[^åöêëïãþûýøñ]$/))
! 5033: { ($fl,$id)=getflag($dbh,$_);
! 5034: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5035: $_=$u;
! 5036: if ((s/å$//) && (m/[^åêëïøñ]$/))
! 5037: { ($fl,$id)=getflag($dbh,$_);
! 5038: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5039: $_=$u;
! 5040: if ((s/ïçï$/éê/) && (m/ê$/))
! 5041: { ($fl,$id)=getflag($dbh,$_);
! 5042: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5043: $_=$u;
! 5044: if ((s/ïíõ$/éê/) && (m/ê$/))
! 5045: { ($fl,$id)=getflag($dbh,$_);
! 5046: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5047: $_=$u;
! 5048: if ((s/í$/ê/) && (m/ê$/))
! 5049: { ($fl,$id)=getflag($dbh,$_);
! 5050: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5051: $_=$u;
! 5052: if ((s/í$/ê/) && (m/[^é]ê$/))
! 5053: { ($fl,$id)=getflag($dbh,$_);
! 5054: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5055: $_=$u;
! 5056: if ((s/ïí$/éê/) && (m/éê$/))
! 5057: { ($fl,$id)=getflag($dbh,$_);
! 5058: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5059: $_=$u;
! 5060: if ((s/ëá$/åë/) && (m/åë$/))
! 5061: { ($fl,$id)=getflag($dbh,$_);
! 5062: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5063: $_=$u;
! 5064: if ((s/ëõ$/åë/) && (m/åë$/))
! 5065: { ($fl,$id)=getflag($dbh,$_);
! 5066: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5067: $_=$u;
! 5068: if ((s/ëïí$/åë/) && (m/åë$/))
! 5069: { ($fl,$id)=getflag($dbh,$_);
! 5070: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5071: $_=$u;
! 5072: if ((s/ëå$/åë/) && (m/åë$/))
! 5073: { ($fl,$id)=getflag($dbh,$_);
! 5074: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5075: $_=$u;
! 5076: if ((s/ëá$/ïë/) && (m/ïë$/))
! 5077: { ($fl,$id)=getflag($dbh,$_);
! 5078: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5079: $_=$u;
! 5080: if ((s/ëõ$/ïë/) && (m/ïë$/))
! 5081: { ($fl,$id)=getflag($dbh,$_);
! 5082: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5083: $_=$u;
! 5084: if ((s/ëïí$/ïë/) && (m/ïë$/))
! 5085: { ($fl,$id)=getflag($dbh,$_);
! 5086: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5087: $_=$u;
! 5088: if ((s/ëå$/ïë/) && (m/ïë$/))
! 5089: { ($fl,$id)=getflag($dbh,$_);
! 5090: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5091: $_=$u;
! 5092: if ((s/ñ$/ø/) && (m/ø$/))
! 5093: { ($fl,$id)=getflag($dbh,$_);
! 5094: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5095: $_=$u;
! 5096: if ((s/à$/ø/) && (m/ø$/))
! 5097: { ($fl,$id)=getflag($dbh,$_);
! 5098: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5099: $_=$u;
! 5100: if ((s/åí$/ø/) && (m/ø$/))
! 5101: { ($fl,$id)=getflag($dbh,$_);
! 5102: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5103: $_=$u;
! 5104: if ((s/å$/ø/) && (m/ø$/))
! 5105: { ($fl,$id)=getflag($dbh,$_);
! 5106: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5107: $_=$u;
! 5108: if ((s/é$/ø/) && (m/ø$/))
! 5109: { ($fl,$id)=getflag($dbh,$_);
! 5110: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5111: $_=$u;
! 5112: if ((s/åê$/ø/) && (m/ø$/))
! 5113: { ($fl,$id)=getflag($dbh,$_);
! 5114: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5115: $_=$u;
! 5116: if ((s/ñí$/ø/) && (m/ø$/))
! 5117: { ($fl,$id)=getflag($dbh,$_);
! 5118: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5119: $_=$u;
! 5120: if ((s/ñíé$/ø/) && (m/ø$/))
! 5121: { ($fl,$id)=getflag($dbh,$_);
! 5122: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5123: $_=$u;
! 5124: if ((s/ñè$/ø/) && (m/ø$/))
! 5125: { ($fl,$id)=getflag($dbh,$_);
! 5126: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5127: $_=$u;
! 5128: if ((s/é$/ñ/) && (m/ñ$/))
! 5129: { ($fl,$id)=getflag($dbh,$_);
! 5130: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5131: $_=$u;
! 5132: if ((s/å$/ñ/) && (m/[^é]ñ$/))
! 5133: { ($fl,$id)=getflag($dbh,$_);
! 5134: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5135: $_=$u;
! 5136: if ((s/à$/ñ/) && (m/ñ$/))
! 5137: { ($fl,$id)=getflag($dbh,$_);
! 5138: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5139: $_=$u;
! 5140: if ((s/åê$/ñ/) && (m/ñ$/))
! 5141: { ($fl,$id)=getflag($dbh,$_);
! 5142: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5143: $_=$u;
! 5144: if ((s/åà$/ñ/) && (m/ñ$/))
! 5145: { ($fl,$id)=getflag($dbh,$_);
! 5146: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5147: $_=$u;
! 5148: if ((s/ê$/ñ/) && (m/[åéõ]ñ$/))
! 5149: { ($fl,$id)=getflag($dbh,$_);
! 5150: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5151: $_=$u;
! 5152: if ((s/åî$/îñ/) && (m/[^áåúéêïõùø]îñ$/))
! 5153: { ($fl,$id)=getflag($dbh,$_);
! 5154: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5155: $_=$u;
! 5156: if ((s/ø$/ñ/) && (m/[áåéïõù]îñ$/))
! 5157: { ($fl,$id)=getflag($dbh,$_);
! 5158: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5159: $_=$u;
! 5160: if ((s/åî$/êîñ/) && (m/êîñ$/))
! 5161: { ($fl,$id)=getflag($dbh,$_);
! 5162: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5163: $_=$u;
! 5164: if ((s/åî$/øîñ/) && (m/øîñ$/))
! 5165: { ($fl,$id)=getflag($dbh,$_);
! 5166: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5167: $_=$u;
! 5168: if ((s/í$//) && (m/ñ$/))
! 5169: { ($fl,$id)=getflag($dbh,$_);
! 5170: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5171: $_=$u;
! 5172: if ((s/íé$//) && (m/ñ$/))
! 5173: { ($fl,$id)=getflag($dbh,$_);
! 5174: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5175: $_=$u;
! 5176: if ((s/è$//) && (m/ñ$/))
! 5177: { ($fl,$id)=getflag($dbh,$_);
! 5178: if ($fl && ($fl=~m/G/)){push @list, $id}}
! 5179: $_=$u;
! 5180: ($fl,$id)=getflag($dbh,$_);
! 5181: if ($fl) {push @list, $id}
! 5182:
! 5183: @list
! 5184: } 1
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>