[Koha-cvs] koha/export marc.pl [dev_week]

Kyle Hall kyle.m.hall at gmail.com
Fri Mar 23 18:47:11 CET 2007


CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Kyle Hall <kylemhall>	07/03/23 17:47:11

Modified files:
	export         : marc.pl 

Log message:
	fixing typos

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/export/marc.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.4.2.6.2.4&r2=1.4.2.6.2.5

Patches:
Index: marc.pl
===================================================================
RCS file: /sources/koha/koha/export/marc.pl,v
retrieving revision 1.4.2.6.2.4
retrieving revision 1.4.2.6.2.5
diff -u -b -r1.4.2.6.2.4 -r1.4.2.6.2.5
--- marc.pl	21 Mar 2007 20:30:46 -0000	1.4.2.6.2.4
+++ marc.pl	23 Mar 2007 17:47:11 -0000	1.4.2.6.2.5
@@ -33,22 +33,22 @@
 		$sth->execute( $branch, $start_barcode, $end_barcode );
 	} elsif ( $start_barcode ) {
 		$sth=$dbh->prepare("SELECT marc FROM biblioitems, items WHERE items.biblioitemnumber = biblioitems.biblioitemnumberr AND items.homebranch LIKE ? AND barcode >=? ORDER BY barcode");
-		$sth->execute(( $branch, $start_barcode );
+		$sth->execute( $branch, $start_barcode );
         } elsif ( $start_callnumber && $end_callnumber ) {
 		$sth=$dbh->prepare("SELECT marc FROM biblioitems, items WHERE items.biblioitemnumber = biblioitems.biblioitemnumberr AND items.homebranch LIKE ? AND itemcallnumber >=? AND itemcallnumber <=? ORDER BY itemcallnumber");
-		$sth->execute(( $branch, $start_callnumber, $end_callnumber );
+		$sth->execute( $branch, $start_callnumber, $end_callnumber );
 	} elsif ( $start_callnumber ) {
 		$sth=$dbh->prepare("SELECT marc FROM biblioitems, items WHERE items.biblioitemnumber = biblioitems.biblioitemnumberr AND items.homebranch LIKE ? AND itemcallnumber >=? ORDER BY itemcallnumber");
-		$sth->execute(( $branch, $start_callnumber );
+		$sth->execute( $branch, $start_callnumber );
         } elsif ( $start_bib && $end_bib ) {
 		$sth=$dbh->prepare("SELECT marc FROM biblioitems WHERE items.homebranch LIKE ? AND biblionumber >=? AND biblionumber <=? ORDER BY biblionumber");
-		$sth->execute(( $branch, $start_bib, $end_bib );
+		$sth->execute( $branch, $start_bib, $end_bib );
 	} elsif ( $start_bib ) {
 		$sth=$dbh->prepare("SELECT marc FROM biblioitems WHERE items.homebranch LIKE ? AND biblionumber >=? ORDER BY biblionumber");
-		$sth->execute(( $branch, $start_bib );
+		$sth->execute( $branch, $start_bib );
 	} else {
 		$sth=$dbh->prepare("SELECT marc FROM biblioitems WHERE items.homebranch LIKE ? ORDER BY biblionumber");
-		$sth->execute(( $branch );
+		$sth->execute( $branch );
 	}
         
 	while (my ($marc) = $sth->fetchrow) {





More information about the Koha-cvs mailing list