--- loncom/interface/londocs.pm	2007/07/14 00:10:13	1.292
+++ loncom/interface/londocs.pm	2007/08/03 21:50:54	1.295
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.292 2007/07/14 00:10:13 albertel Exp $
+# $Id: londocs.pm,v 1.295 2007/08/03 21:50:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1304,7 +1304,6 @@ sub update_parameter {
     if ($env{'form.'.$which.'_'.$idx}) {
 	my $value = ($which eq 'randompick') ? $env{'form.'.$which.'_'.$idx}
 	                                     : 'yes';
-	&Apache::lonnet::logthis("val $value");
 	&LONCAPA::map::storeparameter($idx, 'parameter_'.$which, $value,
 				      $parameter_type{$which});
 	&remember_parms($idx,$which,'set',$value);
@@ -1692,7 +1691,6 @@ sub entryline {
     my $line='<tr>';
     my ($form_start,$form_end);
 # Edit commands
-    my $container;
     my ($container, $type, $esc_path, $path, $symb);
     if ($env{'form.folderpath'}) {
 	$type = 'folder';
@@ -2663,6 +2661,7 @@ sub handler {
                 'bull' => 'Bulletin Board',
                 'mypi' => 'My Personal Info',
                 'grpo' => 'Group Files',
+                'rost' => 'Course Roster',
 		'abou' => 'About User',
                 'imsf' => 'Import IMS package',
                 'file' =>  'File',
@@ -2733,7 +2732,8 @@ ENDCOURSEVERIFY
 		     &mt('Editing the Table of Contents for your '.$type)));
     }
 # --------------------------------------------------------- Standard documents
-    $r->print('<table class="LC_docs_documents">');#border=2 cellspacing=4 cellpadding=4>');
+    $r->print('<table class="LC_docs_documents">');
+
     if (($standard) && ($allowed) && (!$forcesupplement)) {
 	$r->print('<tr><td class="LC_docs_document">');
 #  '<h2>'.&mt('Main Course Documents').
@@ -2742,6 +2742,8 @@ ENDCOURSEVERIFY
        if ($folder eq '' || $folder eq 'supplemental') {
            $folder='default';
 	   $env{'form.folderpath'}='default&'.&escape(&mt('Main '.$type.' Documents'));
+           $uploadtag = '<input type="hidden" name="folderpath" value="'.
+	       &HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />';
        }
        my $postexec='';
        if ($folder eq 'default') {
@@ -2951,6 +2953,15 @@ value="Group Files=/adm/$coursedom/$cour
 $help{'Group Files'}
 </span>
 </form>
+<br /><form action="/adm/coursedocs" method="post" name="newroster">
+$uploadtag
+<input type="hidden" name="importdetail" 
+value="Course Roster=/adm/viewclasslist" />
+<span class="LC_nobreak">
+<input name="newroster" type="submit" value="$lt{'rost'}" />
+$help{'Course Roster'}
+</span>
+</form>
 ENDFORM
        }
        if ($env{'form.pagepath'}) {