[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[www]

www		Sat Apr 24 19:03:49 2004 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Saving my work till I can get DOCS-courses to work again.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.118 loncom/interface/londocs.pm:1.119
--- loncom/interface/londocs.pm:1.118	Sat Apr 24 01:20:54 2004
+++ loncom/interface/londocs.pm	Sat Apr 24 19:03:49 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.118 2004/04/24 05:20:54 albertel Exp $
+# $Id: londocs.pm,v 1.119 2004/04/24 23:03:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -448,7 +448,8 @@
     my $line='<tr>';
 # Edit commands
     if ($allowed) {
-	my %lt=('up' => 'Move Up',
+	my %lt=&Apache::lonlocal::texthash(
+                'up' => 'Move Up',
 		'dw' => 'Move Down',
 		'rm' => 'Remove',
 		'rn' => 'Rename');
@@ -500,16 +501,26 @@
 	$url=&Apache::lonnet::clutter($url);
 	$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
     }
+    my $parameterset='';
     if ($isfolder) {
 	my $foldername=&Apache::lonnet::escape($foldertitle);
 	my $folderpath=$ENV{'form.folderpath'};
 	if ($folderpath) { $folderpath.='&' };
 	$folderpath.=$folderarg.'&'.$foldername;
 	$url.='folderpath='.&Apache::lonnet::escape($folderpath);
+	$parameterset='';
     }
     $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
 	'" border="0"></a></td>'.
-        "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td></tr>";
+        "<td bgcolor='#FFFFBB'><a href='$url'>$title</a></td>";
+    if ($allowed) {
+	my %lt=&Apache::lonlocal::texthash(
+			      'hd' => 'Hidden',
+			      'ec' => 'URL hidden',
+			      'rp' => 'Randomly Pick Number of Resources',
+			      'sp' => 'Store Parameters');
+    }
+    $line.="</tr>";
     return $line;
 }