--- loncom/publisher/lonpubdir.pm	2011/10/21 18:04:51	1.128
+++ loncom/publisher/lonpubdir.pm	2014/10/17 13:00:39	1.162
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
-# Construction Space Directory Lister
+# Authoring Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.128 2011/10/21 18:04:51 www Exp $
+# $Id: lonpubdir.pm,v 1.162 2014/10/17 13:00:39 goltermann Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,7 +33,6 @@ use strict;
 use Apache::File;
 use File::Copy;
 use Apache::Constants qw(:common :http :methods);
-use Apache::loncacc;
 use Apache::loncommon();
 use Apache::lonhtmlcommon();
 use Apache::londiff();
@@ -41,88 +40,294 @@ use Apache::lonlocal;
 use Apache::lonmsg;
 use Apache::lonmenu;
 use Apache::lonnet;
-use LONCAPA;
+use LONCAPA qw(:DEFAULT :match);
 
 sub handler {
 
-  my $r=shift;
+    my $r=shift;
 
-  # Validate access to the construction space and get username@domain.
+    # Validate access to the construction space and get username:domain.
 
-  my $uname;
-  my $udom;
-
-  ($uname,$udom)=&Apache::loncacc::constructaccess($r->uri); 
-  unless (($uname) && ($udom)) {
-     return HTTP_NOT_ACCEPTABLE;
-  }
+    my ($uname,$udom)=&Apache::lonnet::constructaccess($r->uri); 
+    unless (($uname) && ($udom)) {
+        return HTTP_NOT_ACCEPTABLE;
+    }
 
 # ----------------------------------------------------------- Start page output
 
-  my $fn=$r->filename;
-  $fn=~s/\/$//;
+    my $fn=$r->filename;
+    $fn=~s/\/$//;
+    my $thisdisfn=$fn;
+
+    my $docroot=$r->dir_config('lonDocRoot');     # Apache  londocument root.
+    if ($thisdisfn eq "$docroot/priv/$udom") {
+        if ((-d "/home/$uname/public_html/") && (!-e "$docroot/priv/$udom/$uname")) {
+            my ($version) = ($r->dir_config('lonVersion') =~ /^\'?(\d+\.\d+)\./);
+            &Apache::loncommon::content_type($r,'text/html');
+            $r->send_http_header;
+
+            &Apache::lonhtmlcommon::clear_breadcrumbs();
+            $r->print(&Apache::loncommon::start_page('Authoring Space').
+                      '<div class="LC_error">'.
+                      '<br /><p>'.
+                      &mt('Your Authoring Space is currently in the location used by LON-CAPA version 2.10 and older, but your domain is using a newer LON-CAPA version ([_1]).',$version).'</p>'.
+                      '<p>'.
+                      &mt('Please ask your Domain Coordinator to move your Authoring Space to the new location.').
+                      '</p>'.
+                      '</div>'.
+                      &Apache::loncommon::end_page());
+            return OK;
+        }
+    }
+    $thisdisfn=~s/^\Q$docroot\E\/priv//;
+    
+    my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory
+    my $targetdir='/res'.$thisdisfn; # Publication target directory.
+    my $linkdir='/priv'.$thisdisfn;      # Full URL name of constr space.
+
+    my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
+
+    &startpage($r, $uname, $udom, $thisdisfn);  # Put out the start of page.
 
-  my $thisdisfn=$fn;
-  my $docroot=$r->dir_config('lonDocRoot');     # Apache  londocument root.
-  $thisdisfn=~s/^\Q$docroot\E\/priv//;
-
-  my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory
-  my $targetdir='/res'.$thisdisfn; # Publication target directory.
-  my $linkdir='/priv'.$thisdisfn;      # Full URL name of constr space.
-
-  my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
-
-  &startpage($r, $uname, $udom, $thisdisfn);   # Put out the start of page.
-  &dircontrols($r,$uname,$udom,$thisdisfn);    # Put out actions for directory, 
-                                               # browse/upload + new file page.
-  &resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc.
+    if (!-d $fn) {
+        if (-e $fn) {
+            $r->print('<p class="LC_info">'.&mt('Requested item is a file not a directory.').'</p>');
+        } else {
+            $r->print('<p class="LC_info">'.&mt('The requested subdirectory does not exist.').'</p>');
+        }
+        $r->print(&Apache::loncommon::end_page());
+        return OK;
+    }
+    my @files;
+    if (opendir(DIR,$fn)) {
+        @files = grep(!/^\.+$/,readdir(DIR));
+        closedir(DIR);
+    } else {
+        $r->print('<p class="LC_error">'.&mt('Could not open directory.').'</p>');
+        $r->print(&Apache::loncommon::end_page());
+        return OK;
+    }
+
+    &dircontrols($r,$uname,$udom,$thisdisfn);   # Put out actions for directory, 
+                                                # browse/upload + new file page.
+    &resourceactions($r,$uname,$udom,$thisdisfn); # Put out form used for printing/deletion etc.
 
-  my $numdir = 0;
-  my $numres = 0;
+    my $numdir = 0;
+    my $numres = 0;
   
-  # Start off the directory table.
-  $r->print(&Apache::loncommon::start_data_table()
-           .&Apache::loncommon::start_data_table_header_row()
+    if ((@files == 0) && ($thisdisfn =~ m{^/$match_domain/$match_username})) {
+        if ($thisdisfn =~ m{^/$match_domain/$match_username$}) {
+            $r->print('<p class="LC_info">'.&mt('This Authoring Space is currently empty.').'</p>');
+        } else {
+            $r->print('<p class="LC_info">'.&mt('This subdirectory is currently empty.').'</p>');
+        }
+        $r->print(&Apache::loncommon::end_page());
+        return OK;
+    }
+
+    # Retrieving value for "sortby" and "sortorder" from QUERY_STRING
+    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+        ['sortby','sortorder']);
+
+    # Sort by name as default, not reversed
+    if (! exists($env{'form.sortby'})) { $env{'form.sortby'} = 'filename' }
+    if (! exists($env{'form.sortorder'})) { $env{'form.sortorder'} = '' }
+    my $sortby = $env{'form.sortby'};
+    my $sortorder = $env{'form.sortorder'};
+
+    # Order in which columns are displayed from left to right
+    my @order = ('filetype','actions','filename','title',
+                    'pubstatus','cmtime','size');
+
+    # Up and down arrows to indicate sort order
+    my @arrows = ('&nbsp;&#9650;','&nbsp;&#9660;','');
+
+    # Default sort order and column title
+    my %columns = (
+        filetype =>     {
+                            order => 'ascending',
+                            text  => &mt('Type'),
+                        },
+        actions =>      {
+                            # Not sortable
+                            text  => &mt('Actions'),
+                        },
+        filename =>     {
+                            order => 'ascending',
+                            text  => &mt('Name'),
+                        },
+        title =>        {
+                            order => 'ascending',
+                            text  => &mt('Title'),
+                        },
+        pubstatus =>    {
+                            order => 'ascending',
+                            text  => &mt('Status'),
+                            colspan => '2',
+                        },
+        cmtime =>       {
+                            order => 'descending',
+                            text  => &mt('Last Modified'),
+                        },
+        size =>         {
+                            order => 'ascending',
+                            text  => &mt('Size').' (kB)',
+                        },
+    ); 
+
+    # Print column headers
+    my $output = '';
+    foreach my $key (@order) {
+        my $idx;
+        # Append an up or down arrow to sorted column
+        if ($sortby eq $key) {
+            $idx = ($columns{$key}{order} eq 'ascending') ? 0:1;
+            if ($sortorder eq 'rev') { $idx ++; }
+            $idx = $idx%2;
+        } else { $idx = 2; } # No arrow if column is not sorted
+        $output .= (($columns{$key}{order}) ?
+            '<th'.($columns{$key}{colspan} ? ' colspan="'.$columns{$key}{colspan}.'"' : '')
+            .'><a href="'.$linkdir.'/?sortby='.$key.'&amp;sortorder='
+            .((($sortby eq $key) && ($sortorder ne 'rev')) ? 'rev' : '').'">'
+            .$columns{$key}{text}.$arrows[$idx].'</a></th>' :
+            '<th>'.$columns{$key}{text}.'</th>');
+    }
+
+my $result = "<script type=\"text/javascript\">
+    sessionStorage.setItem('CSTRcache','".&prepareJsonData($uname,$udom,$thisdisfn)."');
+    localStorage.setItem('CSTRtrans', '".&prepareJsonTranslations()."');
+</script>";
+    $r->print($result);
+
+    $r->print('<div id="currentFolder">'.&Apache::loncommon::start_data_table()
+        .'<tr><th colspan="8" id="searchtitle" style="display:none"></th></tr>'
+        .&Apache::loncommon::start_data_table_header_row() . $output
+        .&Apache::loncommon::end_data_table_header_row()
+    );
+
+    my $dirptr=16384;		# Mask indicating a directory in stat.cmode.
+    my $filehash = {};
+    foreach my $filename (@files) {
+        # Skip .DS_Store, .DAV and hidden files
+        my ($extension) = ($filename=~/\.(\w+)$/);
+        next if (($filename eq '.DS_Store')
+                || ($filename eq '.DAV')
+                || (&Apache::loncommon::fileembstyle($extension) eq 'hdn')
+                || ($filename =~ /^\._/));
+
+        my ($cmode,$csize,$cmtime)=(stat($fn.'/'.$filename))[2,7,9];
+        my $linkfilename = &HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');
+        # Identify type of file according to icon used
+        my ($filetype) = (&Apache::loncommon::icon($filename) =~ m{/(\w+).gif$}); 
+        my $cstr_dir = $r->dir_config('lonDocRoot').'/priv'.$thisdisfn;
+        my $meta_same = &isMetaSame($cstr_dir, $resdir, $filename);
+        
+        # Store size, title, and status for files but not directories
+        my $size = (!($cmode&$dirptr)) ? $csize/1024. : 0;
+        my ($status, $pubstatus, $title, $fulltitle);
+        if (!($cmode&$dirptr)) {
+            ($status, $pubstatus) = &getStatus($resdir, $targetdir, $cstr_dir, 
+                $filename, $linkfilename, $cmtime, $meta_same);
+            ($fulltitle, $title) = &getTitle($resdir, $targetdir, $filename, 
+                                        $linkfilename, $meta_same, \%bombs);
+        } else {
+            ($status, $pubstatus) = ('','');
+            ($fulltitle, $title) = ('','');
+        }
+
+        # This hash will allow sorting
+        $filehash->{ $filename } = {
+            "cmtime"            => $cmtime,
+            "size"              => $size,
+            "cmode"             => $cmode,
+            "filetype"          => $filetype,
+            "title"             => $title,
+            "fulltitle"         => $fulltitle,
+            "status"            => $status,
+            "pubstatus"         => $pubstatus,
+            "linkfilename"      => $linkfilename,
+        }
+    }
+   
+    my @sorted_files;
+    # Sorting by something other than "Name".  Name is the secondary key.
+    if ($sortby =~ m{cmtime|size}) {    # Numeric fields
+        # First check if order should be reversed
+        if ($sortorder eq "rev") {
+            @sorted_files = sort {
+                $filehash->{$a}->{$sortby} <=> $filehash->{$b}->{$sortby}
+                    or
+                uc($a) cmp uc($b)
+            } (keys(%{$filehash}));
+        } else {
+            @sorted_files = sort {
+                $filehash->{$b}->{$sortby} <=> $filehash->{$a}->{$sortby}
+                    or
+                uc($a) cmp uc($b)
+            } (keys(%{$filehash}));
+        }
+    } elsif ($sortby =~ m{filetype|title|status}) {     # String fields
+        if ($sortorder eq "rev") {
+            @sorted_files = sort {
+                $filehash->{$b}->{$sortby} cmp $filehash->{$a}->{$sortby}
+                    or
+                uc($a) cmp uc($b)
+            } (keys(%{$filehash}));
+        } else {
+            @sorted_files = sort {
+                $filehash->{$a}->{$sortby} cmp $filehash->{$b}->{$sortby}
+                    or
+                uc($a) cmp uc($b)
+            } (keys(%{$filehash}));
+        }
+
+    # Sort by "Name" is the default
+    } else { 
+        if ($sortorder eq "rev") {
+            @sorted_files = sort {uc($b) cmp uc($a)} (keys(%{$filehash}));
+        } else {
+            @sorted_files = sort {uc($a) cmp uc($b)} (keys(%{$filehash}));
+        }
+    }
+
+    # Print the sorted resources
+    foreach my $filename (@sorted_files) {
+        if ($filehash->{$filename}->{"cmode"}&$dirptr) {        # Directories
+            &putdirectory($r, $thisdisfn, $linkdir, $filename, 
+                $filehash->{$filename}->{"cmtime"}, 
+                $targetdir, \%bombs, \$numdir);
+        } else {                                                # Files
+            &putresource($r, $udom, $uname, $filename, $thisdisfn, $resdir,
+                $targetdir, $linkdir, $filehash->{$filename}->{"cmtime"}, 
+                $filehash->{$filename}->{"size"}, \$numres, 
+                $filehash->{$filename}->{"linkfilename"},
+                $filehash->{$filename}->{"fulltitle"},
+                $filehash->{$filename}->{"status"},
+                $filehash->{$filename}->{"pubstatus"});
+        }
+    }
+
+  $r->print(&Apache::loncommon::end_data_table()
+           .'</div><div id="otherplaces" style="display:none">'
+           .&Apache::loncommon::start_data_table()
+           .'<tr><th colspan="7">'.&mt('Results in other directories:').'</th></tr>'
+           .'<tr class="LC_header_row" id="otherplacestable">'
            .'<th>'.&mt('Type').'</th>'
-           .'<th>'.&mt('Actions').'</th>'
+           .'<th>'.&mt('Directory').'</th>'
            .'<th>'.&mt('Name').'</th>'
            .'<th>'.&mt('Title').'</th>'
            .'<th colspan="2">'.&mt('Status').'</th>'
            .'<th>'.&mt('Last Modified').'</th>'
-           .&Apache::loncommon::end_data_table_header_row()
-  );
-
-  my $filename;
-  my $dirptr=16384;		# Mask indicating a directory in stat.cmode.
-
-  opendir(DIR,$fn);
-  my @files=sort {uc($a) cmp uc($b)} (readdir(DIR));
-  foreach my $filename (@files) {
-     my ($cdev,$cino,$cmode,$cnlink,
-         $cuid,$cgid,$crdev,$csize,
-         $catime,$cmtime,$cctime,
-         $cblksize,$cblocks)=stat($fn.'/'.$filename);
-
-     my $extension='';
-     if ($filename=~/\.(\w+)$/) { $extension=$1; }
-     if ($cmode&$dirptr) {
-	 putdirectory($r, $thisdisfn, $linkdir, $filename, $cmtime,$targetdir,\%bombs,\$numdir);
-     } elsif (&Apache::loncommon::fileembstyle($extension) ne 'hdn') {
-	 putresource($r, $udom, $uname, $filename, $thisdisfn, $resdir, 
-		     $targetdir, $linkdir, $cmtime,\%bombs,\$numres);
-     } else {
-	# "hidden" extension and not a directory, so hide it away.
-     }
-  }
-  closedir(DIR);
-
-  $r->print(&Apache::loncommon::end_data_table()
+           .'</tr>'
+           .&Apache::loncommon::end_data_table()
+           .'</div>'
            .&Apache::loncommon::end_page()
   );
   return OK;  
 }
 
-#
+
+
 #   Output the header of the page.  This includes:
 #   - The HTML header 
 #   - The H1/H3  stuff which includes the directory.
@@ -135,37 +340,44 @@ sub handler {
 
 sub startpage {
     my ($r, $uname, $udom, $thisdisfn) = @_;
-    my $currdir = '/priv/'.$uname.$thisdisfn;
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 
-    my $formaction='/priv/'.$uname.$thisdisfn.'/';
+    my $formaction='/priv'.$thisdisfn.'/';
     $formaction=~s|/+|/|g;
     &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
 
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({
-        'text'  => 'Construction Space',
-        'href'  => &Apache::loncommon::authorspace(),
+        'text'  => 'Authoring Space',
+        'href'  => &Apache::loncommon::authorspace($formaction),
     });
     # breadcrumbs (and tools) will be created 
     # in start_page->bodytag->innerregister
 
-    $env{'request.noversionuri'}=$currdir.'/';
-    $r->print(&Apache::loncommon::start_page('Construction Space',undef));
+    $env{'request.noversionuri'}=$formaction;
+    $r->print(&Apache::loncommon::start_page('Authoring Space'));
+
+    my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
+    my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,"$londocroot/priv/$udom/$uname");
+    my $disk_quota = &Apache::loncommon::get_user_quota($uname,$udom,'author'); #expressed in MB
+    $disk_quota = 1000 * $disk_quota; # convert from MB to kB
 
     $r->print(&Apache::loncommon::head_subbox(
-                &Apache::loncommon::CSTR_pageheader(1)));
+                     '<div style="float:right;padding-top:0;margin-top;0">'
+                    .&Apache::lonhtmlcommon::display_usage($current_disk_usage,$disk_quota)
+                    .'</div>'
+                    .&Apache::loncommon::CSTR_pageheader()));
 
     my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);
