version 1.55, 2001/12/04 18:10:37
|
version 1.58, 2001/12/05 20:37:06
|
Line 37
|
Line 37
|
# 05/03,05/05,05/07 Gerd Kortemeyer |
# 05/03,05/05,05/07 Gerd Kortemeyer |
# 05/28/2001 Scott Harrison |
# 05/28/2001 Scott Harrison |
# 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26,10/16 Gerd Kortemeyer |
# 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26,10/16 Gerd Kortemeyer |
|
# 12/04,12/05 Guy Albertelli |
|
# 12/05 Gerd Kortemeyer |
|
|
package Apache::lonpublisher; |
package Apache::lonpublisher; |
|
|
Line 256 sub publish {
|
Line 258 sub publish {
|
if ($token->[0] eq 'S') { |
if ($token->[0] eq 'S') { |
my $counter; |
my $counter; |
my $tag=$token->[1]; |
my $tag=$token->[1]; |
my $lctag=$tag;$lctag=~s/[A-Z]/[a-z]/g; |
my $lctag=lc($tag); |
unless ($lctag eq 'allow') { |
unless ($lctag eq 'allow') { |
my %parms=%{$token->[2]}; |
my %parms=%{$token->[2]}; |
$counter=$addid{$tag}; |
$counter=$addid{$tag}; |
Line 331 sub publish {
|
Line 333 sub publish {
|
$newparmstring.=' '.$_.'='.$quote.$parms{$_}.$quote; |
$newparmstring.=' '.$_.'='.$quote.$parms{$_}.$quote; |
} |
} |
} keys %parms; |
} keys %parms; |
|
if (!$endtag) { if ($token->[4]=~m:/>$:) { $endtag=' /'; }; } |
$outstring.='<'.$tag.$newparmstring.$endtag.'>'; |
$outstring.='<'.$tag.$newparmstring.$endtag.'>'; |
} else { |
} else { |
$allow{$token->[2]->{'src'}}=1; |
$allow{$token->[2]->{'src'}}=1; |
} |
} |
} elsif ($token->[0] eq 'E') { |
} elsif ($token->[0] eq 'E') { |
|
if ($token->[2]) { |
unless ($token->[1] eq 'allow') { |
unless ($token->[1] eq 'allow') { |
$outstring.='</'.$token->[1].'>'; |
$outstring.='</'.$token->[1].'>'; |
} |
} |
|
} |
} else { |
} else { |
$outstring.=$token->[1]; |
$outstring.=$token->[1]; |
} |
} |
Line 357 sub publish {
|
Line 361 sub publish {
|
$scrout.='<tt>'.$_.'</tt>'; |
$scrout.='<tt>'.$_.'</tt>'; |
unless ($_=~/\*/) { |
unless ($_=~/\*/) { |
$scrout.='</a>'; |
$scrout.='</a>'; |
|
if (&Apache::lonnet::getfile( |
|
$Apache::lonnet::perlvar{'lonDocRoot'}.'/'. |
|
$_.'.meta') eq '-1') { |
|
$scrout.= |
|
' - <font color=red>Currently not available</font>'; |
|
} |
} |
} |
} keys %allow; |
} keys %allow; |
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s; |
$outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s; |
Line 490 sub publish {
|
Line 500 sub publish {
|
&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)). |
|
&hiddenfield('dependencies',join(',',keys %allow)). |
&textfield('Title','title',$metadatafields{'title'}). |
&textfield('Title','title',$metadatafields{'title'}). |
&textfield('Author(s)','author',$metadatafields{'author'}). |
&textfield('Author(s)','author',$metadatafields{'author'}). |
&textfield('Subject','subject',$metadatafields{'subject'}); |
&textfield('Subject','subject',$metadatafields{'subject'}); |