[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.27,1.6.2.28
From: |
Steve Tonnesen |
Subject: |
[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.27,1.6.2.28 |
Date: |
Thu, 27 Jun 2002 10:41:30 -0700 |
Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv16735/acqui.simple
Modified Files:
Tag: rel-1-2
marcimport.pl
Log Message:
Applying patch from Matt Kraai to pick F or NF based on presense of a dewey
number when adding a book via marcimport.pl
Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.6.2.27
retrieving revision 1.6.2.28
diff -C2 -r1.6.2.27 -r1.6.2.28
*** marcimport.pl 26 Jun 2002 15:52:55 -0000 1.6.2.27
--- marcimport.pl 27 Jun 2002 17:41:26 -0000 1.6.2.28
***************
*** 251,257 ****
$origcontrolnumber=$input->hidden(-name=>'origcontrolnumber',
-default=>$controlnumber);
#print "<PRE>getting itemtypeselect</PRE>\n";
$itemtypeselect=&getkeytableselectoptions(
! $dbh, 'itemtypes', 'itemtype', 'description', 1);
#print "<PRE>it=$itemtypeselect</PRE>\n";
--- 251,265 ----
$origcontrolnumber=$input->hidden(-name=>'origcontrolnumber',
-default=>$controlnumber);
+ my $defaultitemtype;
+
+ if (defined $deweyinput) {
+ $defaultitemtype = 'NF';
+ } else {
+ $defaultitemtype = 'F';
+ }
+
#print "<PRE>getting itemtypeselect</PRE>\n";
$itemtypeselect=&getkeytableselectoptions(
! $dbh, 'itemtypes', 'itemtype', 'description', 1,
$defaultitemtype);
#print "<PRE>it=$itemtypeselect</PRE>\n";
***************
*** 1111,1114 ****
--- 1119,1126 ----
#---------------
# $Log$
+ # Revision 1.6.2.28 2002/06/27 17:41:26 tonnesen
+ # Applying patch from Matt Kraai to pick F or NF based on presense of a dewey
+ # number when adding a book via marcimport.pl
+ #
# Revision 1.6.2.27 2002/06/26 15:52:55 amillar
# Fix display of marc tag labels and indicators
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.27,1.6.2.28,
Steve Tonnesen <=