[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha C4/Biblio.pm cataloguing/addbiblio.pl
From: |
paul poulain |
Subject: |
[Koha-cvs] koha C4/Biblio.pm cataloguing/addbiblio.pl |
Date: |
Thu, 29 Mar 2007 09:42:14 +0000 |
CVSROOT: /sources/koha
Module name: koha
Changes by: paul poulain <tipaul> 07/03/29 09:42:14
Modified files:
C4 : Biblio.pm
cataloguing : addbiblio.pl
Log message:
adding default value new feature into cataloguing. The system
(definition) part has already been added by toins
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.190&r2=1.191
http://cvs.savannah.gnu.org/viewcvs/koha/cataloguing/addbiblio.pl?cvsroot=koha&r1=1.20&r2=1.21
Patches:
Index: C4/Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.190
retrieving revision 1.191
diff -u -b -r1.190 -r1.191
--- C4/Biblio.pm 29 Mar 2007 08:45:19 -0000 1.190
+++ C4/Biblio.pm 29 Mar 2007 09:42:13 -0000 1.191
@@ -33,7 +33,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.190 $' =~ /\d+/g; shift(@v).".".join(
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.191 $' =~ /\d+/g; shift(@v).".".join(
"_", map { sprintf "%03d", $_ } @v ); };
@ISA = qw( Exporter );
@@ -1278,7 +1278,7 @@
$sth =
$dbh->prepare(
-"select tagfield,tagsubfield,liblibrarian,libopac,tab, mandatory,
repeatable,authorised_value,authtypecode,value_builder,kohafield,seealso,hidden,isurl,link
from marc_subfield_structure where frameworkcode=? order by
tagfield,tagsubfield"
+"select tagfield,tagsubfield,liblibrarian,libopac,tab, mandatory,
repeatable,authorised_value,authtypecode,value_builder,kohafield,seealso,hidden,isurl,link,defaultvalue
from marc_subfield_structure where frameworkcode=? order by
tagfield,tagsubfield"
);
$sth->execute($frameworkcode);
@@ -1291,6 +1291,7 @@
my $hidden;
my $isurl;
my $link;
+ my $defaultvalue;
while (
(
@@ -1299,7 +1300,7 @@
$mandatory, $repeatable, $authorised_value,
$authtypecode, $value_builder, $kohafield,
$seealso, $hidden, $isurl,
- $link
+ $link,$defaultvalue
)
= $sth->fetchrow
)
@@ -1317,6 +1318,7 @@
$res->{$tag}->{$subfield}->{hidden} = $hidden;
$res->{$tag}->{$subfield}->{isurl} = $isurl;
$res->{$tag}->{$subfield}->{link} = $link;
+ $res->{$tag}->{$subfield}->{defaultvalue} = $defaultvalue;
}
return $res;
}
@@ -3693,8 +3695,11 @@
=cut
-# $Id: Biblio.pm,v 1.190 2007/03/29 08:45:19 hdl Exp $
+# $Id: Biblio.pm,v 1.191 2007/03/29 09:42:13 tipaul Exp $
# $Log: Biblio.pm,v $
+# Revision 1.191 2007/03/29 09:42:13 tipaul
+# adding default value new feature into cataloguing. The system (definition)
part has already been added by toins
+#
# Revision 1.190 2007/03/29 08:45:19 hdl
# Deleting ignore_errors(1) pour MARC::Charset
#
Index: cataloguing/addbiblio.pl
===================================================================
RCS file: /sources/koha/koha/cataloguing/addbiblio.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -b -r1.20 -r1.21
--- cataloguing/addbiblio.pl 9 Mar 2007 14:32:55 -0000 1.20
+++ cataloguing/addbiblio.pl 29 Mar 2007 09:42:13 -0000 1.21
@@ -1,6 +1,6 @@
#!/usr/bin/perl
-# $Id: addbiblio.pl,v 1.20 2007/03/09 14:32:55 tipaul Exp $
+# $Id: addbiblio.pl,v 1.21 2007/03/29 09:42:13 tipaul Exp $
# Copyright 2000-2002 Katipo Communications
#
@@ -30,6 +30,7 @@
use MARC::Record;
use C4::Log;
use C4::Koha; # XXX subfield_is_koha_internal_p
+use Date::Calc qw(Today);
use MARC::File::USMARC;
use MARC::File::XML;
@@ -239,6 +240,18 @@
#use Encode;
#$value = encode('utf-8', $value);
$value =~ s/"/"/g;
+ # if there is no value provided but a default value in parameters, get it
+ unless ($value) {
+ $value = $tagslib->{$tag}->{$subfield}->{defaultvalue};
+ # get today date & replace YYYY, MM, DD if provided in the default
value
+ my ($year,$month,$day) = Today();
+ $month = sprintf("%02d",$month);
+ $day = sprintf("%02d",$day);
+ $value =~ s/YYYY/$year/g;
+ $value =~ s/MM/$month/g;
+ $value =~ s/DD/$day/g;
+
+ }
my $dbh = C4::Context->dbh;
my %subfield_data;
$subfield_data{tag}=$tag;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha C4/Biblio.pm cataloguing/addbiblio.pl,
paul poulain <=