--- loncom/interface/londocs.pm	2005/06/11 13:38:47	1.188
+++ loncom/interface/londocs.pm	2005/06/26 15:42:52	1.191
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.188 2005/06/11 13:38:47 raeburn Exp $
+# $Id: londocs.pm,v 1.191 2005/06/26 15:42:52 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -840,8 +840,7 @@ sub group_import {
                             '<resource id="2" src="" type="finish"></resource>'."\n".
                             '</map>';
             $env{'form.output'}=$newmapstr;
-            my $home=&Apache::lonnet::homeserver($coursenum,$coursedom);
-            my $result=&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,$home,
+            my $result=&Apache::lonnet::finishuserfileupload($coursenum,$coursedom,
                                                 'output',$1.$2);
             if ($result != m|^/uploaded/|) {
                 $errtext.='Map not saved: A network error occured when trying to save the new map. ';
@@ -1179,7 +1178,7 @@ sub process_file_upload {
     my ($upload_output,$coursenum,$coursedom,$allfiles,$codebase) = @_;
 # upload a file, if present
     my $parseaction;
-    if ($env{'form.parserflag'}) {
+   if ($env{'form.parserflag'}) {
         $parseaction = 'parse';
     }
     my $phase_status;
@@ -1213,7 +1212,9 @@ sub process_file_upload {
 # probably the only place in the system where this should be "1"
         my $newidx=&Apache::lonratedt::getresidx();
         $destination .= $newidx;
-        my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,$parseaction,$allfiles,$codebase);
+        my $url=&Apache::lonnet::userfileupload('uploaddoc',1,$destination,
+						$parseaction,$allfiles,
+						$codebase);
         my $ext='false';
         if ($url=~/^http\:\/\//) { $ext='true'; }
         $url=~s/\:/\&colon;/g;
@@ -1228,15 +1229,15 @@ sub process_file_upload {
 
         $Apache::lonratedt::resources[$newidx]=
                   $comment.':'.$url.':'.$ext.':normal:res';
-        $Apache::lonratedt::order[$#Apache::lonratedt::order+1]=
-                                                              $newidx;
-        ($errtext,$fatal)=&storemap($coursenum,$coursedom,$folder.'.'.$container);
+        $Apache::lonratedt::order[$#Apache::lonratedt::order+1]= $newidx;
+        ($errtext,$fatal)=&storemap($coursenum,$coursedom,
+				    $folder.'.'.$container);
         if ($fatal) {
             $$upload_output .= '<p><font color="red">'.$errtext.'</font></p>';
             return 'failed';
         } else {
             if ($parseaction eq 'parse') {
-                my $total_embedded = keys %{$allfiles};
+                my $total_embedded = keys(%{$allfiles});
                 if ($total_embedded > 0) {
                     my $num = 0;
                     $$upload_output .= 'This file contains embedded multimedia objects, which need to be uploaded to LON-CAPA.<br />
@@ -1248,10 +1249,10 @@ sub process_file_upload {
    <input type="hidden" name="phasetwo" value="'.$total_embedded.'" />';
                     $$upload_output .= '<b>Upload embedded files</b>:<br />
    <table>';
-                    foreach my $embed_file (keys %{$allfiles}) {
+                    foreach my $embed_file (keys(%{$allfiles})) {
                         $$upload_output .= '<tr><td>'.$embed_file.
-          '<input name="embedded_item_'.$num.'" type="file">
-           <input name="embedded_orig_'.$num.'" type="hidden" value="'.&Apache::lonnet::escape($embed_file).'"/>';
+          '<input name="embedded_item_'.$num.'" type="file" />
+           <input name="embedded_orig_'.$num.'" type="hidden" value="'.&Apache::lonnet::escape($embed_file).'" />';
                         my $attrib;
                         if (@{$$allfiles{$embed_file}} > 1) {
                             $attrib = join(':',@{$$allfiles{$embed_file}});
@@ -2243,7 +2244,9 @@ ENDNEWSCRIPT
   if ($allowed) {
       if (($env{'form.uploaddoc.filename'}) &&                                               ($env{'form.cmd'}=~/^upload_(\w+)/)) {
 # Process file upload - phase one - upload and parse primary file.  
-          $upload_result = &process_file_upload(\$upload_output,$coursenum,$coursedom,\%allfiles,\%codebase);
+          $upload_result = &process_file_upload(\$upload_output,$coursenum,
+						$coursedom,\%allfiles,
+						\%codebase);
           if ($upload_result eq 'phasetwo') {
               $r->print($upload_output);
           }
@@ -2309,8 +2312,7 @@ ENDNEWSCRIPT
                   my $saveresult;
                   my $docuname=$env{'course.'.$env{'request.course.id'}.'.num'};
                   my $docudom=$env{'course.'.$env{'request.course.id'}.'.domain'};
-                  my $docuhome=$env{'course.'.$env{'request.course.id'}.'.home'};
-                  my $url = &Apache::lonnet::store_edited_file($primary_url,$content,$docudom,$docuname,$docuhome,\$saveresult);
+                  my $url = &Apache::lonnet::store_edited_file($primary_url,$content,$docudom,$docuname,\$saveresult);
               } else {
                   &Apache::lonnet::logthis('retrieval of uploaded file - '.$primary_url.' - for editing, failed: '.$getstatus); 
               }
@@ -2446,8 +2448,9 @@ $uploadtag
 <input type="hidden" name="cmd" value="upload_default">
 <br />
 <nobr>
-$lt{'parse'}?
+<label>$lt{'parse'}?
 <input type="checkbox" name="parserflag" />
+</label>
 </nobr>
 <br />
 <br />