[Koha-cvs] Changes to koha/C4/Suggestions.pm [rel_2_2]

[paul poulain]

Index: koha/C4/Suggestions.pm
diff -u koha/C4/Suggestions.pm:1.4.2.2 koha/C4/Suggestions.pm:1.4.2.3
--- koha/C4/Suggestions.pm:1.4.2.2      Fri Aug 26 12:21:49 2005
+++ koha/C4/Suggestions.pm      Thu Dec  1 17:27:55 2005
@@ -1,6 +1,6 @@
 package C4::Suggestions;
 
-# $Id: Suggestions.pm,v 1.4.2.2 2005/08/26 12:21:49 hdl Exp $
+# $Id: Suggestions.pm,v 1.4.2.3 2005/12/01 17:27:55 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -64,6 +64,7 @@
                                &delsuggestion
                                &countsuggestion
                                &changestatus
+                               &findsuggestion_from_biblionumber
                        );
 
 =item SearchSuggestion
@@ -191,15 +192,25 @@
 }
 
 sub changestatus {
-       my ($suggestionid,$status,$managedby) = @_;
+       my ($suggestionid,$status,$managedby,$biblionumber) = @_;
        my $dbh = C4::Context->dbh;
        my $sth;
        if ($managedby>0) {
-               $sth = $dbh->prepare("update suggestions set 
status=?,managedby=? where suggestionid=?");
-               $sth->execute($status,$managedby,$suggestionid);
+               if ($biblionumber) {
+                       $sth = $dbh->prepare("update suggestions set 
status=?,managedby=?,biblionumber=? where suggestionid=?");
+                       
$sth->execute($status,$managedby,$biblionumber,$suggestionid);
+               } else {
+                       $sth = $dbh->prepare("update suggestions set 
status=?,managedby=? where suggestionid=?");
+                       $sth->execute($status,$managedby,$suggestionid);
+               }
        } else {
-               $sth = $dbh->prepare("update suggestions set status=? where 
suggestionid=?");
-               $sth->execute($status,$suggestionid);
+               if ($biblionumber) {
+                       $sth = $dbh->prepare("update suggestions set 
status=?,biblionumber=? where suggestionid=?");
+                       $sth->execute($status,$biblionumber,$suggestionid);
+               } else {
+                       $sth = $dbh->prepare("update suggestions set status=? 
where suggestionid=?");
+                       $sth->execute($status,$suggestionid);
+               }
 
        }
        # check mail sending.
@@ -230,6 +241,14 @@
                                 );
 sendmail(%mail);
 #      warn "sending email to $emailinfo->{byemail} from 
$emailinfo->{libemail} to notice new status $emailinfo->{status} for 
$emailinfo->{title} / $emailinfo->{author}";
+}
+
+sub findsuggestion_from_biblionumber {
+       my ($dbh,$biblionumber) = @_;
+       my $sth = $dbh->prepare("select suggestionid from suggestions where 
biblionumber=?");
+       $sth->execute($biblionumber);
+       my ($biblionumber) = $sth->fetchrow;
+       return $biblionumber;
 }
 
 =back