
package cmn;

our $version = "My Signup Sheet 2.52";

sub dienice {
	my $msg = $_[0];
	print "<center>
	<table width=800 bgcolor=$svb::darkcolor cellspacing=1>
		<tr>
			<td>
				<table width=100% bgcolor=$svb::lightcolor>
					<tr>
						<td colspan=2 align=center>
						<font face=$svb::font color=$svb::darkcolor size=$svb::headersize><b>Oops!</b></font>
						</td>
					</tr>
					<tr>
						<td colspan=2>
						<font face=$svb::font color=$svb::darkcolor size=$svb::smallersize><center>$msg</center>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</center>";
	exit;
}




sub printendhtml {

	my $return .= "";
}



return 1;
