version 1.58, 2001/12/05 20:37:06
|
version 1.61, 2001/12/05 22:00:14
|
Line 353 sub publish {
|
Line 353 sub publish {
|
$scrout.='<h3>Dependencies</h3>'; |
$scrout.='<h3>Dependencies</h3>'; |
my $allowstr="\n"; |
my $allowstr="\n"; |
map { |
map { |
$allowstr.='<allow src="'.$_.'" />'."\n"; |
my $thisdep=$_; |
|
$allowstr.='<allow src="'.$thisdep.'" />'."\n"; |
$scrout.='<br>'; |
$scrout.='<br>'; |
unless ($_=~/\*/) { |
unless ($thisdep=~/\*/) { |
$scrout.='<a href="'.$_.'">'; |
$scrout.='<a href="'.$thisdep.'">'; |
} |
} |
$scrout.='<tt>'.$_.'</tt>'; |
$scrout.='<tt>'.$thisdep.'</tt>'; |
unless ($_=~/\*/) { |
unless ($thisdep=~/\*/) { |
$scrout.='</a>'; |
$scrout.='</a>'; |
if (&Apache::lonnet::getfile( |
if ( |
$Apache::lonnet::perlvar{'lonDocRoot'}.'/'. |
&Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.'/'. |
$_.'.meta') eq '-1') { |
$thisdep.'.meta') eq '-1') { |
$scrout.= |
$scrout.= |
' - <font color=red>Currently not available</font>'; |
' - <font color=red>Currently not available</font>'; |
} |
} else { |
|
my %temphash=(&Apache::lonnet::declutter($target).'___'. |
|
&Apache::lonnet::declutter($thisdep).'___usage' |
|
=> time); |
|
$thisdep=~/^\/res\/(\w+)\/(\w+)\//; |
|
if ((defined($1)) && (defined($2))) { |
|
&Apache::lonnet::put('resevaldata',\%temphash,$1,$2); |
|
} |
|
} |
} |
} |
} keys %allow; |
} keys %allow; |
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s; |
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s; |
Line 497 sub publish {
|
Line 506 sub publish {
|
|
|
$scrout.= |
$scrout.= |
'<form action="/adm/publish" method="post">'. |
'<form action="/adm/publish" method="post">'. |
|
'<p><input type="submit" value="Finalize Publication" /></p>'. |
&hiddenfield('phase','two'). |
&hiddenfield('phase','two'). |
&hiddenfield('filename',$ENV{'form.filename'}). |
&hiddenfield('filename',$ENV{'form.filename'}). |
&hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)). |
&hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)). |
Line 588 sub publish {
|
Line 598 sub publish {
|
$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" /></p></form>'; |
} |
} |
|
|
# -------------------------------------------------------- Publication Step Two |
# -------------------------------------------------------- Publication Step Two |
Line 622 sub phasetwo {
|
Line 632 sub phasetwo {
|
$metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'}; |
$metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'}; |
$metadatafields{'owner'}=$ENV{'form.owner'}; |
$metadatafields{'owner'}=$ENV{'form.owner'}; |
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
$metadatafields{'copyright'}=$ENV{'form.copyright'}; |
|
$metadatafields{'dependencies'}=$ENV{'form.dependencies'}; |
|
|
my $allkeywords=$ENV{'form.addkey'}; |
my $allkeywords=$ENV{'form.addkey'}; |
map { |
map { |