[Koha-cvs] koha/C4 Bull.pm [rel_2_2]

[Henri-Damien LAURENT]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Henri-Damien LAURENT <hdl>      07/04/16 09:54:48

Modified files:
        C4             : Bull.pm 

Log message:
        Bugfix :
        claimdate is not in updatedatabase.
        Removed from select.
        
        +
        BIG BUG FIX !!!!!!!!!!!!!!!!!
        Removing serialseq update when modifying a subscription.
        This lead to forgetting any serial name.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Bull.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.6.2.41&r2=1.6.2.42

Patches:
Index: Bull.pm
===================================================================
RCS file: /sources/koha/koha/C4/Attic/Bull.pm,v
retrieving revision 1.6.2.41
retrieving revision 1.6.2.42
diff -u -b -r1.6.2.41 -r1.6.2.42
--- Bull.pm     15 Jan 2007 17:46:23 -0000      1.6.2.41
+++ Bull.pm     16 Apr 2007 09:54:48 -0000      1.6.2.42
@@ -266,7 +266,7 @@
                        }
     
             if ($supplierid) {
-                               $sth = $dbh->prepare("SELECT 
serialid,aqbooksellerid,name,title,planneddate,serialseq,serial.subscriptionid,claimdate
+                               $sth = $dbh->prepare("SELECT 
serialid,aqbooksellerid,name,title,planneddate,serialseq,serial.subscriptionid
                                   FROM subscription, serial, biblio
                                   LEFT JOIN aqbooksellers ON 
subscription.aqbooksellerid = aqbooksellers.id
                                   WHERE subscription.subscriptionid = 
serial.subscriptionid AND
@@ -275,7 +275,7 @@
                                   biblio.biblionumber = 
subscription.biblionumber ".$byserial." order by title
                                   ");
         } else {
-                           $sth = $dbh->prepare("SELECT 
serialid,aqbooksellerid,name,title,planneddate,serialseq,serial.subscriptionid,claimdate
+                           $sth = $dbh->prepare("SELECT 
serialid,aqbooksellerid,name,title,planneddate,serialseq,serial.subscriptionid
                                   FROM subscription, serial, biblio
                                   LEFT JOIN aqbooksellers ON 
subscription.aqbooksellerid = aqbooksellers.id
                                   WHERE subscription.subscriptionid = 
serial.subscriptionid AND
@@ -293,7 +293,7 @@
                    #       $line->{title} = "" if $line->{title} eq 
$last_title;
                            $last_title = $line->{title} if ($line->{title});
                            $line->{planneddate} = 
format_date($line->{planneddate});
-                           $line->{claimdate} = 
format_date($line->{claimdate});
+#                          $line->{claimdate} = 
format_date($line->{claimdate});
                            $line->{'odd'} = 1 if $odd %2 ;
                            $count++;
                            push @issuelist,$line;
@@ -492,11 +492,6 @@
         $sth->execute($subscriptionid);
         my $val = $sth->fetchrow_hashref;
 
-        # calculate issue number
-        my $serialseq = Get_Seq($val);
-        $sth = $dbh->prepare("UPDATE serial SET serialseq = ? WHERE 
subscriptionid = ?");
-        $sth->execute($serialseq,$subscriptionid);
-
         my $enddate = subscriptionexpirationdate($subscriptionid);
         $sth = $dbh->prepare("update subscriptionhistory set enddate=?");
         $sth->execute(format_date_in_iso($enddate));