[Koha-cvs] CVS: koha/acqui.simple bulkmarcimport.pl,1.10,1.11

[Andrew Arensburger]

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv17078

Modified Files:
	bulkmarcimport.pl 
Log Message:
Added some FIXME comments.


Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/bulkmarcimport.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** bulkmarcimport.pl	13 Oct 2002 06:31:10 -0000	1.10
--- bulkmarcimport.pl	16 Oct 2002 12:45:41 -0000	1.11
***************
*** 454,458 ****
  	    $cleanauthor=$author;
  	    $cleanauthor=~s/[^A-Za-z]//g;
! 	    $subclass=uc(substr($cleanauthor,0,3));
  	    my $q_subclass=$dbh->quote($subclass);
  	    my $q_publicationyear=$dbh->quote($publicationyear);
--- 454,460 ----
  	    $cleanauthor=$author;
  	    $cleanauthor=~s/[^A-Za-z]//g;
! 	    $subclass=ucz(substr($cleanauthor,0,3));
! 			# FIXME - WTF is the author being converted
! 			# to upper case?
  	    my $q_subclass=$dbh->quote($subclass);
  	    my $q_publicationyear=$dbh->quote($publicationyear);
***************
*** 474,477 ****
--- 476,481 ----
  		# convert to upper case
  		$subjectheading=uc($subjectheading);
+ 				# FIXME - WTF is the subject being
+ 				# converted to upper case?
  		# quote value
  		my $q_subjectheading=$dbh->quote($subjectheading);
***************
*** 488,491 ****
--- 492,497 ----
  		# convert to upper case
  		$additionalauthor=uc($additionalauthor);
+ 				# FIXME - WTF is the author being converted
+ 				# to upper case?
  		# quote value
  		my $q_additionalauthor=$dbh->quote($additionalauthor);