[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.6.2.27,1.6.2.28

[Steve Tonnesen]

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