From 8d7d1d2595c2c3475ec27d07d8544e345dab5851 Mon Sep 17 00:00:00 2001
From: Arne Georg Gleditsch <argggh@taniquetil.(none)>
Date: Fri, 6 Mar 2009 21:13:18 +0100
Subject: Added more language modules, threw things about a bit.

---
 lib/LXRng/Index/DBI.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'lib/LXRng/Index/DBI.pm')

diff --git a/lib/LXRng/Index/DBI.pm b/lib/LXRng/Index/DBI.pm
index 763f534..55e215d 100644
--- a/lib/LXRng/Index/DBI.pm
+++ b/lib/LXRng/Index/DBI.pm
@@ -520,6 +520,22 @@ sub get_identifier_info {
 	    \%reflines);
 }
 
+sub set_rfile_charset {
+    my ($self, $rfile_id, $charset) = @_;
+
+    my $dbh = $self->dbh;
+    my $pre = $self->prefix;
+    my $sth = $$self{'sth'}{'set_rfile_charset'} ||=
+	$dbh->prepare(qq{
+	    update ${pre}revisions
+		set body_charset = (select id from ${pre}charsets
+				    where name = ?) 
+		where id = ?});
+    
+    return $sth->execute($charset, $rfile_id);
+}
+
+
 sub get_rfile_timestamp {
     my ($self, $rfile_id) = @_;
 
-- 
cgit v1.2.3