--- loncom/interface/lonfeedback.pm	2004/09/13 12:19:14	1.124
+++ loncom/interface/lonfeedback.pm	2004/09/21 20:44:16	1.127
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Feedback
 #
-# $Id: lonfeedback.pm,v 1.124 2004/09/13 12:19:14 raeburn Exp $
+# $Id: lonfeedback.pm,v 1.127 2004/09/21 20:44:16 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -165,13 +165,10 @@ sub list_discussion {
     }
 
 # Get discussion display default settings for user
-    my %userenv = &Apache::lonnet::get('environment',['discdisplay','discmarkread'],$ENV{'user.domain'},$ENV{'user.name'});
-    my $discdisplay=$userenv{'discdisplay'};
-    if ($discdisplay eq 'unread') {
+    if ($ENV{'environment.discdisplay'} eq 'unread') {
         $showonlyunread = 1;
     }
-    my $discmarkread=$userenv{'discmarkread'};
-    if ($discmarkread eq 'ondisp') {
+    if ($ENV{'environment.discmarkread'} eq 'ondisp') {
         $markondisp = 1;
     }
 
@@ -332,7 +329,6 @@ sub list_discussion {
 # open manifest file
             my $manifest = '/imsmanifest.xml';
             my $manifestfilename = $tempexport.$manifest;
-            print STDERR "manifestfilename is $manifestfilename\n";
             if ($manifestfile = Apache::File->new('>'.$manifestfilename)) {
                 $manifestok=1;
                 print $manifestfile qq|
@@ -482,7 +478,6 @@ imscp_v1p1.xsd http://www.imsglobal.org/
                     my $postfilename = $alldiscussion{$_}.'-'.$imsitems{$alldiscussion{$_}}{'timestamp'}.'.html';
                     if ($manifestok) {
                         if (($depth[$alldiscussion{$_}] <= $currdepth) && ($alldiscussion{$_} != $firstidx)) {
-                            print STDERR "depth is $depth[$alldiscussion{$_}], currdepth is $currdepth, idx is $alldiscussion{$_}, firstidx is $firstidx\n";
                             print $manifestfile '  </item>'."\n";
                         }
                         $currdepth = $depth[$alldiscussion{$_}];
@@ -608,7 +603,7 @@ END
                 undef(%oldENV);
                 $discussion .= 'Download the zip file from <a href="'.$imszipfile.'">Discussion Posting Archive</a><br />';
                 if ($copyresult) {
-                    $discussion .= 'The following errors occurred during export - '.$copyresult;
+                    $discussion .= 'The following errors occurred during export - <br />'.$copyresult;
                 }
             } else {
                 $discussion .= '<br />Unfortunately you will not be able to retrieve an archive of the discussion posts at this time, because there was a problem creating a manifest file.<br />';
@@ -1056,12 +1051,14 @@ sub get_post_contents {
            return $discussion;
        } 
     }
-    $$screenname=&Apache::loncommon::screenname(
-                                        $$contrib{$idx.':sendername'},
-                                        $$contrib{$idx.':senderdomain'});
-    $$plainname=&Apache::loncommon::nickname(
-                                        $$contrib{$idx.':sendername'},
-                                        $$contrib{$idx.':senderdomain'});
+#    $$screenname=&Apache::loncommon::screenname(
+#                                        $$contrib{$idx.':sendername'},
+#                                        $$contrib{$idx.':senderdomain'});
+#    $$plainname=&Apache::loncommon::nickname(
+#                                        $$contrib{$idx.':sendername'},
+#                                        $$contrib{$idx.':senderdomain'});
+    ($$screenname,$$plainname)=($$contrib{$idx.':screenname'},
+				$$contrib{$idx.':plainname'});
     my $sender=&Apache::loncommon::aboutmewrapper(
                                  $$plainname,
                                  $$contrib{$idx.':sendername'},
@@ -1159,22 +1156,23 @@ sub replicate_attachments {
                     $i ++;
                 }
                 my ($content,$rtncode);
-                print STDERR "File to replicate is $$attachrefs{$id}{'filename'} in $1,$2\n";
                 my $uploadreply = &Apache::lonnet::getuploaded('GET',$$attachrefs{$id}{'filename'},$1,$2,$content,$rtncode);
                 if ($uploadreply eq 'ok') {
-                     my $attachcopy;
-                     if ($attachcopy = Apache::File->new('>'.$destination)) {
-                         print $attachcopy $content;
-                         close($attachcopy);
-                     } else {
-                         $response .= 'Error copying a file attachment to IMS package: '.$!.'<br />'."\n";
-                     }
+                    my $attachcopy;
+                    if ($attachcopy = Apache::File->new('>'.$destination)) {
+                        print $attachcopy $content;
+                        close($attachcopy);
+                    } else {
+                        $response .= 'Error copying file attachment - '.$5.' to IMS package: '.$!.'<br />'."\n";
+                    }
                 } else {
-                    print STDERR "return code from lonnet was $rtncode\n";
+                    &Apache::lonnet::logthis("Replication of attachment failed when building IMS export of discussion posts - domain: $1, course: $2, file: $$attachrefs{$id}{'filename'} -error: $rtncode");
+                    $response .= 'Error copying file attachment - '.$5.' to IMS package: '.$rtncode.'<br />'."\n";
                 }
             }
         }
     }
+    return $response;
 }
 
 sub mail_screen {
@@ -2730,7 +2728,7 @@ sub handler {
 # --------------------------- Get query string for limited number of parameters
 
   &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
-         ['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navmaps','navurl','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export']);
+         ['hide','unhide','deldisc','postdata','preview','replydisc','editdisc','threadedon','threadedoff','onlyunread','allposts','onlyunmark','previous','markread','markonread','markondisp','toggoff','toggon','modifydisp','changes','navmaps','navurl','navtime','sortfilter','sortposts','applysort','rolefilter','statusfilter','sectionpick','posterlist','userpick','attach','origpage','currnewattach','deloldattach','keepold','allversions','export']);
   if ($ENV{'form.discsymb'}) {
       my $symb = $ENV{'form.discsymb'};
       my $readkey = $symb.'_read';
@@ -2903,7 +2901,7 @@ END
               }
           }
           my $lastkey = $ressymb.'_lastread';
-          $discinfo{$lastkey} = time;
+          $discinfo{$lastkey} = $ENV{'form.navtime'};
       }
       &Apache::lonnet::put('nohist_'.$ENV{'request.course.id'}.'_discuss',\%discinfo,$ENV{'user.domain'},$ENV{'user.name'});
       &Apache::loncommon::content_type($r,'text/html');