[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));