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

Diff for /loncom/publisher/lonpublisher.pm between versions 1.24 and 1.25

version 1.24, 2001/04/16 20:02:50 version 1.25, 2001/04/16 20:47:27
Line 86  sub metaread { Line 86  sub metaread {
     return '<br><b>Processed file:</b> <tt>'.$fn.'</tt>';      return '<br><b>Processed file:</b> <tt>'.$fn.'</tt>';
 }  }
   
   # ---------------------------- convert 'time' format into a datetime sql format
   sub sqltime {
       my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
    localtime(@_[0]);
       $mon++; $year+=1900;
       return "$year-$mon-$mday $hour:$min:$sec";
   }
   
 # --------------------------------------------------------- Various form fields  # --------------------------------------------------------- Various form fields
   
 sub textfield {  sub textfield {
Line 485  sub phasetwo { Line 493  sub phasetwo {
      }       }
   
 # -------------------------------- Synchronize entry with SQL metadata database  # -------------------------------- Synchronize entry with SQL metadata database
       my %perlvar;
       open (CONFIG,"/etc/httpd/conf/access.conf") || die "Can't read access.conf";
       my $configline;
       while ($configline=<CONFIG>) {
    if ($configline =~ /PerlSetVar/) {
       my ($dummy,$varname,$varvalue)=split(/\s+/,$configline);
       chomp($varvalue);
       $perlvar{$varname}=$varvalue;
    }
       }
       close(CONFIG);
   
     my $dbh;      my $dbh;
     {      {
  unless (   unless (
Line 496  sub phasetwo { Line 516  sub phasetwo {
   
     my %sqldatafields;      my %sqldatafields;
     $sqldatafields{'url'}=$distarget;      $sqldatafields{'url'}=$distarget;
     $sth=$dbh->prepare("delete from metadata where url like binary \"".      my $sth=$dbh->prepare("delete from metadata where url like binary \"".
        $sqldatafields{'url'}."\"");         $sqldatafields{'url'}."\"");
     $sth->execute();      $sth->execute();
     map {my $field=$metadatafields{$_}; $field=~s/\"/\'\'/g;       map {my $field=$metadatafields{$_}; $field=~s/\"/\'\'/g; 
Line 515  sub phasetwo { Line 535  sub phasetwo {
   '"'.delete($sqldatafields{'abstract'}).'"'.','.    '"'.delete($sqldatafields{'abstract'}).'"'.','.
   '"'.delete($sqldatafields{'mime'}).'"'.','.    '"'.delete($sqldatafields{'mime'}).'"'.','.
   '"'.delete($sqldatafields{'language'}).'"'.','.    '"'.delete($sqldatafields{'language'}).'"'.','.
   '"'.delete($sqldatafields{'creationdate'}).'"'.','.    '"'.sqltime(delete($sqldatafields{'creationdate'})).'"'.','.
   '"'.delete($sqldatafields{'lastrevisiondate'}).'"'.','.    '"'.sqltime(delete($sqldatafields{'lastrevisiondate'})).'"'.','.
   '"'.delete($sqldatafields{'owner'}).'"'.','.    '"'.delete($sqldatafields{'owner'}).'"'.','.
   '"'.delete($sqldatafields{'copyright'}).'"'.')');    '"'.delete($sqldatafields{'copyright'}).'"'.')');
     $sth->execute();      $sth->execute();
Removed from v.1.24  
changed lines
  Added in v.1.25

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