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