[ic] read only error submit review

[TheRealPiccolo at gmx.de]

Hi,

I searched the mailing list for my Problem but I couldn´t find a sulotion.

To my Problem:
I get this error, when I´m going to submit a review for a product:
(table forum): Attempt to set slice of in read-only table forum 

the error.log says:
foundation /cgi-bin/foundation/forum/reply.html Attempt to set slice of  in
read-only table forum
foundation /cgi-bin/foundation/forum/reply.html Safe: syntax error at (eval
3348) line 1, near "(,"

I just can´t find the error!  

here´s my reply.html:

[flag type=write table=forum]
[tmp page_title]Reply to [data table=forum col=subject key="[data session
arg]"][/tmp]

[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]

<div align=left>
[if !cgi operation]
	[loop list="[data session arg]" prefix=item]
	[if-item-data forum code]
	<table>
	<tr>
	<td bgcolor="#eeeeee">
	    <b>[item-data forum subject]</b>
	    <small>[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 <b>[forum-userlink
			username="[item-data forum username]"
			name="[item-data forum name]"
			anon="[item-data forum anon]"
		]</b> on [convert-date fmt="%A, %B %e, %Y @%H:%M"][item-data forum
created][/convert-date]</small>
        </li>

	</td>
	</tr>
	<tr>
	<td>
		[item-data forum comment]
	</td>
	</tr>
[if-item-data forum additional]
	<tr>
	<td>
		[item-data forum additional]
	</td>
	</tr>
[/if-item-data]
	<tr>
	<td>
	<hr>
	<B>You are replying to the above.</b>
	</td>
	</tr>
	</table>
	[/if-item-data]
	[/loop]
[/if]

[if cgi operation eq '[L]Preview[/L]']

	<table>
	<tr>
	<td class=contentbar1>
	<B>[cgi name=subject filter=restrict_html]<br>
	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]</B>
	</td>
	</tr>
	<td>
	[if cgi commtype eq 2]
	[cgi name=comment filter="text2html" keep=1 enable_html=1]
	[elsif cgi commtype eq 4]
		<xmp>[cgi name=comment]</xmp>
	[/elsif]
	[else]
		[cgi name=comment
filter="restrict_html.a.b.i.u.blockquote.li.ol.ul.em.br.tt.p.strong.div" keep=1 enable_html=1]
	[/else]
	[/if]
	</td>
	</tr>
	</table>
<P>
Above is a preview of what you just entered. Use <b>Submit</b> to actually
submit if you are satisfied. 
</P>
[/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} = "<XMP>$CGI->{comment}</XMP>";
		}
	}
	$v{comment} = $CGI->{comment};
	my $filter = join ".", 'restrict_html', @allowed;
	$v{comment} = $Tag->filter($filter,$v{comment})
		unless $noscrub;
	$v{username} = $Session->{username} || '';
	$v{anon} = $CGI->{anon} ? 1 : 0;
	$v{created} =
	$v{mod_time} = $Tag->time( { body => "%Y-%m-%d %H:%M:%S" });
#Debug("mod_time $v{mod_time}");
	$v{subject} =  $Tag->filter('encode_entities', $CGI->{subject}, 'subject');
	$v{artid} =  $CGI->{artid};

	$v{parent} =  $CGI->{parent};
	$Scratch->{tmp_code} = $db->set_slice(undef, [ keys %v ], [values %v])
		or return "Error submitting reply!";

	$Scratch->{tmp_code} =~ s/'//g;
	$Scratch->{tmp_parent} = $v{parent};

	my $mrecord = $db->row_hash($v{artid});

	## This is special processing only if main article ID record
	## is found
	if($mrecord and $mrecord->{email}) {
		my $cc = $mrecord->{email};
		my $url = $Tag->area(
								{ href => 'admin/flex_editor',
								  form => "
								  		mv_data_table=forum
								  		item_id=$Scratch->{tmp_code}
								  ",
								  });


		my $message = <<EOF;
Subject: $v{subject}
From: $v{name} <$v{email}>
Host: $v{host}

$v{comment}

Edit/delete:

	$url
EOF

		$Tag->email( {
					subject => "Posting from $v{artid} forum: $v{subject}",
					to => $cc,
					body => $message,
					});

	}

	return;
[/perl]

	[if scratch tmp_code]
		[bounce href="[area href=forum/display arg='[scratch tmp_parent]']"]
	[/if]
[else]
	[include include/forum/reply_form]
[/else]
[/if]

<P>

[if variable FORUM_DEFAULT_THREAD]
[page forum __FORUM_DEFAULT_THREAD__]__COMPANY__ forum[/page]
[/if]



-- 
+++ NEU bei GMX und erstmalig in Deutschland: TÜV-geprüfter Virenschutz +++
100% Virenerkennung nach Wildlist. Infos: http://www.gmx.net/virenschutz