[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);