--- loncom/publisher/lonpubdir.pm 2003/02/03 18:03:53 1.30 +++ loncom/publisher/lonpubdir.pm 2003/09/22 03:02:06 1.39 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA -# (Publication Handler +# Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.30 2003/02/03 18:03:53 harris41 Exp $ +# $Id: lonpubdir.pm,v 1.39 2003/09/22 03:02:06 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -48,6 +48,7 @@ use File::Copy; use Apache::Constants qw(:common :http :methods); use Apache::loncacc; use Apache::loncommon(); +use Apache::lonlocal; sub handler { @@ -69,13 +70,13 @@ sub handler { $fn,$r->dir_config('lonDefDomain')); unless (($uname) && ($udom)) { $r->log_reason($uname.' at '.$udom. - ' trying to publish file '.$ENV{'form.filename'}. + ' trying to list directory '.$ENV{'form.filename'}. ' ('.$fn.') - not authorized', $r->filename); return HTTP_NOT_ACCEPTABLE; } - # Remove trailing / from direcgtory name. + # Remove trailing / from directory name. $fn=~s/\/$//; @@ -103,8 +104,10 @@ sub handler { # Start off the diretory table. $r->print(''. - ''. - ''); + ''. + ''); my $filename; my $dirptr=16384; # Mask indicating a directory in stat.cmode. @@ -147,7 +150,9 @@ sub getEffectiveUrl { # Replace the ~username of the URL with /home/username/public_html # so that we don't have to worry about ~ expansion internally. # - $fn=~s/^http\:\/\/[^\/]+\/\~(\w+)/\/home\/$1\/public_html/; + $fn=~s/^http\:\/\/[^\/]+\///; + $fn=~s/^\///; + $fn=~s/\~(\w+)/\/home\/$1\/public_html/; # Remove trailing / strings (?) @@ -163,6 +168,7 @@ sub getEffectiveUrl { $fn=~s|^/~(\w+)|/home/$1/public_html|; } } + $fn=~s/\/+/\//g; return $fn; } # @@ -179,7 +185,7 @@ sub getEffectiveUrl { sub startpage { my ($r, $uname, $udom, $thisdisfn) = @_; - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; $r->print('LON-CAPA Construction Space'); @@ -187,6 +193,12 @@ sub startpage { $r->print(&Apache::loncommon::bodytag(undef,undef,undef,1)); my $pubdirscript=(< +// Store directory location for menu bar to find + +parent.lastknownpriv='/~$uname/$thisdisfn/'; + +// Confirmation dialogues + function pubdir(theform) { if (confirm('Publish complete directory?')) { theform.submit(); @@ -201,19 +213,22 @@ sub startpage { ENDPUBDIRSCRIPT - $r->print('

Construction Space Directory '. - $thisdisfn.'/

'.$pubdirscript. + $r->print('

'.&mt('Construction Space Directory').' '. + $thisdisfn.'/

'. + ''. + $pubdirscript. '
'. - ''. ''. ''. - ''. + '
ActionsNameTitleStatusLast Modified
'.&mt('Actions').''.&mt('Name').''. + &mt('Title').''.&mt('Status').''.&mt('Last Modified'). + '
'. ''); + $uname.$thisdisfn."/default.meta'".'" value="Edit Directory Catalog Information" />
Force publication of unmodified files. 
'); if (($uname ne $ENV{'user.name'}) || ($udom ne $ENV{'user.domain'})) { - $r->print('

Co-Author: '.$uname.' at '.$udom. + $r->print('

'.&mt('Co-Author').': '.$uname.' at '.$udom. '

'); } } @@ -254,7 +269,7 @@ sub putdirectory { my $disfilename = $dirname; if ($dirname eq '..') { - $disfilename = 'Parent Directory'; + $disfilename = ''.&mt('Parent Directory').''; } unless (( ($dirname eq '..') && ($reqfile eq '')) || ($dirname eq '.')) { @@ -305,13 +320,22 @@ sub putresource { $status.='
Retrieve'; } + my $editlink=''; + my $editlink2=''; + if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) { + $editlink=' ('.&mt('Edit').')'; + } + if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) { + $editlink=' ('.&mt('EditXML').')'; + $editlink2=' ('.&mt('Edit').')'; + } $r->print(''. ''.'Publish'. ''. ''. ''. - $filename.''. + $filename.''.$editlink2.$editlink. ''. ''.$title.''. ''.$status.''. @@ -350,7 +374,7 @@ __END__ =head1 NAME -Apache::lonpubdir - Publication Handler for Directories +Apache::lonpubdir - Construction space directory lister =head1 SYNOPSIS