[comment] ui_template: Yes ui_template_name: leftonly [/comment] [flag type=write table=forum] [tmp page_title]Reply to [data table=forum col=subject key="[data session arg]"][/tmp] [control reset=1] [control-set] [component]search_box_small[/component] [/control-set] [control-set] [component]cart_tiny[/component] [/control-set] [control-set] [component]category_vertical[/component] [/control-set] [control reset=1] [comment] Form shamelessly stolen from Slash, thanks guys. [/comment] @_LEFTONLY_TOP_@ [if cgi product] [if type=!data term="forum:code:[data session arg]"] [perl tables="forum products"] my $db = $Db{forum}; my $code = $Session->{arg}; my $desc = tag_data('products', 'description', $code); my $parent = 0; if($CGI->{subsidiary}) { $parent = $CGI->{subsidiary}; } return unless $desc; my $record = { created => $Tag->convert_date( { fmt => '%Y%m%d%H%M' }), artid => $code, subject => "Comments on $desc", username => "interch", name => "Product Manager", email => $Variable->{FORUM_EMAIL_NOTIFY} || '', score => 1, comment => "", parent => $parent, }; $db->set_slice($code, $record); return; [/perl] [/if] [/if]
[item-data forum subject] [if-item-data forum score](Score: [item-data forum score][if-item-data forum reason], [item-data forum reason][/if-item-data])[/if-item-data] by [forum-userlink username="[item-data forum username]" name="[item-data forum name]" anon="[item-data forum anon]" ] on [convert-date fmt="%A, %B %e, %Y @%H:%M"][item-data forum created][/convert-date] |
[item-data forum comment] |
[item-data forum additional] |
You are replying to the above. |
[cgi name=subject filter=restrict_html] by [if !session logged_in] [either]__FORUM_ANON_NAME__[or]Anonymous Coward[/either] [else] [if cgi anon] [either]__FORUM_ANON_NAME__[or]Anonymous Coward[/either] [else] [either][value handle][or][value fname][or][data session username][/either] [/else] [/if] [/else] [/if] on [convert-date fmt="%A, %B %e, %Y @%H:%M"][/convert-date] |
[if cgi commtype eq 2]
[cgi name=comment filter="text2html" keep=1 enable_html=1]
[elsif cgi commtype eq 4]
|
Above is a preview of what you just entered. Use Submit to actually submit if you are satisfied.
[/if] [if cgi operation eq '[L]Submit[/L]'] [flag type=write table=forum] [perl tables="forum"] # code parent artid mod_time created username host score # lastscore reason anon extended subject comment my @allowed = qw/ a b i u blockquote li ol ul em br tt p strong div /; my %v; delete $Scratch->{tmp_code}; my $db = $Db{forum} or return "Database error."; $v{host} = $Session->{host}; $v{score} = 1; my $noscrub; if(! $CGI->{commtype}) { # do nothing } elsif($CGI->{commtype} eq '2') { $CGI->{comment} = $Tag->filter('text2html', $CGI->{comment}); } elsif($CGI->{commtype} eq '4') { unless ($CGI->{comment} =~ m{\s*xmp\s*>}i) { $noscrub = 1; $CGI->{comment} = "[if variable FORUM_DEFAULT_THREAD] [page forum __FORUM_DEFAULT_THREAD__]__COMPANY__ forum[/page] [/if]