--- loncom/interface/londocs.pm	2002/08/26 12:44:45	1.10
+++ loncom/interface/londocs.pm	2002/08/31 00:43:12	1.14
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.10 2002/08/26 12:44:45 www Exp $
+# $Id: londocs.pm,v 1.14 2002/08/31 00:43:12 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -112,6 +112,28 @@ sub editor {
 # Store the changed version
 		&storemap($coursenum,$coursedom,$folder.'.sequence');
             }
+# Group import/search
+	    if ($ENV{'form.importdetail'}) {
+               foreach (split(/\&/,$ENV{'form.importdetail'})) {
+                  if (defined($_)) {
+	             my ($name,$url)=split(/\=/,$_);
+                     $name=&Apache::lonnet::unescape($name);
+                     $url=&Apache::lonnet::unescape($url);
+                     if ($url) {
+	                my $idx=$#Apache::lonratedt::resources+1;
+                        $Apache::lonratedt::order
+                           [$#Apache::lonratedt::order+1]=$idx;
+                        my $ext='false';
+                        if ($url=~/^http\:\/\//) { $ext='true'; }
+                        $url=~s/\:/\:/g;
+                        $Apache::lonratedt::resources[$idx]=
+                           $name.':'.$url.':'.$ext.':normal:res';
+	             }
+                 }
+	      }
+# Store the changed version
+		&storemap($coursenum,$coursedom,$folder.'.sequence');
+            }
 	}
 # ---------------------------------------------------------------- Print screen
         my $idx=0;
@@ -180,13 +202,20 @@ sub handler {
     my $script='';
     if ($allowed) { 
        &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['cmd']);
-       $script=&Apache::lonratedt::editscript('docs'); 
+       $script=&Apache::lonratedt::editscript('simple'); 
     }
 
 # get course data
     my $coursenum=$ENV{'course.'.$ENV{'request.course.id'}.'.num'};
     my $coursedom=$ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
 
+# get personal data
+ 
+    my $uname=$ENV{'user.name'};
+    my $udom=$ENV{'user.domain'};
+    my $plainname=&Apache::lonnet::escape(
+                     &Apache::loncommon::plainname($uname,$udom));
+
 # graphics settings
 
     $iconpath = $r->dir_config('lonIconsURL') . "/";
@@ -207,15 +236,55 @@ $r->print(&Apache::loncommon::bodytag('C
        unless ($folder=~/^default/) { $folder='default'; }
        &editor($r,$coursenum,$coursedom,$folder,$allowed);
        $r->print(<<ENDFORM);
-<h3>Post a new main course document</h3>
+<table><tr>
+<th>Upload a new main course document</th>
+<th>Import a published document</th>
+<th>Special documents</th>
+</tr>
+<tr><td>
+File:<br />
 <form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
 <input type="file" name="uploaddoc" size="50">
 <br />
-Title: <input type="text" size="50" name="comment">
+Title:<br /> 
+<input type="text" size="50" name="comment">
 <input type="hidden" name="folder" value="$folder">
 <input type="hidden" name="cmd" value="upload_default">
 <input type="submit" value="Upload Document">
 </form>
+</td>
+<td>
+<form action="/adm/coursedocs" method="post" name="simpleedit">
+<input type=hidden name="importdetail" value="">
+<input type=button onClick=
+"javascript:groupsearch()" value="Group Search">
+<input type=button onClick=
+"javascript:groupimport();" value="Group Import">
+</form>
+</td><td>
+<form action="/adm/coursedocs" method="post" name="newfolder">
+<input type=hidden name="importdetail" value="">
+<input name="newfolder" type="button" onClick="javascript:newfolder();"
+value="New Folder" />
+</form>
+<form action="/adm/coursedocs" method="post" name="newext">
+<input type=hidden name="importdetail" value="">
+<input name="newext" type="button" onClick="javascript:newext();"
+value="External Resource" />
+</form>
+<form action="/adm/coursedocs" method="post" name="newsyl">
+<input type=hidden name="importdetail" 
+value="Syllabus=/public/$coursedom/$coursenum/syllabus">
+<input name="newsyl" type="submit" value="Syllabus" />
+</form>
+<form action="/adm/coursedocs" method="post" name="newaboutme">
+<input type=hidden name="importdetail" 
+value="$plainname=/adm/$udom/$uname/aboutme">
+<input name="newaboutme" type="submit" onClick="javascript:newaboutme();"
+value="My Personal Info" />
+</form>
+</td></tr>
+</table>
 ENDFORM
        $r->print('<hr />');
     }