palm/MemoDB2ClassicNote/MemoDB2ClassicNote.pl - diff

Return to MemoDB2ClassicNote.pl CVS log

Up to [local] / palm / MemoDB2ClassicNote

version 1.3, 2010/03/09 21:29:46

version 1.4, 2010/03/10 18:50:31

Line 14

# COMPANY: Red River Communications

# VERSION: 1.0

# CREATED: 03/09/10 11:22:52

# REVISION: $AFresh1: MemoDB2ClassicNote.pl,v 1.2 2010/03/09 20:55:05 andrew Exp $

# REVISION: $AFresh1: MemoDB2ClassicNote.pl,v 1.3 2010/03/09 21:29:46 andrew Exp $

#===============================================================================

use strict;

Line 40

@categories = ('undefined');

}

my $count = 0;

my $cat_sth = $dbh->prepare(

'INSERT INTO categories ("cat_id", "category") VALUES (?,?)');

foreach my $id ( 0 .. @categories ) {

my $name = $categories[$id]->{name};

next if !$name;

print "Category: $id $name\n";

$count++;

print "Category [$count]: $id $name\n";

$cat_sth->execute( $id, $name ) or die $cat_sth->errstr;

}

$count = 0;

my $rec_sth

= $dbh->prepare( 'INSERT INTO'

. ' memos ("cat_id", "head", "memo", "privat")'

Line 67

Line 70

$private = 1;

}

print "Record: $head\n";

$count++;

print "Record [$count]: $head\n";

$rec_sth->execute( $record->{category}, $head, $data, $private )

or die $cat_sth->errstr;