-    my $doctitle = 'LON-CAPA '.&mt('Construction Space');
+    my $doctitle = 'LON-CAPA '.&mt('Authoring Space');
     my $newname = &mt('New Name');
     my $pubdirscript=(<<ENDPUBDIRSCRIPT);
 <script type="text/javascript">
 top.document.title = '$esc_thisdisfn/ - $doctitle';
 // Store directory location for menu bar to find
 
-parent.lastknownpriv='/~$uname$esc_thisdisfn/';
+parent.lastknownpriv='/priv$esc_thisdisfn/';
 
 // Confirmation dialogues
 
@@ -302,12 +514,15 @@ sub dircontrols {
                                        go   => 'Go',
                                        prnt => 'Print contents of directory',
                                        crea => 'Create a new directory or LON-CAPA document',
+                                       qs   => 'Quick Search',
+                                       cs   => 'Case Sensitive',
+                                       re   => 'Regular Expression',
 				       acti => 'Actions for current directory',
 				       updc => 'Upload a new document',
 				       pick => 'Please select an action to perform using the new filename',
                                       );
     my $mytype = $lt{'type'}; # avoid conflict with " and ' in javascript
-    $r->print(<<END);
+    $r->printf(<<END,&Apache::loncommon::help_open_topic('Quicksearch'));
 <div class="LC_columnSection">
   <div>
     <form name="curractions" method="post" action="">
