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