[BACK]Return to lonpublisher.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpublisher.pm between versions 1.28 and 1.29

version 1.28, 2001/05/09 17:38:13 version 1.29, 2001/05/28 19:43:09
Line 510  sub phasetwo { Line 510  sub phasetwo {
     }      }
     close(CONFIG);      close(CONFIG);
   
       my $warning;
     my $dbh;      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})
  ) {    ) { 
     return '<font color=red>Cannot connect to database!</font>';      $warning='<font color=red>WARNING: Cannot connect to '.
    'database!</font>';
    }
    else {
       my %sqldatafields;
       $sqldatafields{'url'}=$distarget;
       my $sth=$dbh->prepare(
     'delete from metadata where url like binary'.
     '"'.$sqldatafields{'url'}.'"');
       $sth->execute();
       map {my $field=$metadatafields{$_}; $field=~s/\"/\'\'/g; 
    $sqldatafields{$_}=$field;}
       ('title','author','subject','keywords','notes','abstract',
        'mime','language','creationdate','lastrevisiondate','owner',
        'copyright');
       
       $sth=$dbh->prepare('insert into metadata values ('.
          '"'.delete($sqldatafields{'title'}).'"'.','.
          '"'.delete($sqldatafields{'author'}).'"'.','.
          '"'.delete($sqldatafields{'subject'}).'"'.','.
          '"'.delete($sqldatafields{'url'}).'"'.','.
          '"'.delete($sqldatafields{'keywords'}).'"'.','.
          '"'.'current'.'"'.','.
          '"'.delete($sqldatafields{'notes'}).'"'.','.
          '"'.delete($sqldatafields{'abstract'}).'"'.','.
          '"'.delete($sqldatafields{'mime'}).'"'.','.
          '"'.delete($sqldatafields{'language'}).'"'.','.
          '"'.
          sqltime(delete($sqldatafields{'creationdate'}))
          .'"'.','.
          '"'.
          sqltime(delete(
          $sqldatafields{'lastrevisiondate'})).'"'.','.
          '"'.delete($sqldatafields{'owner'}).'"'.','.
          '"'.delete(
          $sqldatafields{'copyright'}).'"'.')');
       $sth->execute();
       $dbh->disconnect;
       $scrout.='<p>Synchronized SQL metadata database';
       print $logfile "\nSynchronized SQL metadata database";
  }   }
     }      }
   
     my %sqldatafields;  
     $sqldatafields{'url'}=$distarget;  
     my $sth=$dbh->prepare("delete from metadata where url like binary \"".  
        $sqldatafields{'url'}."\"");  
     $sth->execute();  
     map {my $field=$metadatafields{$_}; $field=~s/\"/\'\'/g;   
  $sqldatafields{$_}=$field;}  
     ('title','author','subject','keywords','notes','abstract',  
      'mime','language','creationdate','lastrevisiondate','owner','copyright');  
   
     $sth=$dbh->prepare('insert into metadata values ('.  
   '"'.delete($sqldatafields{'title'}).'"'.','.  
   '"'.delete($sqldatafields{'author'}).'"'.','.  
   '"'.delete($sqldatafields{'subject'}).'"'.','.  
   '"'.delete($sqldatafields{'url'}).'"'.','.  
   '"'.delete($sqldatafields{'keywords'}).'"'.','.  
   '"'.'current'.'"'.','.  
   '"'.delete($sqldatafields{'notes'}).'"'.','.  
   '"'.delete($sqldatafields{'abstract'}).'"'.','.  
   '"'.delete($sqldatafields{'mime'}).'"'.','.  
   '"'.delete($sqldatafields{'language'}).'"'.','.  
   '"'.sqltime(delete($sqldatafields{'creationdate'})).'"'.','.  
   '"'.sqltime(delete($sqldatafields{'lastrevisiondate'})).'"'.','.  
   '"'.delete($sqldatafields{'owner'}).'"'.','.  
   '"'.delete($sqldatafields{'copyright'}).'"'.')');  
     $sth->execute();  
     $dbh->disconnect;  
     $scrout.='<p>Synchronized SQL metadata database';  
     print $logfile "\nSynchronized SQL metadata database";  
   
 # ----------------------------------------------------------- Copy old versions  # ----------------------------------------------------------- Copy old versions
         
Line 706  if (-e $target) { Line 717  if (-e $target) {
     $thissrcdir=~s/\/[^\/]+$/\//;      $thissrcdir=~s/\/[^\/]+$/\//;
   
   
     return $scrout.      return $warning.$scrout.
       '<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'.        '<hr><a href="'.$thisdistarget.'"><font size=+2>View Target</font></a>'.
       '<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'.        '<p><a href="'.$thissrc.'"><font size=+2>Back to Source</font></a>'.
       '<p><a href="'.$thissrcdir.        '<p><a href="'.$thissrcdir.
Removed from v.1.28  
changed lines
  Added in v.1.29

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