Форум программистов [Powered by Invision Power Board]

Код


<form name="feedback" method="post">    
<input type="hidden" name="order" value="1" />                      
<table width="100%" cellpadding="0" cellspacing="0" id="contact">
    
    <tr>
        <th colspan="2"><label for="topic"><TMPL_VAR TEXT_FORM_TOPIC>&nbsp;<img src="/images/star.gif" width="5" height="10" alt="" /></label></td>
    </tr>
    <tr>
        <td colspan="2">
            <TMPL_IF TOPICS_LIST>
                <select name="topic" id="topic">
                    <TMPL_LOOP TOPICS_LIST>
                    <option value="<TMPL_VAR NAME ESCAPE=HTML>"><TMPL_VAR NAME></option>
                    </TMPL_LOOP>
                </select>
            <TMPL_ELSE>
                <input type="hidden" name="topic" value="<TMPL_VAR TOPIC_VALUE ESCAPE=HTML>" />
            </TMPL_IF>
        </td>
    </tr>
    
    <tr>
        <th colspan="2"><label for="topic"><TMPL_VAR TEXT_FORM_RESPONSE>&nbsp;<img src="/images/star.gif" width="5" height="10" alt="" /></label></td>
    </tr>
    <tr>
        <td colspan="2">
            <select name="type">
                <option value="electronic"><TMPL_VAR TEXT_ELECTRO_FORM ></option>
                <option value="written"><TMPL_VAR TEXT_WRITING_FORM ></option>
            </select>
        </td>
    </tr>
    <tr>
        <th colspan="2"><label for="message"><TMPL_VAR TEXT_FORM_MESSAGE>&nbsp;<img src="/images/star.gif" width="5" height="10" alt="" /></label></th>
    </tr>
    <tr>
        <td colspan="2"><textarea  name="message" maxlength="10000" rows="8" id="message"><TMPL_VAR INP_MESSAGE ESCAPE=HTML></textarea></td>
    </tr>
    <tr>
        <td colspan="2"><label for="filename"><TMPL_VAR TEXT_FORM_FILE_NAME><br /> <input type="file" name="file_name"> </label></td>
    </tr> 
    <tr>
        <th width="50%" ></td>
        <th width="50%" >
            <label for="email"><TMPL_VAR TEXT_CAPTCHA>&nbsp;<img src="/images/star.gif" width="5" height="10" alt="" /></label>
        </td>
    </tr>
    <tr>
        <td>
            <img src="/images/captcha/<TMPL_VAR CODE>.png" alt="" />
        </td>
        <td>
            <input type="Text" name="code"  maxlength="50" id="code" value="<TMPL_VAR ESCAPE=HTML CGI_CODE >" />
            <input type="hidden" name="check_code" value="<TMPL_VAR CODE>" />    
        </td>
    </tr>
    <tr>
        <td colspan="2" class="button"><input name="order" type="image" <TMPL_VAR TEXT_SEND_IMG> style="width: 80px;" /></td>
    </tr>

</table>    
</form>

Код


sub save_feedback {
    my $self = shift;
    my %col  = @_;

    my $id = sh_dblib::newID(
        $self->dbh,
        'sh_feedbacks',
        [qw(id ip name email subject content topicid unread to_mail user_id type lastname file_name)],
        [
            $ENV{REMOTE_ADDR},
            $col{name} || '',
            $col{email},
            $col{topic},
            $col{message},
            $self->topicid,
            1,
            $col{to_mail},
            $col{user_id},
            $col{type},
            $col{lastname},
            $col{file_name}
            
        ],8
    );
    return $id;
}

Код


sub send_feedback {
    my $self = shift;
    my $template = shift;
    my %param = @_;
    
    my %param = reverse @_;
        %param = reverse %param;


    $self->mail_template('modules/emails/' . $template);
    $self->param(%param); $self->param(IP => $ENV{REMOTE_ADDR});
    $self->mail();
    $self->__redirect($self->param('TOPIC_INFO_URL') . 'ok') unless $param{no_redirect};
}