[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.7

version 1.2, 2001/04/16 12:04:41 version 1.7, 2001/04/16 12:26:36
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'}).','.
Line 73  foreach my $m (@metalist) { Line 72  foreach my $m (@metalist) {
   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.7

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