[BACK]Return to searchcat.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / metadata_database

Diff for /loncom/metadata_database/searchcat.pl between versions 1.48 and 1.49

version 1.48, 2003/12/25 13:11:56 version 1.49, 2003/12/25 15:20:00
Line 134  sub dynamicmeta { Line 134  sub dynamicmeta {
     'count' => 0,      'count' => 0,
     'course' => 0,      'course' => 0,
     'course_list' => '',      'course_list' => '',
     'avetries' => 0,      'avetries' => 'NULL',
     'avetries_list' => '',      'avetries_list' => '',
     'stdno' => 0,      'stdno' => 0,
     'stdno_list' => '',      'stdno_list' => '',
Line 144  sub dynamicmeta { Line 144  sub dynamicmeta {
     'goto_list' => '',      'goto_list' => '',
     'comefrom' => 0,      'comefrom' => 0,
     'comefrom_list' => '',      'comefrom_list' => '',
     'difficulty' => 0,      'difficulty' => 'NULL',
     'difficulty_list' => ''      'difficulty_list' => '',
                       'clear' => 'NULL',
                       'technical' => 'NULL',
       'correct' => 'NULL',
       'helpful' => 'NULL',
       'depth' => 'NULL',
       'comments' => ''
     );      );
     my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);      my ($adomain,$aauthor)=($url=~/^(\w+)\/(\w+)\//);
     my $prodir=&propath($adomain,$aauthor);      my $prodir=&propath($adomain,$aauthor);
Line 285  my $dbh; Line 291  my $dbh;
         "stdno INTEGER UNSIGNED, stdno_list TEXT, ".          "stdno INTEGER UNSIGNED, stdno_list TEXT, ".
  "avetries FLOAT, avetries_list TEXT, ".   "avetries FLOAT, avetries_list TEXT, ".
         "difficulty FLOAT, difficulty_list TEXT, ".          "difficulty FLOAT, difficulty_list TEXT, ".
    "clear FLOAT, technical FLOAT, correct FLOAT, helpful FLOAT, depth FLOAT, ".
    "comments TEXT, ".
         "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), ".
Line 340  my $insert_sth = $dbh->prepare Line 348  my $insert_sth = $dbh->prepare
      "?,".   # avetries       "?,".   # avetries
      "?,".   # avetries_list       "?,".   # avetries_list
      "?,".   # difficulty       "?,".   # difficulty
      "?".    # difficulty_list       "?,".   # difficulty_list
        "?,".   # clear
        "?,".   # technical
        "?,".   # correct
        "?,".   # helpful
        "?,".   # depth
        "?".    # comments
      ")"       ")"
      );       );
   
Line 393  foreach my $user (@homeusers) { Line 407  foreach my $user (@homeusers) {
      $dyn{'avetries'},       $dyn{'avetries'},
      $dyn{'avetries_list'},       $dyn{'avetries_list'},
      $dyn{'difficulty'},       $dyn{'difficulty'},
      $dyn{'difficulty_list'}            $dyn{'difficulty_list'},     
        $dyn{'clear'},
        $dyn{'technical'},
        $dyn{'correct'},
        $dyn{'helpful'},
        $dyn{'depth'},
        $dyn{'comments'}     
      )) {       )) {
     print LOG "\nMySQL Error Insert: ".$dbh->errstr."\n";      print LOG "\nMySQL Error Insert: ".$dbh->errstr."\n";
     die $dbh->errstr;      die $dbh->errstr;
Removed from v.1.48  
changed lines
  Added in v.1.49

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>