[Koha-cvs] koha/value_builder marc21_field_008.pl [rel_2_2]
Joshua Ferraro
jmf at kados.org
Tue Jul 11 19:58:23 CEST 2006
CVSROOT: /sources/koha
Module name: koha
Branch: rel_2_2
Changes by: Joshua Ferraro <kados> 06/07/11 17:58:23
Modified files:
value_builder : marc21_field_008.pl
Log message:
fix for 1106: MARC 21 008 record editor plugin deletes first six 008 positions
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/value_builder/marc21_field_008.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.1.2.5&r2=1.1.2.6
Patches:
Index: marc21_field_008.pl
===================================================================
RCS file: /sources/koha/koha/value_builder/Attic/marc21_field_008.pl,v
retrieving revision 1.1.2.5
retrieving revision 1.1.2.6
diff -u -b -r1.1.2.5 -r1.1.2.6
--- marc21_field_008.pl 10 Jul 2006 17:21:34 -0000 1.1.2.5
+++ marc21_field_008.pl 11 Jul 2006 17:58:23 -0000 1.1.2.6
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: marc21_field_008.pl,v 1.1.2.5 2006/07/10 17:21:34 kados Exp $
+# $Id: marc21_field_008.pl,v 1.1.2.6 2006/07/11 17:58:23 kados Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -37,7 +37,6 @@
$year +=1900; $mon +=1;
my $dateentered = substr($year,2,2).sprintf ("%0.2d", $mon).sprintf ("%0.2d",$mday);
-
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
@@ -73,7 +72,6 @@
return ($function_name,$res);
}
-
sub plugin {
my ($input) = @_;
my %env;
@@ -114,13 +112,11 @@
my $f38 = substr($result,38,1);
my $f39 = substr($result,39,1);
- if (!$f1){
- $f1=$dateentered
- }
-
- $template->param(
+if ((!$f1) ||($f1 =~ m/ /)){
+ $f1=$dateentered;
+}
- index => $index,
+ $template->param( index => $index,
f1 => $f1,
f6 => $f6,
"f6$f6" => $f6,
More information about the Koha-cvs
mailing list