version 1.24, 2001/04/16 20:02:50
|
version 1.26, 2001/05/03 11:18:28
|
Line 9
|
Line 9
|
# 03/23 Guy Albertelli |
# 03/23 Guy Albertelli |
# 03/24,03/29,04/03 Gerd Kortemeyer |
# 03/24,03/29,04/03 Gerd Kortemeyer |
# 04/16/2001 Scott Harrison |
# 04/16/2001 Scott Harrison |
|
# 05/03 Gerd Kortemeyer |
|
|
package Apache::lonpublisher; |
package Apache::lonpublisher; |
|
|
Line 86 sub metaread {
|
Line 87 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 494 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 517 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 536 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(); |
Line 817 unless ($ENV{'form.phase'} eq 'two') {
|
Line 838 unless ($ENV{'form.phase'} eq 'two') {
|
$r->print('<h2>Publishing '. |
$r->print('<h2>Publishing '. |
&Apache::lonnet::filedescription($thistype).' <tt>'. |
&Apache::lonnet::filedescription($thistype).' <tt>'. |
$thisdisfn.'</tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><p>'); |
$thisdisfn.'</tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><p>'); |
|
|
|
if (&Apache::lonnet::fileembstyle($thistype) eq 'ssi') { |
|
$r->print('<br><a href="/adm/diff?filename='.$thisdisfn. |
|
'&versionone=priv" target=cat>Diffs with Current Version</a><p>'); |
|
} |
|
|
# ------------ We are publishing from $thisfn to $thistarget with $thisembstyle |
# ------------ We are publishing from $thisfn to $thistarget with $thisembstyle |
|
|