[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.2 and 1.8

version 1.2, 2001/04/16 12:04:41 version 1.8, 2001/04/16 12:46:37
Line 8 Line 8
 # directory and gathers metadata.  # directory and gathers metadata.
 # The metadata is entered into a SQL database.  # The metadata is entered into a SQL database.
   
 use strict;  
   
 use IO::File;  use IO::File;
 use HTML::TokeParser;  use HTML::TokeParser;
   use DBI;
   
 my @metalist;  my @metalist;
 # ----------------- Code to enable 'find' subroutine listing of the .meta files  # ----------------- Code to enable 'find' subroutine listing of the .meta files
Line 35  while ($configline=<CONFIG>) { Line 34  while ($configline=<CONFIG>) {
 }  }
 close(CONFIG);  close(CONFIG);
   
   my $dbh;
 # ------------------------------------- Make sure that database can be accessed  # ------------------------------------- Make sure that database can be accessed
 {  {
     my $dbh;  
     unless (      unless (
     $dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar{'lonSqlAccess'},{ RaiseError =>0,PrintError=>0})      $dbh = DBI->connect("DBI:mysql:loncapa","www",$perlvar{'lonSqlAccess'},{ RaiseError =>0,PrintError=>0})
     ) {       ) { 
Line 60  foreach my $user (@homeusers) { Line 59  foreach my $user (@homeusers) {
 foreach my $m (@metalist) {  foreach my $m (@metalist) {
     my $ref=&metadata($m);      my $ref=&metadata($m);
     my $sth=$dbh->prepare('insert into metadata values ('.      my $sth=$dbh->prepare('insert into metadata values ('.
   delete($ref->{'title'}),    '"'.delete($ref->{'title'}).'"'.','.
   delete($ref->{'author'}).','.    '"'.delete($ref->{'author'}).'"'.','.
   delete($ref->{'subject'}).','.    '"'.delete($ref->{'subject'}).'"'.','.
   delete($ref->{'url'}).','.    '"'.delete($ref->{'url'}).'"'.','.
   delete($ref->{'keywords'}).','.    '"'.delete($ref->{'keywords'}).'"'.','.
   delete($ref->{'version'}).','.    '"'.delete($ref->{'version'}).'"'.','.
   delete($ref->{'notes'}).','.    '"'.delete($ref->{'notes'}).'"'.','.
   delete($ref->{'abstract'}).','.    '"'.delete($ref->{'abstract'}).'"'.','.
   delete($ref->{'mime'}).','.    '"'.delete($ref->{'mime'}).'"'.','.
   delete($ref->{'language'}).','.    '"'.delete($ref->{'language'}).'"'.','.
   delete($ref->{'creationdate'}).','.    '"'.delete($ref->{'creationdate'}).'"'.','.
   delete($ref->{'lastrevisiondate'}).','.    '"'.delete($ref->{'lastrevisiondate'}).'"'.','.
   delete($ref->{'owner'}).','.    '"'.delete($ref->{'owner'}).'"'.','.
   delete($ref->{'copyright'}).    '"'.delete($ref->{'copyright'}).'"'.')');
   ')';  
     $sth->execute();      $sth->execute();
 }  }
   
Removed from v.1.2  
changed lines
  Added in v.1.8

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