[prev in list] [next in list] [prev in thread] [next in thread] 

List:       bricolage-commits
Subject:    [Bricolage-Commits] Added keyword event.
From:       David Wheeler <wheeler () users ! sourceforge ! net>
Date:       2002-11-13 6:02:09
[Download RAW message or body]

Log Message:
-----------
Added keyword event.

Modified Files:
--------------
    /cvsroot/bricolage/bricolage/lib/Bric/SOAP:
        Story.pm
["wheeler-20021113629-diff.txt" (wheeler-20021113629-diff.txt)]

Index: Story.pm
===================================================================
RCS file: /cvsroot/bricolage/bricolage/lib/Bric/SOAP/Story.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -u -w -d -r1.33 -r1.34
--- Story.pm	9 Nov 2002 01:43:45 -0000	1.33
+++ Story.pm	13 Nov 2002 06:02:09 -0000	1.34
@@ -882,7 +882,10 @@
             my @kws;
             foreach (@{$sdata->{keywords}{keyword}}) {
                 my $kw = Bric::Biz::Keyword->lookup({ name => $_ });
-                $kw ||= Bric::Biz::Keyword->new({ name => $_})->save;
+                unless ($kw) {
+                    $kw = Bric::Biz::Keyword->new({ name => $_})->save;
+                    log_event('keyword_new', $kw);
+                }
                 push @kws, $kw;
             }
 
-------------------------------------------------------
This sf.net email is sponsored by: Are you worried about 
your web server security? Click here for a FREE Thawte 
Apache SSL Guide and answer your Apache SSL security 
needs: http://www.gothawte.com/rd523.html
_______________________________________________
Bricolage-Commits mailing list
Bricolage-Commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/bricolage-commits

[prev in list] [next in list] [prev in thread] [next in thread]