[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 04:58:48

Modified files:
	C4             : Labels.pm 

Log message:
	regex lccn tweak

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

Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.54
retrieving revision 1.3.4.55
diff -u -b -r1.3.4.54 -r1.3.4.55
--- Labels.pm	22 Oct 2007 03:20:17 -0000	1.3.4.54
+++ Labels.pm	22 Oct 2007 04:58:48 -0000	1.3.4.55
@@ -118,7 +118,7 @@
 
 # lccn example 'HE8700.7 .P6T44 1983';
     my @splits   = m/
-        ([a-zA-Z]+)             # HE
+        ([a-zA-Z]+\s*)             # HE
         ([0-9]+\.*[0-9]+\s*)    # 8700.7 or 8700 without '.', 
                                 # handles trailing space too
         (\.[a-zA-Z0-9]+\s*)        #.P6T44
@@ -126,6 +126,7 @@
         /x;
 
 # strip something occuring spaces too
+$splits[0] =~ s/\s+$//;
 $splits[1] =~ s/\s+$//;
 $splits[2] =~ s/\s+$//;
 
@@ -773,6 +774,18 @@
 
         my $data1 = $sth1->fetchrow_hashref();
 
+#FIXME cant work out the sql to et the subtitle values in the previous query, 
+doing seperatly
+=c
+ 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;
         $data1->{'summary'} =