version 1.21, 2001/03/29 21:45:06
|
version 1.23, 2001/04/03 11:26:02
|
Line 7
|
Line 7
|
# |
# |
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer |
# 11/28,11/29,11/30,12/01,12/02,12/04,12/23 Gerd Kortemeyer |
# 03/23 Guy Albertelli |
# 03/23 Guy Albertelli |
# 03/24,03/29 Gerd Kortemeyer |
# 03/24,03/29,04/03 Gerd Kortemeyer |
|
|
package Apache::lonpublisher; |
package Apache::lonpublisher; |
|
|
Line 115 sub publish {
|
Line 115 sub publish {
|
my ($source,$target,$style)=@_; |
my ($source,$target,$style)=@_; |
my $logfile; |
my $logfile; |
my $scrout=''; |
my $scrout=''; |
|
my $allmeta=''; |
|
my $content=''; |
|
|
unless ($logfile=Apache::File->new('>>'.$source.'.log')) { |
unless ($logfile=Apache::File->new('>>'.$source.'.log')) { |
return |
return |
Line 138 sub publish {
|
Line 140 sub publish {
|
|
|
my $maxindex=10; |
my $maxindex=10; |
my $maxid=10; |
my $maxid=10; |
my $content=''; |
|
my $needsfixup=0; |
my $needsfixup=0; |
|
|
{ |
{ |
Line 290 sub publish {
|
Line 292 sub publish {
|
|
|
# -------------------------------------------------- Parse content for metadata |
# -------------------------------------------------- Parse content for metadata |
|
|
my $allmeta=Apache::lonxml::xmlparse('meta',$content); |
$allmeta=Apache::lonxml::xmlparse('meta',$content); |
&metaeval($allmeta); |
&metaeval($allmeta); |
|
|
# ---------------- Find and document discrepancies in the parameters and stores |
# ---------------- Find and document discrepancies in the parameters and stores |
Line 324 sub publish {
|
Line 326 sub publish {
|
$scrout.='<p><b>Obsolete parameters or stored values:</b> '. |
$scrout.='<p><b>Obsolete parameters or stored values:</b> '. |
$chparms; |
$chparms; |
} |
} |
|
} |
# ------------------------------------------------------- Now have all metadata |
# ------------------------------------------------------- Now have all metadata |
|
|
$scrout.= |
$scrout.= |
Line 408 sub publish {
|
Line 410 sub publish {
|
$scrout.=&selectbox('Copyright/Distribution','copyright', |
$scrout.=&selectbox('Copyright/Distribution','copyright', |
$metadatafields{'copyright'},%cprtag); |
$metadatafields{'copyright'},%cprtag); |
|
|
} |
|
return $scrout. |
return $scrout. |
'<p><input type="submit" value="Finalize Publication"></form>'; |
'<p><input type="submit" value="Finalize Publication"></form>'; |
} |
} |
Line 631 if (-e $target) {
|
Line 632 if (-e $target) {
|
my $thisdistarget=$target; |
my $thisdistarget=$target; |
$thisdistarget=~s/^$docroot//; |
$thisdistarget=~s/^$docroot//; |
|
|
|
my $thissrc=$source; |
|
$thissrc=~s/^\/home\/(\w+)\/public_html/\/priv\/$1/; |
|
|
|
my $thissrcdir=$thissrc; |
|
$thissrcdir=~s/\/[^\/]+$/\//; |
|
|
|
|
return $scrout. |
return $scrout. |
'<p><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="'.$thissrcdir. |
|
'"><font size=+2>Back to Source Directory</font></a>'; |
|
|
} |
} |
|
|
# ================================================================ Main Handler |
# ================================================================ Main Handler |