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

[Ryan Higgins]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_2_2
Changes by:     Ryan Higgins <rych>     07/08/06 22:55:15

Modified files:
        C4             : Bull.pm 
        bull           : statecollection.pl 

Log message:
        fix missing item status, and add publisheddate to notes field, not 
expected date.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Bull.pm?cvsroot=koha&only_with_tag=rel_2_2&r1=1.6.2.47&r2=1.6.2.48
http://cvs.savannah.gnu.org/viewcvs/koha/bull/statecollection.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.3.2.28&r2=1.3.2.29

Patches:
Index: C4/Bull.pm
===================================================================
RCS file: /sources/koha/koha/C4/Attic/Bull.pm,v
retrieving revision 1.6.2.47
retrieving revision 1.6.2.48
diff -u -b -r1.6.2.47 -r1.6.2.48
--- C4/Bull.pm  18 Jul 2007 05:56:34 -0000      1.6.2.47
+++ C4/Bull.pm  6 Aug 2007 22:55:15 -0000       1.6.2.48
@@ -804,16 +804,16 @@
                                                                itemcallnumber 
=> 'itemcallnumber',
                                                                multivolumepart 
=> 'multivolumepart',
                                                                itemnotes => 
'notes',
-                                                               status => 
'notforloan',
+                                                               notforloan => 
'status',
                                                                location => 
'location',
                                                                dateaccessioned 
=> 'dateaccessioned',
                                                                multivolumepart 
=> 'multivolumepart',
                                                                );
                        for my $itemfield (keys %koha_items) {
-
+warn $itemfield;
                                if ($info->{$koha_items{$itemfield}}){
                                        my 
($tag,$subfield)=MARCfind_marc_from_kohafield($dbh,"items.$itemfield",$fwk);
- #                                     warn "items.$itemfield: $tag , 
$subfield";
+                                       warn "items.$itemfield: $tag , 
$subfield";
                                        if ($marcrecord->field($tag)) {
                                                
$marcrecord->field($tag)->add_subfields("$subfield" => 
$info->{$koha_items{$itemfield}})
                                        }else {

Index: bull/statecollection.pl
===================================================================
RCS file: /sources/koha/koha/bull/Attic/statecollection.pl,v
retrieving revision 1.3.2.28
retrieving revision 1.3.2.29
diff -u -b -r1.3.2.28 -r1.3.2.29
--- bull/statecollection.pl     4 May 2007 15:50:54 -0000       1.3.2.28
+++ bull/statecollection.pl     6 Aug 2007 22:55:15 -0000       1.3.2.29
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: statecollection.pl,v 1.3.2.28 2007/05/04 15:50:54 toins Exp $
+# $Id: statecollection.pl,v 1.3.2.29 2007/08/06 22:55:15 rych Exp $
 
 use strict;
 use CGI;
@@ -97,7 +97,7 @@
                                $info{itemcallnumber}=$itemcallnumbers[$i];
                                $info{location}=$locations[$i];
                                $info{status}=$itemstatus[$i];
-                               $info{notes}=$serialseqs[$i]." 
(".$planneddates[$i].")";
+                               $info{notes}=$serialseqs[$i]." 
(".$publisheddates[$i].")";
                                my ($status, @errors)= 
serialsitemize($serialids[$i],\%info);
                                my $sth2 = $dbh->prepare("UPDATE 
subscriptionhistory SET lastbranch = ? WHERE subscriptionid = ?");
                                
$sth2->execute($homebranches[$i],$subscriptionid);