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

[www]

www		Sun Apr 25 21:20:17 2004 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Just an empty interface for parameter setting.
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.119 loncom/interface/londocs.pm:1.120
--- loncom/interface/londocs.pm:1.119	Sat Apr 24 19:03:49 2004
+++ loncom/interface/londocs.pm	Sun Apr 25 21:20:17 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.119 2004/04/24 23:03:49 www Exp $
+# $Id: londocs.pm,v 1.120 2004/04/26 01:20:17 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -447,18 +447,20 @@
     $renametitle=~s/\&quot\;/\\\"/g;
     my $line='<tr>';
 # Edit commands
+    my $folderpath;
+    if ($ENV{'form.folderpath'}) {
+	$folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'});
+	# $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');
+    }
     if ($allowed) {
 	my %lt=&Apache::lonlocal::texthash(
                 'up' => 'Move Up',
 		'dw' => 'Move Down',
 		'rm' => 'Remove',
 		'rn' => 'Rename');
-	my $folderpath;
-	if ($ENV{'form.folderpath'}) {
-	    $folderpath=&Apache::lonnet::escape($ENV{'form.folderpath'});
-	   # $htmlfoldername=&HTML::Entities::encode($ENV{'form.foldername'},'<>&"');
-	}
 	$line.=(<<END);
+<form name="entry_$index" action="/adm/coursedocs">
+<input type="hidden" name="folderpath" value="$folderpath" />
 <td><table border='0' cellspacing='2' cellpadding='0'>
 <tr><td bgcolor="#DDDDDD">
 <a href='/adm/coursedocs?cmd=up_$index&folderpath=$folderpath'>
@@ -501,26 +503,36 @@
 	$url=&Apache::lonnet::clutter($url);
 	$url.=(($url=~/\?/)?'&':'?').'symb='.&Apache::lonnet::escape($symb);
     }
-    my $parameterset='';
+    my $parameterset='&nbsp;';
     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='';
+	$parameterset=&mt('Randomly Pick: ').
+	    '<input type="text" size="4" name="randpick_$index" />';
     }
     $line.='<td bgcolor="#FFFFBB"><a href="'.$url.'"><img src="'.$icon.
 	'" border="0"></a></td>'.
         "<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');
+    if (($allowed) && ($folder!~/^supplemental/)) {
+ 	my %lt=&Apache::lonlocal::texthash(
+ 			      'hd' => 'Hidden',
+ 			      'ec' => 'URL hidden',
+ 			      'sp' => 'Store Parameters');
+	$line.=(<<ENDPARMS);
+<td bgcolor="#BBBBFF"><font size='-2'>
+<input type="checkbox" name="hidprs_$index" /> $lt{'hd'}</td>
+<td bgcolor="#BBBBFF"><font size='-2'>
+<input type="checkbox" name="encprs_$index" /> $lt{'ec'}</td>
+<td bgcolor="#BBBBFF"><font size="-2">$parameterset</font></td>
+<td bgcolor="#BBBBFF"><font size='-2'>
+<a href='javascript:alert("Would be storing $index")'>$lt{'sp'}</a>
+</font></td>
+ENDPARMS
     }
-    $line.="</tr>";
+    $line.="</form></tr>";
     return $line;
 }