version 1.50, 2003/12/26 15:13:48
|
version 1.53, 2003/12/27 23:04:28
|
Line 283 my $dbh;
|
Line 283 my $dbh;
|
"version TEXT, notes TEXT, abstract TEXT, mime TEXT, language TEXT, ". |
"version TEXT, notes TEXT, abstract TEXT, mime TEXT, language TEXT, ". |
"creationdate DATETIME, lastrevisiondate DATETIME, owner TEXT, ". |
"creationdate DATETIME, lastrevisiondate DATETIME, owner TEXT, ". |
"copyright TEXT, dependencies TEXT, ". |
"copyright TEXT, dependencies TEXT, ". |
|
"modifyinguser TEXT, authorspace TEXT, ". |
|
"lowestgradelevel INTEGER UNSIGNED, highestgradelevel INTEGER UNSIGNED, ". |
|
"standards TEXT, ". |
"count INTEGER UNSIGNED, ". |
"count INTEGER UNSIGNED, ". |
"course INTEGER UNSIGNED, course_list TEXT, ". |
"course INTEGER UNSIGNED, course_list TEXT, ". |
"goto INTEGER UNSIGNED, goto_list TEXT, ". |
"goto INTEGER UNSIGNED, goto_list TEXT, ". |
Line 293 my $dbh;
|
Line 296 my $dbh;
|
"difficulty FLOAT, difficulty_list TEXT, ". |
"difficulty FLOAT, difficulty_list TEXT, ". |
"clear FLOAT, technical FLOAT, correct FLOAT, helpful FLOAT, depth FLOAT, ". |
"clear FLOAT, technical FLOAT, correct FLOAT, helpful FLOAT, depth FLOAT, ". |
"comments TEXT, ". |
"comments TEXT, ". |
|
# For backward compatibility, only insert new fields below |
|
# ... |
|
# For backward compatibility, end new fields above |
"FULLTEXT idx_title (title), ". |
"FULLTEXT idx_title (title), ". |
"FULLTEXT idx_author (author), FULLTEXT idx_subject (subject), ". |
"FULLTEXT idx_author (author), FULLTEXT idx_subject (subject), ". |
"FULLTEXT idx_url (url), FULLTEXT idx_keywords (keywords), ". |
"FULLTEXT idx_url (url), FULLTEXT idx_keywords (keywords), ". |
"FULLTEXT idx_version (version), FULLTEXT idx_notes (notes), ". |
"FULLTEXT idx_notes (notes), ". |
"FULLTEXT idx_abstract (abstract), FULLTEXT idx_mime (mime), ". |
"FULLTEXT idx_abstract (abstract), FULLTEXT idx_mime (mime), ". |
"FULLTEXT idx_language (language), FULLTEXT idx_owner (owner), ". |
"FULLTEXT idx_owner (owner), ". |
"FULLTEXT idx_copyright (copyright)) ". |
"FULLTEXT idx_standards (standards))". |
"TYPE=MyISAM"; |
"TYPE=MyISAM"; |
# It would sure be nice to have some logging mechanism. |
# It would sure be nice to have some logging mechanism. |
unless ($dbh->do($make_metadata_table)) { |
unless ($dbh->do($make_metadata_table)) { |
Line 335 my $insert_sth = $dbh->prepare
|
Line 341 my $insert_sth = $dbh->prepare
|
"?,". # owner |
"?,". # owner |
"?,". # copyright |
"?,". # copyright |
"?,". # dependencies |
"?,". # dependencies |
|
"?,". # modifyinguser |
|
"?,". # authorspace |
|
"?,". # lowestgradelevel |
|
"?,". # highestgradelevel |
|
"?,". # standards |
"?,". # count |
"?,". # count |
"?,". # course |
"?,". # course |
"?,". # course_list |
"?,". # course_list |
Line 395 foreach my $user (@homeusers) {
|
Line 406 foreach my $user (@homeusers) {
|
$ref->{'owner'}, |
$ref->{'owner'}, |
$ref->{'copyright'}, |
$ref->{'copyright'}, |
$ref->{'dependencies'}, |
$ref->{'dependencies'}, |
|
$ref->{'modifyinguser'}, |
|
$ref->{'authorspace'}, |
|
$ref->{'lowestgradelevel'}, |
|
$ref->{'highestgradelevel'}, |
|
$ref->{'standards'}, |
$dyn{'count'}, |
$dyn{'count'}, |
$dyn{'course'}, |
$dyn{'course'}, |
$dyn{'course_list'}, |
$dyn{'course_list'}, |