@@ -320,7 +535,7 @@ sub dircontrols {
             <option value="printdir">$lt{'prnt'}</option>
             <option value="delete">$lt{'dedr'}</option>
         </select>
-        <input type="hidden" name="filename" value="/~$uname$thisdisfn/" />
+        <input type="hidden" name="filename" value="/priv$thisdisfn/" />
       </fieldset>
     </form>
     <form name="publishdir" method="post" action="/adm/publish" target="_parent">
@@ -336,7 +551,7 @@ sub dircontrols {
     <form name="upublisher" enctype="multipart/form-data" method="post" action="/adm/upload" target="_parent">
       <fieldset>
         <legend>$lt{'updc'}</legend>
-        <input type="hidden" name="filename" value="/~$uname$thisdisfn/" />
+        <input type="hidden" name="filename" value="/priv$thisdisfn/" />
         <input type="file" name="upfile" size="20" />
         <input type="button" value="$lt{'uplo'}"  onclick="checkUpload(this.form)" />
       </fieldset>
@@ -348,7 +563,7 @@ sub dircontrols {
       <fieldset>
               <legend>$lt{'crea'}</legend>
 	      <span class="LC_nobreak">
-		<input type="hidden" name="filename" value="/~$uname$thisdisfn/" />
+		<input type="hidden" name="filename" value="/priv$thisdisfn/" />
                   <script type="text/javascript">
                     function validate_go() {
                         var selected = document.fileaction.action.selectedIndex;
@@ -375,6 +590,18 @@ sub dircontrols {
 		 </span>
       </fieldset>
     </form>
+    </div>
+    <div>
+      <fieldset style="display:inline">
+            <legend>$lt{'qs'}</legend>
+                <script type="text/javascript" src="/adm/quicksearch/quicksearch.js"></script>
+                <input type="text" id="quickfilter" placeholder="Enter search term" onkeyup="applyFilter()"/>
+                <input type="button" value="Clear" onclick="document.getElementById(\'quickfilter\').value=\'\'; applyFilter()" />
+                %s
+                <br />
+                <label><input type="checkbox" id="casesens" onchange="applyFilter()"/>$lt{'cs'}&nbsp;&nbsp;</label>
+                <label><input type="checkbox" id="regex" onchange="applyFilter()"/>$lt{'re'}&nbsp;&nbsp;</label>
+        </fieldset>
   </div>
 </div>
 END
@@ -438,38 +665,45 @@ sub getSourceRightString {
 }
 #
 #  Put out a directory table row:
-#    putdirectory(r, base, here, dirname, modtime)
-#      r       - Apache request object.
-#      reqfile - File in request.
-#      here    - Where we are in directory tree.
-#      dirname - Name of directory special file.
-#      modtime - Encoded modification time.
-# 
+#    putdirectory(r, base, here, dirname, modtime, targetdir, bombs, numdir)
+#      r         - Apache request object.
+#      reqfile   - File in request.
+#      here      - Where we are in directory tree.
+#      dirname   - Name of directory special file.
+#      modtime   - Encoded modification time.
+#      targetdir - Publication target directory.
+#      bombs     - Reference to hash of URLs with runtime error messages.
+#      numdir    - Reference to scalar used to track number of sub-directories
+#                  in directory (used in form name for each "actions" dropdown).
+#
 sub putdirectory {
-    my ($r, $reqfile, $here, $dirname, $modtime, $resdir, $bombs, $numdir) = @_;
-    # construct the display filename: the directory name unless ..:
-    
+    my ($r, $reqfile, $here, $dirname, $modtime, $targetdir, $bombs, $numdir) = @_;
+
+# construct the display filename: the directory name unless ..:
+   
+    my $actionitem;
+ 
     my $disfilename = $dirname;
-    if ($dirname eq '..') {
-	$disfilename = '<i>'.&mt('Parent Directory').'</i>';
-    }
-    unless ( (($dirname eq '..') && ($reqfile eq '')) || ($dirname eq '.')) {
-	my $kaputt=0;
-	foreach (keys %{$bombs}) {
-	    if ($_=~m:^\Q$resdir\E/\Q$disfilename\E/:) { $kaputt=1; last; }
-	}
+# Don't display directory itself, and there is no way up from root directory
+    unless ((($dirname eq '..') && ($reqfile=~/^\/[^\/]+\/[^\/]+$/)) || ($dirname eq '.')) {
+        my $kaputt=0;
+        if (ref($bombs) eq 'HASH') {
+            foreach my $key (keys(%{$bombs})) {
+                my $currentdir = &Apache::lonnet::declutter("$targetdir/$disfilename");
+                if (($key) =~ m{^\Q$currentdir\E/}) { $kaputt=1; last; }
+            }
+        }
+#
+# Get the metadata from that directory's default.meta to display titles
+#
 	%Apache::lonpublisher::metadatafields=();
 	%Apache::lonpublisher::metadatakeys=();
-	my $construct=$here;
-	$construct=~s{^/priv/($LONCAPA::username_re)$}{/home/$1/public_html};
-        my $dirpath = $here;
-        $dirpath=~s{^/priv/}{/~};
-	&Apache::lonpublisher::metaeval(&Apache::lonnet::getfile(
-       				 $construct.'/'.$dirname.'/default.meta'
-								 ));
-        my $actionitem = '';
+	&Apache::lonpublisher::metaeval(
+                 &Apache::lonnet::getfile($r->dir_config('lonDocRoot').$here.'/'.$dirname.'/default.meta')
+                                       );
         if ($dirname eq '..') {
             $actionitem = &mt('Go to ...');
+            $disfilename = '<i>'.&mt('Parent Directory').'</i>';
         } else {
             $actionitem = 
                     '<form name="dirselect_'.$$numdir.
@@ -482,7 +716,7 @@ sub putdirectory {
                       '<option value="printdir">'.&mt('Print directory').'</option>'.
                       '<option value="delete">'.&mt('Delete directory').'</option>'.
                     '</select>'.
-                     '<input type="hidden" name="filename" value="'.&HTML::Entities::encode($dirpath.'/'.$dirname,'<>&"').'/" />'.
+                     '<input type="hidden" name="filename" value="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" />'.
                      '<input type="hidden" name="openname" value="'.$here.'/'.$dirname.'/" />'.
                      '<input type="hidden" name="postdata" value="" />'.
                    '</form>';
@@ -494,7 +728,7 @@ sub putdirectory {
 		  '<td>'.$actionitem.'</td>'.
 		  '<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.
 		  $disfilename.'</a></span></td>'.
-		        '<td colspan="3">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
+		        '<td colspan="3">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($targetdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
 	if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {
 	    $r->print(' <i>'.
 		      $Apache::lonpublisher::metadatafields{'subject'}.
@@ -502,53 +736,71 @@ sub putdirectory {
 	}
 	$r->print($Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.
 		  '<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
+	          '<td></td>'.
 		  "</tr>\n");
     }
-    return OK;
+    return;
 }
-#
-#   Put a table row for a file resource.
-#
-sub putresource {
-    my ($r, $udom, $uname, $filename, $thisdisfn, 
-	$resdir, $targetdir, $linkdir,
-	$cmtime,$bombs,$numres) = @_;
-    &Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename);
+
+sub getTitle {
+    my ($resdir, $targetdir, $filename, $linkfilename, $meta_same, $bombs) = @_;
+    my $title='';
+    my $titleString = &getTitleString($targetdir.'/'.$filename);
+    if (-e $resdir.'/'.$filename) {
+	$title = '<a href="'.$targetdir.'/'.$filename.
+	    '.meta" target="cat">'.$titleString.'</a>';
+        if (!$meta_same) {
+	    $title = &mt('Metadata Modified').'<br />'.$title.
+		'<br />'.
+                &Apache::loncommon::modal_link(
+                    '/adm/diff?filename='.$linkfilename.'.meta'.'&amp;versiontwo=priv',
+                    &mt('Metadata Diffs'),600,500);
+	    $title.="\n".'<br />'.
+                &Apache::loncommon::modal_link(
+                    '/adm/retrieve?filename='.$linkfilename.'.meta&amp;inhibitmenu=yes&amp;add_modal=yes',
+                    &mt('Retrieve Metadata'),600,500);
+        } 
+    }
+    # Allow editing metadata of published and unpublished resources
+    $title .= "\n".'<br />' if ($title);
+    $title .= '<a href="'.$linkfilename.'.meta">'.
+              ($$bombs{&Apache::lonnet::declutter($targetdir.'/'.$filename)}?
+                  '<img src="/adm/lonMisc/bomb.gif" border="0" alt="'.&mt('bomb').'" />':
+                  &mt('Edit Metadata')).
+              '</a>';
+
+    return ($title, $titleString);
+}
+
+
+sub isMetaSame {
+    my ($cstr_dir, $resdir, $filename) = @_;
+    my $meta_cmtime = (stat($cstr_dir.'/'.$filename.'.meta'))[9];
+    my $meta_rmtime = (stat($resdir.'/'.$filename.'.meta'))[9];
+    return (&Apache::londiff::are_different_files($resdir.'/'.$filename.'.meta',
+            $cstr_dir.'/'.$filename.'.meta') && $meta_rmtime < $meta_cmtime) 
+        ? 0 : 1;
+}
+    
+
+sub getStatus {    
+    my ($resdir, $targetdir, $cstr_dir, $filename,  
+            $linkfilename, $cmtime, $meta_same) = @_;
     my $pubstatus = 'unpublished';
-    my $status=&mt('Unpublished');
-    my $css_class='LC_browser_file';
-    my $title='&nbsp;';
-    my $publish_button=&mt('Publish');
-    my $cstr_dir = '/home/'.$uname.'/public_html/'.$thisdisfn.'/';
-#    my $action_buttons=
-#        '<br /><a target="_parent" href="/adm/cfile?action=delete&filename=/~'.
-#	$uname.'/'.$thisdisfn.'/'.$filename.'">'.
-#	&mt('Delete').'</a>';
+    my $status = &mt('Unpublished');
+
     if (-e $resdir.'/'.$filename) {
-        my $same=0;
-	my ($rdev,$rino,$rmode,$rnlink,
-	    $ruid,$rgid,$rrdev,$rsize,
-	    $ratime,$rmtime,$rctime,
-	    $rblksize,$rblocks)=stat($resdir.'/'.$filename);
-        if ($rmtime>=$cmtime) {
-           $same=1;
+        my $same = 0;
+        if ((stat($resdir.'/'.$filename))[9] >= $cmtime) {
+            $same = 1;
         } else {
            if (&Apache::londiff::are_different_files($resdir.'/'.$filename,
 						     $cstr_dir.'/'.$filename)) {
-              $same=0;
+              $same = 0;
            } else {
-              $same=1;
+              $same = 1;
            }
         }
-	my $meta_cmtime = (stat($cstr_dir.'/'.$filename.'.meta'))[9];
-	my $meta_rmtime = (stat($resdir.'/'.$filename.'.meta'))[9];
-	my $meta_same = 1;
-	if ($meta_rmtime < $meta_cmtime
-	    && &Apache::londiff::are_different_files($resdir.'/'.$filename.'.meta',
-						     $cstr_dir.'/'.$filename.'.meta')) {
-	    $meta_same = 0;
-	}
-	$publish_button=&mt('Re-publish');
 
         my $rights_status =
             &mt(&getCopyRightString($targetdir.'/'.$filename)).', ';
@@ -560,9 +812,6 @@ sub putresource {
         $rights_status .=
             $lt_SourceRight{&getSourceRightString($targetdir.'/'.$filename)};
 
-	$title = '<a href="/res/'.$targetdir.'/'.$filename.
-	    '.meta" target="cat">'.
-	    &getTitleString($targetdir.'/'.$filename).'</a>';
 	if ($same) {
 	    if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
                 $pubstatus = 'obsolete';
@@ -576,52 +825,52 @@ sub putresource {
 		$status=&mt('Published').
 		    '<br />'. $rights_status;
 	    }
-#	    } else {
-#		$action_buttons='';
-#	    }
 	} else {
             $pubstatus = 'modified';
 	    $status=&mt('Modified').
 		'<br />'. $rights_status;
-#	    $action_buttons='';
 	    if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
-		$status.='<br /><a href="/adm/diff?filename=/~'.$uname.
-		    $thisdisfn.'/'.$filename.
-		    '&amp;versiontwo=priv" target="cat">'.&mt('Diffs').'</a>';
+		$status.='<br />'.
+                         &Apache::loncommon::modal_link(
+                             '/adm/diff?filename='.$linkfilename.'&amp;versiontwo=priv',
+                             &mt('Diffs'),600,500);
 	    }
 	} 
 
-	$title.="\n".'<br /><a href="/~'.$uname.$thisdisfn.'/'.$filename.'.meta">'. 
-	    ($$bombs{$targetdir.'/'.$filename}?'<img src="/adm/lonMisc/bomb.gif" border="0" alt="'.&mt('bomb').'" />':&mt('Edit Metadata')).'</a>';
-
-	if (!$meta_same) {
-	    $title = &mt('Metadata Modified').'<br />'.$title.
-		'<br /><a href="/adm/diff?filename=/~'.$uname.
-		$thisdisfn.'/'.$filename.'.meta'.
-		'&amp;versiontwo=priv" target="cat">'.&mt('Metadata Diffs').'</a>';
-	    $title.="\n".'<br /><a href="/adm/retrieve?filename=/~'.$uname.
-		$thisdisfn.'/'.$filename.'.meta" target="_parent">'.&mt('Retrieve Metadata').'</a>';
-	}
-	$status.="\n".'<br /><a href="/adm/retrieve?filename=/~'.$uname.
-	    $thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Retrieve').'</a>';
+	$status.="\n".'<br />'.
+             &Apache::loncommon::modal_link(
+                 '/adm/retrieve?filename='.$linkfilename.'&amp;inhibitmenu=yes&amp;add_modal=yes',&mt('Retrieve'),600,500);
     }
+
+    return ($status, $pubstatus);
+}
+
+
+#
+#   Put a table row for a file resource.
+#
+sub putresource {
+    my ($r, $udom, $uname, $filename, $thisdisfn, $resdir, $targetdir, 
+            $linkdir, $cmtime, $size, $numres, $linkfilename, $title, 
+            $status, $pubstatus) = @_;
+    &Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename);
+
     my $editlink='';
     my $editlink2='';
     if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) {
-	$editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_parent">'.&mt('Edit').'</a>)';
+	$editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&amp;problemmode=edit">'.&mt('Edit').'</a>)';
     }
-    if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
-	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_parent">'.&mt('EditXML').'</a>)';
-	$editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_parent">'.&mt('Edit').'</a>)';
+    if ($filename=~/$LONCAPA::assess_re/) {
+	$editlink=' (<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&amp;problemmode=editxml">'.&mt('EditXML').'</a>)';
+	$editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&amp;problemmode=edit">'.&mt('Edit').'</a>)';
     }
     if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) {
-	$editlink.=' (<a href="/adm/cleanup?filename=/~'.$uname.
-	    $thisdisfn.'/'.$filename.'" target="_parent">'.&mt('Clean Up').')</a>';
+	$editlink.=' (<a href="/adm/cleanup?filename='.$linkfilename.'" target="_parent">'.&mt('Clean Up').')</a>';
     }
     if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
-	$editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'.
-	      $uname.$thisdisfn.'/'.$filename.'">'.&mt('Decompress').'</a>)';
+	$editlink=' (<a target="_parent" href="/adm/cfile?decompress='.$linkfilename.'">'.&mt('Decompress').'</a>)';
     }
+    my $publish_button = (-e $resdir.'/'.$filename) ? &mt('Re-publish') : &mt('Publish');
     my $pub_select = '';
     &create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
     $r->print(&Apache::loncommon::start_data_table_row().
@@ -636,9 +885,10 @@ sub putresource {
               '<td class="LC_browser_file_'.$pubstatus.'">&nbsp;&nbsp;</td>'. # Display publication status
               '<td>'.$status.'</td>'.
 	      '<td>'.&Apache::lonlocal::locallocaltime($cmtime).'</td>'.
+	      '<td>'.sprintf("%.1f",$size).'</td>'.
 	      &Apache::loncommon::end_data_table_row()
     );
-    return OK;
+    return;
 }
 
 sub create_pubselect {
@@ -668,8 +918,8 @@ sub create_pubselect {
 '<option value="cleanup">'.&mt('Clean up').'</option>'.
 '<option value="print">'.&mt('Print').'</option>'.
 '</select>
-<input type="hidden" name="filename" value="/~'.
- &HTML::Entities::encode($uname.$thisdisfn.'/'.$filename,'<>&"').'" />
+<input type="hidden" name="filename" value="/priv'.
+ &HTML::Entities::encode($thisdisfn.'/'.$filename,'<>&"').'" />
  <input type="hidden" name="dispfilename" value="'.
  &HTML::Entities::encode($filename).'" /></form>';
     $$numres ++;
@@ -691,48 +941,151 @@ sub check_for_versions {
             $versions ++;        
         }
     }
+    closedir(DIR);
     return $versions;
 }
 
-#
-#   Categorize files in the directory.
-#   For each file in a list of files in a file directory, 
-#   the  file categorized as one of:
-#    - directory  
-#    - sequence
-#    - problem 
-#    - Other resource.
-#
-#   For each file the modification date is determined as well.
-#   Returned is a list of sublists:
-#    (directories, sequences, problems, other)
-#   each of the sublists contains entries of the following form (sorted by
-#   filename):
-#     (filename, typecode, lastmodtime)
-#
-#   $list = CategorizeFiles($location, $files)
-#       $location   - Directory in which the files live (relative to our
-#                     execution.
-#       $files      - list of files.
-#
-sub CategorizeFiles {
-    my $location = shift;
-    my $files    = shift;
+sub prepareJsonTranslations {
+    my $json = 
+        '{"translations":{'.
+            '"edit":"'.&mt('Edit').'",'.
+            '"editxml":"'.&mt('EditXML').'",'.
+            '"editmeta":"'.&mt('Edit Metadata').'",'.
+            '"obsolete":"'.&mt('Obsolete').'",'.
+            '"modified":"'.&mt('Modified').'",'.
+            '"published":"'.&mt('Published').'",'.
+            '"unpublished":"'.&mt('Unpublished').'",'.
+            '"diff":"'.&mt('Diff').'",'.
+            '"retrieve":"'.&mt('Retrieve').'",'.
+            '"directory":"'.&mt('Directory').'",'.
+            '"results":"'.&mt('Show results for keyword:').'"'.
+        '}}';
+}
+
+# gathers all files in the working directory except the ones that are already on screen
+sub prepareJsonData {
+    my ($uname, $udom, $pathToSkip) = @_;
+    my $path = "/home/httpd/html/priv/$udom/$uname/";
+
+    # maximum number of entries, to limit workload and required storage space
+    my $entries = 100;
+    my $firstfile = 1;
+    my $firstdir = 1;
+
+    my $json = '{"resources":[';
+    $json .= &prepareJsonData_rec($path, \$entries, \$firstfile, \$firstdir, $pathToSkip);
+    $json .= ']}';
+
+    # if the json string is invalid the whole search breaks.
+    # so we want to make sure that the string is valid in any case.
+    $json =~ s/,\s*,/,/g;
+    $json =~ s/\}\s*\{/\},\{/g;
+    $json =~ s/\}\s*,\s*\]/\}\]/g;
+    return $json;
 }
 
+# recursive part of json file gathering
+sub prepareJsonData_rec {
+    my ($path, $entries, $firstfile, $firstdir, $pathToSkip) = @_;
+    my $json;
+    my $skipThisFolder = $path =~ m/$pathToSkip\/$/?1:0;
+
+    my @dirs;
+    my @resources;
+    my @ignored = qw(bak log meta save . ..);
+
+# Phase 1: Gathering
+    opendir(DIR,$path);
+    my @files=sort {uc($a) cmp uc($b)} (readdir(DIR));
+    foreach my $filename (@files) {
+        next if ($filename eq '.DS_Store');
+
+        # gather all resources
+        if ($filename !~ /\./) {
+            # its a folder
+            push(@dirs, $filename);
+        } else {
+            # only push files we dont want to ignore
+            next if ($skipThisFolder);
+
+            $filename =~ /\.(\w+?)$/;
+            unless (grep /$1/, @ignored) {
+                push(@resources, $filename);
+            }
+        }
+    }
+    closedir(DIR);
+    # nothing to do here if both lists are empty
+    return unless ( @dirs || @resources );
+    
+# Phase 2: Working
+    $$firstfile = 1;
+
+    foreach (@dirs) {
+        $json .= '{"name":"'.$_.'",'.
+                  '"path":"'.$path.$_.'",'.
+                  '"title":"",'.
+                  '"status":"",'.
+                  '"cmtime":""},';
+    }
+
+    foreach (@resources) {
+        last if ($$entries < 1);
+        my $title = &getTitleString($path.$_);
+
+        my $privpath = $path.$_;
+        my $respath = $privpath;
+        $respath =~ s/httpd\/html\/priv\//httpd\/html\/res\//;
+
+        my $cmtime = (stat($privpath))[9];
+        my $rmtime = (stat($respath))[9];
+
+        unless ($$firstfile) { $json .= ','; } else { $$firstfile = 0; }
+
+        my $status = 'unpublished';
+
+        # if a resource is published, the published version (/html/res/filepath) gets its own modification time
+        # this is newer or equal then the version in your authoring space (/html/priv/filepath)
+        if ($rmtime >= $cmtime) {
+            # obsolete
+            if (&Apache::lonnet::metadata($respath, 'obsolete')) {
+                $status = 'obsolete';
+            }else{
+                $status = 'published';
+            }
+        } else {
+            $status = 'modified';
+        }
+
+        $json .= '{"name":"'.$_.'",'.
+                  '"path":"'.$path.'",'.
+                  '"title":"'.$title.'",'.
+                  '"status":"'.$status.'",'.
+                  '"cmtime":"'.&Apache::lonlocal::locallocaltime($cmtime).'"}';
+        $$entries--;
+    }
+
+    foreach(@dirs) {
+        next if ($$entries < 1);
+        $json .= ',';
+        $json .= &prepareJsonData_rec
+                    ($path.$_.'/', $entries, $firstfile, $firstdir, $pathToSkip);
+    }
+    return $json;
+}
 1;
 __END__
 
 
 =head1 NAME
 
-Apache::lonpubdir - Construction space directory lister
+Apache::lonpubdir - Authoring space directory lister
 
 =head1 SYNOPSIS
 
 Invoked (for various locations) by /etc/httpd/conf/srm.conf:
 
- <LocationMatch "^/\~.*/$">
+ <LocationMatch "^/+priv.*/$">
  PerlAccessHandler       Apache::loncacc
  SetHandler perl-script
  PerlHandler Apache::lonpubdir
@@ -805,38 +1158,21 @@ Output the header of the page.  This inc
     $str = getTitleString($fullname);
         $fullname - Fully qualified filename to check.
 
-=item putdirectory(r, base, here, dirname, modtime)
+=item putdirectory($r, $base, $here, $dirname, $modtime, $targetdir, $bombs,
+                   $numdir)
 
     Put out a directory table row:
     
-    putdirectory($r, $base, $here, $dirname, $modtime)
-        $r       - Apache request object.
-        $reqfile - File in request.
-        $here    - Where we are in directory tree.
-        $dirname - Name of directory special file.
-        $modtime - Encoded modification time.
-
-=item CategorizeFiles($location, $files)
-    
-    Categorize files in the directory.
-    For each file in a list of files in a file directory, 
-    the  file categorized as one of:
-        - directory  
-        - sequence
-        - problem 
-        - Other resource.
-
-    For each file the modification date is determined as well.
-    Returned is a list of sublists:
-        (directories, sequences, problems, other)
-    each of the sublists contains entries of the following form (sorted by filename):
-    (filename, typecode, lastmodtime)
-    
-        $list = CategorizeFiles($location, $files)
-        $location   - Directory in which the files live (relative to our execution)
-        $files      - list of files.
+        $r        - Apache request object.
+        $reqfile  - File in request.
+        $here     - Where we are in directory tree.
+        $dirname  - Name of directory special file.
+        $modtime  - Encoded modification time.
+        targetdir - Publication target directory.
+        bombs     - Reference to hash of URLs with runtime error messages.
+        numdir    - Reference to scalar used to track number of sub-directories
+                    in directory (used in form name for each "actions" dropdown).
 
 =back
 
 =cut
-