--- loncom/publisher/lonpubdir.pm	2016/01/06 16:44:35	1.167
+++ loncom/publisher/lonpubdir.pm	2023/11/28 22:28:05	1.182
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Authoring Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.167 2016/01/06 16:44:35 damieng Exp $
+# $Id: lonpubdir.pm,v 1.182 2023/11/28 22:28:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -48,7 +48,7 @@ sub handler {
 
     # Validate access to the construction space and get username:domain.
 
-    my ($uname,$udom)=&Apache::lonnet::constructaccess($r->uri); 
+    my ($uname,$udom)=&Apache::lonnet::constructaccess($r->uri);
     unless (($uname) && ($udom)) {
         return HTTP_NOT_ACCEPTABLE;
     }
@@ -67,9 +67,7 @@ sub handler {
             $r->send_http_header;
 
             &Apache::lonhtmlcommon::clear_breadcrumbs();
-            my $js = '<script type="text/javascript" 
-                        src="/res/adm/includes/file_upload.js"></script>';
-            $r->print(&Apache::loncommon::start_page('Authoring Space', $js).
+            $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>'.
@@ -82,21 +80,33 @@ sub handler {
         }
     }
     $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 $cstr = 'author';
+    my ($crsauthor,$crstype);
+    if ($env{'request.course.id'}) {
+        my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+        my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+        if ($thisdisfn =~ m{^/\Q$cdom/$cnum\E}) {
+            $crsauthor = 1;
+            $cstr = 'course';
+            $crstype = &Apache::loncommon::course_type();
+        }
+    }
+
     my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom);
 
     my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,
                                 "$londocroot/priv/$udom/$uname"); # expressed in kB
     my $disk_quota = &Apache::loncommon::get_user_quota($uname,$udom,
-                                'author'); # expressed in MB
-
+                                                 $cstr,$crstype); # expressed in MB
     # Put out the start of page.
-    &startpage($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota); 
+
+    &startpage($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota, $crsauthor);
 
     if (!-d $fn) {
         if (-e $fn) {
@@ -118,12 +128,12 @@ sub handler {
     }
 
     # Put out actions for directory, browse/upload + new file page.
-    &dircontrols($r,$uname,$udom,$thisdisfn, $current_disk_usage, $disk_quota);
+    &dircontrols($r,$uname,$udom,$thisdisfn,$current_disk_usage,$disk_quota,$crsauthor);
     &resourceactions($r,$uname,$udom,$thisdisfn); # Put out form used for printing/deletion etc.
 
     my $numdir = 0;
     my $numres = 0;
-  
+
     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>');
@@ -182,7 +192,7 @@ sub handler {
                             order => 'ascending',
                             text  => &mt('Size').' (kB)',
                         },
-    ); 
+    );
 
     # Print column headers
     my $output = '';
@@ -227,18 +237,23 @@ my $result = "<script type=\"text/javasc
         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 ($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, 
+            ($status, $pubstatus) = &getStatus($resdir, $targetdir, $cstr_dir,
                 $filename, $linkfilename, $cmtime, $meta_same);
-            ($fulltitle, $title) = &getTitle($resdir, $targetdir, $filename, 
-                                        $linkfilename, $meta_same, \%bombs);
+            if (($crsauthor) && ($extension eq 'rights')) {
+                $title = &getTitleString($targetdir.'/'.$filename);
+                $fulltitle = $title;
+            } else {
+                ($fulltitle, $title) = &getTitle($resdir, $targetdir, $filename,
+                                                 $linkfilename, $meta_same, \%bombs);
+            }
         } else {
             ($status, $pubstatus) = ('','');
             ($fulltitle, $title) = ('','');
@@ -257,7 +272,7 @@ my $result = "<script type=\"text/javasc
             "linkfilename"      => $linkfilename,
         }
     }
-   
+
     my @sorted_files;
     # Sorting by something other than "Name".  Name is the secondary key.
     if ($sortby =~ m{cmtime|size}) {    # Numeric fields
@@ -291,7 +306,7 @@ my $result = "<script type=\"text/javasc
         }
 
     # Sort by "Name" is the default
-    } else { 
+    } else {
         if ($sortorder eq "rev") {
             @sorted_files = sort {uc($b) cmp uc($a)} (keys(%{$filehash}));
         } else {
@@ -300,19 +315,22 @@ my $result = "<script type=\"text/javasc
     }
 
     # Print the sorted resources
+    my %editors = &Apache::loncommon::permitted_editors();
     foreach my $filename (@sorted_files) {
         if ($filehash->{$filename}->{"cmode"}&$dirptr) {        # Directories
-            &putdirectory($r, $thisdisfn, $linkdir, $filename, 
-                $filehash->{$filename}->{"cmtime"}, 
+            &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, 
+                $targetdir, $linkdir, $crsauthor,
+                $filehash->{$filename}->{"cmtime"},
+                $filehash->{$filename}->{"size"}, \$numres,
                 $filehash->{$filename}->{"linkfilename"},
                 $filehash->{$filename}->{"fulltitle"},
                 $filehash->{$filename}->{"status"},
-                $filehash->{$filename}->{"pubstatus"});
+                $filehash->{$filename}->{"pubstatus"},
+                \%editors);
         }
     }
 
@@ -332,13 +350,13 @@ my $result = "<script type=\"text/javasc
            .'</div>'
            .&Apache::loncommon::end_page()
   );
-  return OK;  
+  return OK;
 }
 
 
 
 #   Output the header of the page.  This includes:
-#   - The HTML header 
+#   - The HTML header
 #   - The H1/H3  stuff which includes the directory.
 #
 #     startpage($r, $uame, $udom, $thisdisfn, $current_disk_usage, $disk_quota);
@@ -348,39 +366,52 @@ my $result = "<script type=\"text/javasc
 #      $thisdisfn - Displayable version of the filename.
 #      $current_disk_usage - User's current disk usage (in kB).
 #      $disk_quota - Disk quota for user's authoring space (in MB).
+#      $crstype - Course type, if this is for "course author"
 
 sub startpage {
-    my ($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota) = @_;
+    my ($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota, $crsauthor) = @_;
     &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;
 
     my $formaction='/priv'.$thisdisfn.'/';
     $formaction=~s|/+|/|g;
-    &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
+
+    my $title;
+    if ($crsauthor) {
+        $title = 'Course Authoring';
+    } else {
+        $title = 'Authoring Space';
+        &Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
+    }
 
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({
-        'text'  => 'Authoring Space',
+        'text'  => $title,
         'href'  => &Apache::loncommon::authorspace($formaction),
     });
-    # breadcrumbs (and tools) will be created 
+    # breadcrumbs (and tools) will be created
     # in start_page->bodytag->innerregister
 
     $env{'request.noversionuri'}=$formaction;
-    my $js = '<script type="text/javascript" 
+    my $js = '<script type="text/javascript"
                 src="/res/adm/includes/file_upload.js"></script>';
-    $r->print(&Apache::loncommon::start_page('Authoring Space', $js));
+    $r->print(&Apache::loncommon::start_page($title, $js));
 
     $disk_quota = 1024 * $disk_quota; # convert from MB to kB
 
+    my $headertext = &mt('Directory');
+    if ($crsauthor) {
+        $headertext = &mt('Course Authoring Directory');
+    }
     $r->print(&Apache::loncommon::head_subbox(
                      '<div style="float:right;padding-top:0;margin-top;0">'
-                    .&Apache::lonhtmlcommon::display_usage($current_disk_usage,$disk_quota)
+                    .&Apache::lonhtmlcommon::display_usage($current_disk_usage,
+                                                           $disk_quota,'authoring')
                     .'</div>'
-                    .&Apache::loncommon::CSTR_pageheader()));
+                    .&Apache::loncommon::CSTR_pageheader('','',$headertext)));
 
     my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);
-    my $doctitle = 'LON-CAPA '.&mt('Authoring Space');
+    my $doctitle = 'LON-CAPA '.&mt($title);
     my $newname = &mt('New Name');
     my $pubdirscript=(<<ENDPUBDIRSCRIPT);
 <script type="text/javascript">
@@ -391,31 +422,12 @@ parent.lastknownpriv='/priv$esc_thisdisf
 
 // Confirmation dialogues
 
-    function currdiract(theform) {
-        if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'publish') {
-            document.publishdir.filename.value = theform.filename.value;
-	    document.publishdir.submit();
-        }
-        if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'editmeta') {
-            top.location=theform.filename.value+'default.meta'
-        }
-        if (theform.dirtask.options[theform.dirtask.selectedIndex].value == 'printdir' ) {
-            document.printdir.postdata.value=theform.filename.value
-            document.printdir.submit();
-        }
-        if (theform.dirtask.options[theform.dirtask.selectedIndex].value == "delete") {
-              var delform = document.delresource
-              delform.filename.value = theform.filename.value
-              delform.submit()
-        }
-    }
-  
     function checkUpload(theform) {
         if (theform.file == '') {
             alert("Please use 'Browse..' to choose a file first, before uploading")
-            return 
+            return
         }
-        theform.submit()  
+        theform.submit()
     }
 
     function SetPubDir(theform,printForm) {
@@ -493,19 +505,16 @@ ENDPUBDIRSCRIPT
 }
 
 sub dircontrols {
-    my ($r,$uname,$udom,$thisdisfn, $current_disk_usage, $disk_quota) = @_;
+    my ($r,$uname,$udom,$thisdisfn,$current_disk_usage,$disk_quota,$crsauthor) = @_;
     my %lt=&Apache::lonlocal::texthash(
                                        cnpd => 'Cannot publish directory',
                                        cnrd => 'Cannot retrieve directory',
                                        mcdi => 'Must create new subdirectory inside a directory',
                                        pubr => 'Publish this Resource',
-                                       pubd => 'Publish this Directory',
-                                       dedr => 'Delete Directory',
                                        rtrv => 'Retrieve Old Version',
                                        list => 'List Directory',
-                                       uplo => 'Upload file',  
+                                       uplo => 'Upload file',
                                        dele => 'Delete',
-                                       edit => 'Edit Metadata', 
                                        sela => 'Select Action',
                                        nfil => 'New file',
                                        nhtm => 'New HTML file',
@@ -522,58 +531,80 @@ sub dircontrols {
                                        copy => 'Copy current file to',
                                        type => 'Type Name Here',
                                        go   => 'Go',
-                                       prnt => 'Print contents of directory',
-                                       crea => 'Create a new directory or LON-CAPA document',
-                                       qs   => 'Quick Search',
+                                       crea => 'Create a new subdirectory or document',
+                                       qs   => 'Quick name 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',
+                                       shcu => 'Shortcuts',
                                       );
+    my %js_lt = &Apache::lonlocal::texthash(
+                                       nanf => 'Name of New File',
+                                       nans => 'Name of New Subdirectory',
+                                       psfn => 'Please specify file name',
+    );
+    &js_escape(\%js_lt);
     my $mytype = $lt{'type'}; # avoid conflict with " and ' in javascript
     # Calculate free space in bytes.
     # $disk_quota is in MB and $current_disk_usage is in kB
     my $free_space = 1024 * ((1024 * $disk_quota) - $current_disk_usage);
     $r->printf(<<END,&Apache::loncommon::help_open_topic('Quicksearch'));
 <div class="LC_columnSection">
-  <div>
-    <form name="curractions" method="post" action="">
-      <fieldset>
-        <legend>$lt{'acti'}</legend>
-        <select name="dirtask" onchange="currdiract(this.form)">
-            <option>$lt{'sela'}</option>
-            <option value="publish">$lt{'pubd'}</option>
-            <option value="editmeta">$lt{'edit'}</option>
-            <option value="printdir">$lt{'prnt'}</option>
-            <option value="delete">$lt{'dedr'}</option>
-        </select>
-        <input type="hidden" name="filename" value="/priv$thisdisfn/" />
-      </fieldset>
-    </form>
-    <form name="publishdir" method="post" action="/adm/publish" target="_parent">
-      <input type="hidden" name="pubrec" value="" />
-      <input type="hidden" name="filename" value="" />
-    </form>
-    <form name="printdir" method="post" action="/adm/printout" target="_parent">
-      <input type="hidden" name="postdata" value="" />
-    </form>
+    <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>
-    <form name="upublisher" enctype="multipart/form-data" method="post" action="/adm/upload" target="_parent">
+END
+    my %fileoptions = (
+                         none => "$lt{'sela'}:",
+                         newfile => "$lt{'nfil'}:",
+                         newhtmlfile => "$lt{'nhtm'}:",
+                         newproblemfile => "$lt{'nprb'}:",
+                         newdir => "$lt{'nsub'}:",
+                      );
+    $fileoptions{'select_form_order'} = ['none','newfile','newhtmlfile','newproblemfile'];
+    if ($crsauthor) {
+        push(@{$fileoptions{'select_form_order'}},'newdir');
+    } else {
+        my %extraoptions = (
+                              newpagefile => "$lt{'npag'}:",
+                              newsequencefile => "$lt{'nseq'}:",
+                              newrightsfile => "$lt{'ncrf'}:",
+                              newstyfile => "$lt{'nsty'}:",
+                              newtaskfile => "$lt{'nbt'}:",
+                              newlibraryfile => "$lt{'nlib'}:",
+        );
+        %fileoptions = (%fileoptions,%extraoptions);
+        push(@{$fileoptions{'select_form_order'}},('newpagefile','newsequencefile',
+                                                   'newrightsfile','newstyfile',
+                                                   'newtaskfile','newlibraryfile',
+                                                   'newdir'));
+    }
+    my $selectbox = &Apache::loncommon::select_form('none','action',\%fileoptions);
+    $r->print(<<END);
+  <div style="padding-bottom: 2px">
+    <form name="upublisher" enctype="multipart/form-data" method="post" action="/adm/upload">
       <fieldset>
         <legend>$lt{'updc'}</legend>
         <input type="hidden" name="filename" value="/priv$thisdisfn/" />
-        <input type="file" name="upfile" class="flUpload testclass" size="20" />
-        <input type="hidden" id="free_space" value=$free_space />
+        <input type="file" name="upfile" class="LC_flUpload" />
+        <input type="hidden" id="LC_free_space" value="$free_space" />
         <input type="button" value="$lt{'uplo'}"  onclick="checkUpload(this.form)" />
       </fieldset>
     </form>
   </div>
 
   <div>
-    <form name="fileaction" method="post" action="/adm/cfile" target="_parent">
+    <form name="fileaction" method="post" action="/adm/cfile">
       <fieldset>
               <legend>$lt{'crea'}</legend>
 	      <span class="LC_nobreak">
@@ -588,53 +619,51 @@ sub dircontrols {
                         }
                     }
                   </script>
-		  <select name="action">
-		    <option value="none">$lt{'sela'}</option>
-		    <option value="newfile">$lt{'nfil'}:</option>
-		    <option value="newhtmlfile">$lt{'nhtm'}:</option>
-		    <option value="newproblemfile">$lt{'nprb'}:</option>
-                    <option value="newpagefile">$lt{'npag'}:</option>
-                    <option value="newsequencefile">$lt{'nseq'}:</option>
-                    <option value="newrightsfile">$lt{'ncrf'}:</option>
-                    <option value="newstyfile">$lt{'nsty'}:</option>
-                    <option value="newtaskfile">$lt{'nbt'}:</option>
-                    <option value="newlibraryfile">$lt{'nlib'}:</option>
-	            <option value="newdir">$lt{'nsub'}:</option>
-		  </select>&nbsp;<input type="text" name="newfilename" placeholder="$lt{'type'}" value="" onfocus="if (this.value == is.empty()) this.value=''" />&nbsp;<input type="button" value="Go" onclick="validate_go();" />
+		  $selectbox&nbsp;<input type="text" id="newnameid" name="newfilename" placeholder="$lt{'type'}" value="" onfocus="if (this.value == is.empty()) this.value=''" />&nbsp;<input type="button" value="Go" onclick="validate_go();" />
 		<br />
-                <span>Quickactions:
+                <span>$lt{'shcu'}:
                  <input type="hidden" name="mode"/>
                  <a href="javascript:void(0)" onclick="javascript:validate_action('blank')">
-		    <img src="/adm/lonIcons/unknown.gif" title="Create blank problem file"></a>
+		    <img src="/adm/lonIcons/unknown.gif" title="Create blank problem file" alt="file icon" /></a>
                  <a href="javascript:void(0)" onclick="javascript:validate_action('problemtempl')"> 
-                    <img src="/adm/lonIcons/problem.gif" title="Create new problem from template"></a>
+                    <img src="/adm/lonIcons/problem.gif" title="Create new problem from template" alt="problem icon" /></a>
                  <a href="javascript:void(0)" onclick="javascript:validate_action('blankhtml')"> 
-                    <img src="/adm/lonIcons/html.gif" title="Create new blank HTML file"></a>
+                    <img src="/adm/lonIcons/html.gif" title="Create new blank HTML file" alt="web page icon" /></a>
                  <a href="javascript:void(0)" onclick="javascript:validate_action('folder')"> 
-		    <img src="/adm/lonIcons/navmap.folder.closed.gif" title="Create new subdirectory"></a>
+		    <img src="/adm/lonIcons/navmap.folder.closed.gif" title="Create new subdirectory" alt="folder icon" /></a>
                 </span>
                  <script type="text/javascript">
                      function validate_action(action){
-
-                         if (document.getElementsByName(\'newfilename\')[0].value != \'\'){
-                             if (action == "blank") {
-								 document.fileaction.action.value=\'newproblemfile\';
-								 document.fileaction.mode.value=\'blank\';
-							 } else if (action == "problemtempl") {
-								 document.fileaction.action.value=\'newproblemfile\';
-                                 validate_go();
-                             } else if (action == "blankhtml") {
-                                 document.fileaction.action.value=\'newhtmlfile\';
-                                 validate_go();
-                             } else if (action == "folder") {
-                                 document.fileaction.action.value=\'newdir\';
-                                 document.fileaction.mode.value=\'folder\';
+                         if (document.getElementById('newnameid')) {
+                             if (document.getElementById('newnameid').value == '') {
+                                 var newname;
+                                 var prompttext = "$js_lt{'nanf'}";
+                                 if (action == 'folder') {
+                                     prompttext = "$js_lt{'nans'}";
+                                 }
+                                 newname=prompt(prompttext);
+                                 if (newname != '') {
+                                     document.getElementById('newnameid').value = newname;
+                                 }
+                             }
+                             if (document.getElementById('newnameid').value != '') {
+                                 if (action == 'blank') {
+				     document.fileaction.action.value='newproblemfile';
+				     document.fileaction.mode.value='blank';
+			         } else if (action == 'problemtempl') {
+				     document.fileaction.action.value='newproblemfile';
+                                     validate_go();
+                                 } else if (action == 'blankhtml') {
+                                     document.fileaction.action.value='newhtmlfile';
+                                     validate_go();
+                                 } else if (action == 'folder') {
+                                     document.fileaction.action.value='newdir';
+                                     document.fileaction.mode.value='folder';
+                                 }
+                                 fileaction.submit();
+                             } else {
+                                 alert("$js_lt{'psfn'}");
                              }
-                             fileaction.submit();
-                         } else {
-                             alert(\'Please specify file name.\');
-                             // TODO: ask for filename? if so, do some refactoring
-
                          }
                      }
                  </script>
@@ -642,18 +671,6 @@ sub dircontrols {
       </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
 }
@@ -661,26 +678,26 @@ END
 sub resourceactions {
     my ($r,$uname,$udom,$thisdisfn) = @_;
     $r->print(<<END);
-       <form name="moveresource" action="/adm/cfile" target="_parent" method="post">
+       <form name="moveresource" action="/adm/cfile" method="post">
          <input type="hidden" name="filename" value="" />
          <input type="hidden" name="newfilename" value="" />
          <input type="hidden" name="action" value="" />
        </form>
-       <form name="delresource" action="/adm/cfile" target="_parent" method="post">
+       <form name="delresource" action="/adm/cfile" method="post">
          <input type="hidden" name="filename" value="" />
          <input type="hidden" name="action" value="delete" />
        </form>
-       <form name="pubresource" action="/adm/publish" target="_parent" method="post">
+       <form name="pubresource" action="/adm/publish" method="post">
          <input type="hidden" name="filename" value="" />
          <input type="hidden" name="makeobsolete" value="0" />
        </form>
-       <form name="printresource" action="/adm/printout" target="_parent" method="post">
+       <form name="printresource" action="/adm/printout" method="post">
            <input type="hidden" name="postdata" value="" />
        </form>
-       <form name="retrieveres" action="/adm/retrieve" target="_parent" method="post">
+       <form name="retrieveres" action="/adm/retrieve" method="post">
            <input type="hidden" name="filename" value="" />
        </form>
-       <form name="cleanup" action="/adm/cleanup" target="_parent" method="post">
+       <form name="cleanup" action="/adm/cleanup" method="post">
            <input type="hidden" name="filename" value="" />
        </form>
 END
@@ -731,9 +748,9 @@ sub putdirectory {
     my ($r, $reqfile, $here, $dirname, $modtime, $targetdir, $bombs, $numdir) = @_;
 
 # construct the display filename: the directory name unless ..:
-   
+
     my $actionitem;
- 
+
     my $disfilename = $dirname;
 # Don't display directory itself, and there is no way up from root directory
     unless ((($dirname eq '..') && ($reqfile=~/^\/[^\/]+\/[^\/]+$/)) || ($dirname eq '.')) {
@@ -756,9 +773,9 @@ sub putdirectory {
             $actionitem = &mt('Go to ...');
             $disfilename = '<i>'.&mt('Parent Directory').'</i>';
         } else {
-            $actionitem = 
+            $actionitem =
                     '<form name="dirselect_'.$$numdir.
-                    '" action="/adm/publish" target="_parent">'.
+                    '" action="/adm/publish">'.
                     '<select name="diraction" onchange="SetPubDir(this.form,document)">'.
                       '<option selected="selected">'.&mt('Select action').'</option>'.
                       '<option value="open">'.&mt('Open').'</option>'.
@@ -777,7 +794,7 @@ sub putdirectory {
 		  '<td><img src="'.
 		  $Apache::lonnet::perlvar{'lonIconsURL'}.'/navmap.folder.closed.gif" alt="folder" /></td>'.
 		  '<td>'.$actionitem.'</td>'.
-		  '<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.
+		  '<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/">'.
 		  $disfilename.'</a></span></td>'.
 		        '<td colspan="3">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($targetdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
 	if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {
@@ -810,7 +827,7 @@ sub getTitle {
                 &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);
@@ -829,14 +846,13 @@ sub isMetaSame {
     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) 
+            $cstr_dir.'/'.$filename.'.meta') && $meta_rmtime < $meta_cmtime)
         ? 0 : 1;
 }
-    
 
-sub getStatus {    
-    my ($resdir, $targetdir, $cstr_dir, $filename,  
-            $linkfilename, $cmtime, $meta_same) = @_;
+sub getStatus {
+    my ($resdir, $targetdir, $cstr_dir, $filename,
+        $linkfilename, $crsauthor, $cmtime, $meta_same) = @_;
     my $pubstatus = 'unpublished';
     my $status = &mt('Unpublished');
 
@@ -862,7 +878,9 @@ sub getStatus {
         );
         $rights_status .=
             $lt_SourceRight{&getSourceRightString($targetdir.'/'.$filename)};
-
+        if (($crsauthor) && ($filename =~ /\.rights$/)) {
+            $rights_status =~ s/,\s+$//;
+        }
 	if ($same) {
 	    if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
                 $pubstatus = 'obsolete';
@@ -880,17 +898,21 @@ sub getStatus {
             $pubstatus = 'modified';
 	    $status=&mt('Modified').
 		'<br />'. $rights_status;
-	    if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
-		$status.='<br />'.
-                         &Apache::loncommon::modal_link(
-                             '/adm/diff?filename='.$linkfilename.'&amp;versiontwo=priv',
-                             &mt('Diffs'),600,500);
+            unless (($crsauthor) && ($filename =~ /\.rights$/)) {
+	        if (&Apache::loncommon::fileembstyle(($filename=~/\.(\w+)$/)) eq 'ssi') {
+		    $status.='<br />'.
+                             &Apache::loncommon::modal_link(
+                                 '/adm/diff?filename='.$linkfilename.'&amp;versiontwo=priv',
+                                 &mt('Diffs'),600,500);
+	        }
 	    }
-	} 
+	}
 
-	$status.="\n".'<br />'.
-             &Apache::loncommon::modal_link(
-                 '/adm/retrieve?filename='.$linkfilename.'&amp;inhibitmenu=yes&amp;add_modal=yes',&mt('Retrieve'),600,500);
+        unless (($crsauthor) && ($filename =~ /\.rights$/)) {
+	    $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);
@@ -901,41 +923,49 @@ sub getStatus {
 #   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) = @_;
+    my ($r, $udom, $uname, $filename, $thisdisfn, $resdir,
+        $targetdir, $linkdir, $crsauthor, $cmtime, $size,
+        $numres, $linkfilename, $title, $status, $pubstatus,
+        $editors) = @_;
     &Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename);
 
     my $editlink='';
     my $editlink2='';
-    if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) {
+    if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty|txt|css|js)$/) {
 	$editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&amp;problemmode=edit">'.&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 ($editors->{'xml'}) { 
+	    $editlink=' (<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&amp;problemmode=editxml">'.&mt('EditXML').'</a>)';
+        }
+        if ($editors->{'edit'}) {
+	    $editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?editmode=Edit&amp;problemmode=edit">'.&mt('Edit').'</a>)';
+        }
     }
     if ($filename=~/\.(xml|html|htm|xhtml|xhtm)$/ || $filename=~/$LONCAPA::assess_re/) {
-        if ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9) {
+        if (($editors->{'daxe'}) &&
+            ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9)) {
             my $daxeurl = '/daxepage'.$linkdir.'/'.$filename;
-            $editlink .= ' (<a href="'.$daxeurl.'" target="_blank">Daxe</a>)';
+            $editlink .= ' (<a href="'.$daxeurl.'">Daxe</a>)';
         }
     }
     if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library|xml|html|htm|xhtml|xhtm|sty)$/) {
-	$editlink.=' (<a href="/adm/cleanup?filename='.$linkfilename.'" target="_parent">'.&mt('Clean Up').')</a>';
+	$editlink.=' (<a href="/adm/cleanup?filename='.$linkfilename.'">'.&mt('Clean Up').')</a>';
     }
     if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
-	$editlink=' (<a target="_parent" href="/adm/cfile?decompress='.$linkfilename.'">'.&mt('Decompress').'</a>)';
+	$editlink=' (<a 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);
+    unless (($crsauthor) && ($filename=~ /\.rights$/)) {
+        &create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
+    }
     $r->print(&Apache::loncommon::start_data_table_row().
 	      '<td>'.($filename=~/[\#\~]$/?'&nbsp;':
 		      '<img src="'.&Apache::loncommon::icon($filename).'" alt="" />').'</td>'.
               '<td>'.$pub_select.'</td>'.
 	      '<td><span class="LC_filename">'.
-	      '<a href="'.$linkdir.'/'.$filename.'" target="_parent">'.
+	      '<a href="'.$linkdir.'/'.$filename.'">'.
                $filename.'</a></span>'.$editlink2.$editlink.
 	      '</td>'.
 	      '<td>'.$title.'</td>'.
@@ -956,7 +986,7 @@ sub create_pubselect {
 <option>'.&mt('Select action').'</option>'.
 '<option value="copy">'.&mt('Copy').'</option>';
     if ($pubstatus eq 'obsolete' || $pubstatus eq 'unpublished') {
-        $$pub_select .= 
+        $$pub_select .=
 '<option value="rename">'.&mt('Rename').'</option>'.
 '<option value="move">'.&mt('Move').'</option>'.
 '<option value="delete">'.&mt('Delete').'</option>';
@@ -995,7 +1025,7 @@ sub check_for_versions {
     opendir(DIR,$resdir);
     while (my $filename=readdir(DIR)) {
         if ($filename=~/^\Q$main\E\.(\d+)\.\Q$suffix\E$/) {
-            $versions ++;        
+            $versions ++;
         }
     }
     closedir(DIR);
@@ -1003,7 +1033,7 @@ sub check_for_versions {
 }
 
 sub prepareJsonTranslations {
-    my $json = 
+    my $json =
         '{"translations":{'.
             '"edit":"'.&mt('Edit').'",'.
             '"editxml":"'.&mt('EditXML').'",'.
@@ -1074,7 +1104,7 @@ sub prepareJsonData_rec {
     closedir(DIR);
     # nothing to do here if both lists are empty
     return unless ( @dirs || @resources );
-    
+
 # Phase 2: Working
     $$firstfile = 1;
 
@@ -1196,9 +1226,9 @@ run through list of files and attempt to
 =item startpage($r, $uame, $udom, $thisdisfn)
 
 Output the header of the page.  This includes:
- - The HTML header 
+ - The HTML header
  - The H1/H3  stuff which includes the directory.
- 
+
     startpage($r, $uame, $udom, $thisdisfn);
         $r     - The apache request object.
         $uname - User name.
@@ -1211,7 +1241,7 @@ Output the header of the page.  This inc
     Without the latter substitution, it's impossible to examine metadata for
     untitled resources.  Resources may be legitimately untitled, to prevent
     searches from locating them.
-    
+
     $str = getTitleString($fullname);
         $fullname - Fully qualified filename to check.
 
@@ -1219,7 +1249,7 @@ Output the header of the page.  This inc
                    $numdir)
 
     Put out a directory table row:
-    
+
         $r        - Apache request object.
         $reqfile  - File in request.
         $here     - Where we are in directory tree.