moving fields around toCVS: ----------------------------------------------------...

[koha_fer] / insertjdata.pl

diff --git a/insertjdata.pl b/insertjdata.pl
index d66930b..bace33b 100755 (executable)
--- a/insertjdata.pl
+++ b/insertjdata.pl
@@ -44,7 +44,7 @@ foreach my $key (@names){
 }
 my $dbh = C4::Context->dbh;
 my $query;
-for (my $i=0;$i<3;$i++){
+for (my $i=0;$i<1;$i++){
        my $x = "cardnumber_child_$i";
        my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
        $sth->execute($x);
@@ -61,7 +61,6 @@ for (my $i=0;$i<3;$i++){
                where borrowernumber=$data{'borrowernumber'}";
                #  print $query;
        }elsif ($data{"cardnumber_child_$i"} ne ''){
-       warn "INSERT";
                my $dob=$data{"dateofbirth_child_$i"};
                $dob=ParseDate($dob);
                $dob=UnixDate($dob,'%Y-%m-%d');
@@ -94,7 +93,6 @@ for (my $i=0;$i<3;$i++){
        }
        #print $query;
        my $sth2=$dbh->prepare($query);
-       warn "QQQ = $query";
        $sth2->execute;
        $sth2->finish;
        $sth->finish;