|
version 1.57, 2001/12/05 20:25:20
|
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 359 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 492 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'}); |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpublisher.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher