<?php

#############################################################################
#                              WIZZ FORUM
#  Wizz Forum is a KISS Forum: Keep It Small and Simple.
#
# About the Wizz Forum:
# Original Idea & PHP coding: Mike Kroger (mikek@icon.co.za),
# who granted permission to put Wizz forum uder the GNU GPL.  
# Code adaptations and modularization for Site@School:
# Fred Stuurman (fc.stuurman@hccnet.nl)
############################################################################
# forumnewtopic.php: last changed 05/10/2006  version 2.4.10
#                    by Fred Stuurman (fc.stuurman@hccnet.nl)
#$Id: forumnewtopic.php,v 1.2 2006/10/15 19:08:53 fstuurman Exp $
############################################################################
#                        LICENSE INFORMATION
# Copyright (C) 2002, Rosa Boekdrukker Primary School, Holland.
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
# See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
##############################################################################
if (!defined('IN_SAS'))
{
	die("Hacking attempt");
}

print "<SCRIPT Language = \"JavaScript\">
    function checkLen(Target) {
        StrLen = Target.value.length;
        document.PostNewTopic.charstyped.value = StrLen;
    }
</SCRIPT>";

if (IsSet ($_GET['forumid']) )
{
	$forumid = intval($_GET['forumid']);
}

print "<p><table cellspacing=\"0\" cellpadding=\"0\"><tr height=\"25\">
           <td background=\"$cmsdir/modules/sn_forum/left.gif\" width=\"10\">&nbsp;</td>
           <td background=\"$cmsdir/modules/sn_forum/middle.gif\" align=\"center\">
           <a href='index.php?section=$section&page=$page&option=forum&forumid=$forumid'><b>$sas_lang[forum_main_page]</b></a></td>
           <td background=\"$cmsdir/modules/sn_forum/right.gif\" width=\"10\">&nbsp;</td>
           </tr></table></p>
           <table border='0' cellpadding='2' cellspacing='0' width='100%'>
           <tr>
           <td width='100%' align='center'><font face='Arial' size='4'>$sas_lang[forum_post_newtopic]</font></td>
           </tr>
           </table>
           <form method='POST' action='index.php?option=postnewtopic&section=$section&page=$page&forumid=$forumid' name='PostNewTopic'>
           <center>
           <table border='1' cellpadding='0' cellspacing='0' width='80%' bordercolor='$sas_lang[forum_bordercolor]'>
           <tr>
           <td width='100%'>
           <table border='0' cellpadding='3' cellspacing='0' width='100%'>
           <tr>
           <td width='50%' bgcolor='$OddBackgroundColor'>
           <font face='Arial' size='2'><b>$sas_lang[forum_topic_title] </b></font>
           <input type='text' tabindex='1' name='topictitle' size='30'></td>
           </tr>
           <tr>
           <td width='100%' align='center' colspan='2' bgcolor='$EvenBackgroundColor'>
           <font face='Arial' size='2'><b>$sas_lang[forum_text]:</b></font><br>
           <textarea tabindex='2' WRAP='VIRTUAL' rows='6' name='topicdetail' value='$topicdetail' cols='50' onFocus='checkLen(this);'
           onKeydown='checkLen(this);' onKeyup='checkLen(this);' onKeyPress='checkLen(this);'
           onBlur='checkLen(this);' onChange='checkLen(this);' onClick='checkLen(this);'></textarea><br>
           <input type='text' name='charstyped' size='4' value='0'><font face='Arial' size='2'>&nbsp;$sas_lang[forum_char_typed] </font>(<font color='$sas_lang[forum_noticecolor]'>Max. $MaxTopicBody</font>)</td>
           </tr>
           <tr>
           <td width='50%' bgcolor='$OddBackgroundColor'>
           <font face='Arial' size='2'>$sas_lang[forum_keep_posted]: </font>
           <input type='checkbox' tabindex='3' name='send_email' ></td>
           <tr><td width='100%' align='center' colspan='2' bgcolor='$EvenBackgroundColor'>
           <input type='submit' tabindex='4' value='$sas_lang[forum_send]' name='B1'></td>
           </tr>
           </table>
           </td></tr>
           </table>
           </center>
           </form>";
?>