--- loncom/publisher/lonpubdir.pm 2002/06/04 13:13:38 1.25
+++ loncom/publisher/lonpubdir.pm 2003/02/03 18:03:53 1.30
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# (Publication Handler
#
-# $Id: lonpubdir.pm,v 1.25 2002/06/04 13:13:38 www Exp $
+# $Id: lonpubdir.pm,v 1.30 2003/02/03 18:03:53 harris41 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -36,7 +36,6 @@
# 03/23 Guy Albertelli
# 03/24,03/29 Gerd Kortemeyer)
# 03/31,04/03,05/09,06/23,08/18,08/20 Gerd Kortemeyer
-# 12/15 Scott Harrison
# 12/28 Gerd Kortemeyer
#
###
@@ -99,7 +98,7 @@ sub handler {
- startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page.
+ &startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page.
# Start off the diretory table.
@@ -176,6 +175,7 @@ sub getEffectiveUrl {
# $uname - User name.
# $udom - Domain name the user is logged in under.
# $thisdisfn - Displayable version of the filename.
+
sub startpage {
my ($r, $uname, $udom, $thisdisfn) = @_;
@@ -184,11 +184,33 @@ sub startpage {
$r->print('LON-CAPA Construction Space');
- $r->print('![]()
');
-
+ $r->print(&Apache::loncommon::bodytag(undef,undef,undef,1));
+ my $pubdirscript=(<
+ function pubdir(theform) {
+ if (confirm('Publish complete directory?')) {
+ theform.submit();
+ }
+ }
+ function pubrecdir(theform) {
+ if (confirm('Publish directory and all subdirectories?')) {
+ theform.pubrec.value='1';
+ theform.submit();
+ }
+ }
+
+ENDPUBDIRSCRIPT
+
$r->print('Construction Space Directory '.
- $thisdisfn.'/
');
+ $thisdisfn.'/'.$pubdirscript.
+ '');
if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) {
$r->print('Co-Author: '.$uname.' at '.$udom.
@@ -277,7 +299,7 @@ sub putresource {
if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
$status.='
Diffs';
+ '&versiontwo=priv" target=cat>Diffs';
}
}
$status.='