From 7d35db79dd6659487fe26447ab22caa36e597eda Mon Sep 17 00:00:00 2001
From: fukachan <fukachan>
Date: Sun, 18 Mar 2001 14:29:10 +0000
Subject: IO::Adapter::DBI -< IO::Adapter::MySQL SQL::Schema::toymodel holds
 model specific functions and nuke $args->{query} parameters.

---
 fml/lib/SQL/Schema/toymodel.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

(limited to 'fml/lib/SQL')

diff --git a/fml/lib/SQL/Schema/toymodel.pm b/fml/lib/SQL/Schema/toymodel.pm
index 5ae90645..0c15e750 100644
--- a/fml/lib/SQL/Schema/toymodel.pm
+++ b/fml/lib/SQL/Schema/toymodel.pm
@@ -31,8 +31,26 @@ model.
 
 =cut
 
-sub new
+
+sub build_sql_query
 {
+    my ($self, $args) = @_;
+    my $query   = $args->{ query };
+    my $ml_name = $self->{ _params }->{ ml_name };
+    my $file    = $self->{ _params }->{ file };
+    my $address = $args->{ address };
+    my $table   = $self->{ _table };
+
+    if ($query eq 'add') {
+	"insert into $table values ('$ml_name', '$file', '$address', 0, 0)";
+    }
+    elsif ($query eq 'delete') {
+	"delete from $table where ml='$ml_name' and address='$address'";
+    }
+    else {
+	"select address from $table where ml='$ml_name' and file='$file'";
+    }
 }
 
+
 1;
-- 
cgit v1.2.1