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

[Ryan Higgins]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Ryan Higgins <rych>	07/04/26 01:02:43

Modified files:
	C4             : Bull.pm 

Log message:
	set accessiondate for serialsitemize, and pass publisheddate to tmpl

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

Patches:
Index: Bull.pm
===================================================================
RCS file: /sources/koha/koha/C4/Attic/Bull.pm,v
retrieving revision 1.6.2.44
retrieving revision 1.6.2.45
diff -u -b -r1.6.2.44 -r1.6.2.45
--- Bull.pm	26 Apr 2007 00:16:41 -0000	1.6.2.44
+++ Bull.pm	26 Apr 2007 01:02:43 -0000	1.6.2.45
@@ -788,13 +788,14 @@
 			my $marcrecord = MARC::Record->new();
 		    if ($info->{barcode}){
 			    my ($tag,$subfield)=MARCfind_marc_from_kohafield($dbh,"items.barcode",$fwk);
- 			warn "items.barcode : $tag , $subfield";
+ 	#		warn "items.barcode : $tag , $subfield";
 			    my $newField = MARC::Field->new(
 				"$tag",'','',
 				"$subfield" => $info->{barcode}
 			    );
 			    $marcrecord->insert_fields_ordered($newField);
 			}
+			$info->{dateaccessioned} = $now unless ($info->{dateaccessioned});
 			#  we'd like to just use keys %$info, but some fields are renamed:
 			my %koha_items = ( homebranch => 'branch',
 								holdingbranch => 'branch',
@@ -1017,7 +1018,7 @@
 	    }
 	    $calculated =~ s/\{X\}/$newlastvalue1/g;
 	}
-        warn $calculated.' '.$newlastvalue1.' '.$newlastvalue2.' '.$newlastvalue3;
+      #  warn $calculated.' '.$newlastvalue1.' '.$newlastvalue2.' '.$newlastvalue3;
         return ($calculated,$newlastvalue1,$newlastvalue2,$newlastvalue3);
 }
 
@@ -1335,7 +1336,7 @@
         # status = 2 is "arrived"
         my $sth =
             $dbh->prepare(
-		"select serialid,serialseq, status, planneddate,notes,routingnotes from serial where subscriptionid = ? and status <>2 and status <>4 and status <>5"
+		"select serialid,serialseq, status, planneddate,publisheddate, notes,routingnotes from serial where subscriptionid = ? and status <>2 and status <>4 and status <>5"
 		      );
         $sth->execute($subscriptionid);
         my @serials;
@@ -1344,6 +1345,7 @@
 	            $line->{ "status" . $line->{status} } =
 	                1;    # fills a "statusX" value, used for template status select list
 	            $line->{"planneddate"} = format_date( $line->{"planneddate"} );
+	            $line->{"publisheddate"} = format_date( $line->{"publisheddate"} );
 	            $line->{"num"}         = $num;
 	            $num++;
 	            push @serials, $line;