<id>
Announcement Board Fix
</id>

<version>
1.0
</version>

<mod info>
This fixes a minor glitch in announcement_board_1_3f_poll.mod
</mod info>

<author>
cae
</author>

<edit file>
Sources/ManageBoards.pl
</edit file>

<search for>
		fopen(FILE, ">$boardsdir/$FORM{'id'}.dat", 1);
		$FORM{'descr'} =~ s/\n/ /g;
		$FORM{'descr'} =~ s/\r//g;
		$FORM{'moderator'} =~ s/\s*,\s*/|/g;
		print FILE "$FORM{'boardname'}\n";
		print FILE "$FORM{'descr'}\n";
		print FILE "$FORM{'moderator'}\n";
		print FILE "$FORM{'startset'}\n";
		print FILE "$FORM{'replyset'}\n";
		print FILE "$FORM{'pollset'}\n";
		fclose(FILE);

		$yySetLocation = qq~$cgi&action=manageboards~;
		&redirectexit;
</search for>

<replace>
		fopen(FILE, ">$boardsdir/$FORM{'id'}.dat", 1);
          	$FORM{'descr'} =~ s/\n/ /g;
          	$FORM{'descr'} =~ s/\r//g;
          	$FORM{'moderator'} =~ s/\s*,\s*/|/g;
          	print FILE "$FORM{'boardname'}\n";
          	print FILE "$FORM{'descr'}\n";
          	print FILE "$FORM{'moderator'}\n";
          	print FILE "$FORM{'pollset'}\n";
          	print FILE "$FORM{'startset'}\n";
          	print FILE "$FORM{'replyset'}\n";
          	fclose(FILE);

          	$yySetLocation = qq~$cgi&action=manageboards~;
          	&redirectexit;


</replace>

<search for>
	print FILE "$FORM{'moderator'}|\n";
	print FILE "$FORM{'startset'}\n";
	print FILE "$FORM{'replyset'}\n";
	print FILE "$FORM{'pollset'}\n";
	fclose(FILE);
	fopen(FILE, ">$boardsdir/$id.txt");
	print FILE '';
	fclose(FILE);
	
	&BoardCatsMake;
	$yySetLocation = qq~$cgi&action=manageboards~;
	&redirectexit;
}


1;
</search for>

<replace>
	print FILE "$FORM{'moderator'}|\n";
	print FILE "$FORM{'pollset'}\n";
	print FILE "$FORM{'startset'}\n";
	print FILE "$FORM{'replyset'}\n";
	fclose(FILE);
	fopen(FILE, ">$boardsdir/$id.txt");
	print FILE '';
	fclose(FILE);
	
	&BoardCatsMake;
	$yySetLocation = qq~$cgi&action=manageboards~;
	&redirectexit;
}


1;
</replace>

<edit file>
Sources/Post.pl
</edit file>

<search for>
	chomp($blah[3]);
	chomp($blah[4]);
	if (!$num) {
		if ($blah[3] == 1) {
			if ($username eq 'Guest') {
				&fatal_error("Sorry, only members may start threads on this board.");
			}
		} elsif ($blah[3] == 2) {
			if ($settings[7] ne 'Administrator' && !exists $moderators{$username} && $settings[7] ne 'Global Moderator') {
				&fatal_error("Sorry, only admins and moderators may start threads on this board.");
			}
		}
	} else {
		if ($blah[4] == 1) {
			if ($username eq 'Guest') {
				&fatal_error("Sorry, only members may reply on this board.");
			}
		} elsif ($blah[4] == 2) {
			if ($settings[7] ne 'Administrator' && !exists $moderators{$username} && $settings[7] ne 'Global Moderator') {
				&fatal_error("Sorry, only admins and moderators may reply on this board.");
			}
		}
	}
}
</search for>

<replace>
	chomp($blah[4]);
	chomp($blah[5]);
	if (!$num) {
		if ($blah[4] == 1) {
			if ($username eq 'Guest') {
				&fatal_error("Sorry, only members may start threads on this board.");
			}
		} elsif ($blah[4] == 2) {
			if ($settings[7] ne 'Administrator' && !exists $moderators{$username} && $settings[7] ne 'Global Moderator') {
				&fatal_error("Sorry, only admins and moderators may start threads on this board.");
			}
		}
	} else {
		if ($blah[5] == 1) {
			if ($username eq 'Guest') {
				&fatal_error("Sorry, only members may reply on this board.");
			}
		} elsif ($blah[5] == 2) {
			if ($settings[7] ne 'Administrator' && !exists $moderators{$username} && $settings[7] ne 'Global Moderator') {
				&fatal_error("Sorry, only admins and moderators may reply on this board.");
			}
		}
	}
}
</replace>