[Koha-cvs] koha/C4 Labels.pm [dev_week]

[Mason James]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Mason James <sushi>	07/10/22 05:02:33

Modified files:
	C4             : Labels.pm 

Log message:
	adding biblio subtitle fetch too

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.3.4.55&r2=1.3.4.56

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.55
retrieving revision 1.3.4.56
diff -u -b -r1.3.4.55 -r1.3.4.56
--- Labels.pm	22 Oct 2007 04:58:48 -0000	1.3.4.55
+++ Labels.pm	22 Oct 2007 05:02:33 -0000	1.3.4.56
@@ -118,7 +118,7 @@
 
 # lccn example 'HE8700.7 .P6T44 1983';
     my @splits   = m/
-        ([a-zA-Z]+\s*)             # HE
+        ([a-zA-Z]+\s*)             # HE (with spaces)
         ([0-9]+\.*[0-9]+\s*)    # 8700.7 or 8700 without '.', 
                                 # handles trailing space too
         (\.[a-zA-Z0-9]+\s*)        #.P6T44
@@ -774,17 +774,13 @@
 
         my $data1 = $sth1->fetchrow_hashref();
 
-#FIXME cant work out the sql to et the subtitle values in the previous query, 
-doing seperatly
-=c
+#FIXME cant work out the sql to et the subtitle values in the previous query,  doing seperatly
+
  my $q2 = "  select * from bibliosubtitle where biblionumber = ?";
         my $sth2 = $dbh->prepare($q2);
         $sth2->execute( $data->{'biblionumber'} );
         my $data2 = $sth2->fetchrow_hashref();
         $data1->{'subtitle'}  = $data2->{'subtitle'};
-=cut
-
-
 
         $data1->{'labelno'}  = $i1;
         $data1->{'batch_id'} = $batch_id;