[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Labels.pm [dev_week]
From: |
Mason James |
Subject: |
[Koha-cvs] koha/C4 Labels.pm [dev_week] |
Date: |
Mon, 22 Oct 2007 04:58:48 +0000 |
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'} =
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/19
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/20
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/20
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/20
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/21
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/21
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/21
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/21
- [Koha-cvs] koha/C4 Labels.pm [dev_week],
Mason James <=
- [Koha-cvs] koha/C4 Labels.pm [dev_week], Mason James, 2007/10/22