[BACK]Return to lonxml.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / xml

Diff for /loncom/xml/lonxml.pm between versions 1.194 and 1.196

version 1.194, 2002/09/10 20:53:36 version 1.196, 2002/09/13 20:46:09
Line 186  sub xmlend { Line 186  sub xmlend {
                   if ($hidden) {                    if ($hidden) {
       $message='<font color="#888888">'.$message.'</font>';        $message='<font color="#888888">'.$message.'</font>';
                   }                    }
                     my $screenname=&Apache::loncommon::screenname(
                                  $contrib{$idx.':sendername'},
          $contrib{$idx.':senderdomain'});
                     my $plainname=&Apache::loncommon::nickname(
                                  $contrib{$idx.':sendername'},
          $contrib{$idx.':senderdomain'});
   
                   my $sender='Anonymous';                    my $sender='Anonymous';
                   if ((!$contrib{$idx.':anonymous'}) || ($seeid)) {                    if ((!$contrib{$idx.':anonymous'}) || ($seeid)) {
                       $sender=&Apache::loncommon::aboutmewrapper(                        $sender=&Apache::loncommon::aboutmewrapper(
                                $contrib{$idx.':plainname'},                                 $plainname,
                                $contrib{$idx.':sendername'},                                 $contrib{$idx.':sendername'},
                                $contrib{$idx.':senderdomain'}).' ('.                                 $contrib{$idx.':senderdomain'}).' ('.
                               $contrib{$idx.':sendername'}.' at '.                                $contrib{$idx.':sendername'}.' at '.
       $contrib{$idx.':senderdomain'}.')';        $contrib{$idx.':senderdomain'}.')';
                       if ($contrib{$idx.':anonymous'}) {                        if ($contrib{$idx.':anonymous'}) {
   $sender.=' [anonymous] '.    $sender.=' [anonymous] '.
                                      $contrib{$idx.':screenname'};                                       $screenname;
                       }                        }
                       if ($seeid) {                        if ($seeid) {
   if ($hidden) {    if ($hidden) {
Line 208  sub xmlend { Line 215  sub xmlend {
   }    }
                       }                                           }                   
                   } else {                    } else {
                       if ($contrib{$idx.':screenname'}) {                        if ($screenname) {
   $sender='<i>'.$contrib{$idx.':screenname'}.'</i>';    $sender='<i>'.$screenname.'</i>';
                       }                        }
                   }                    }
   $discussion.='<p><b>'.$sender.'</b> ('.    $discussion.='<p><b>'.$sender.'</b> ('.
Line 224  sub xmlend { Line 231  sub xmlend {
       }        }
           }            }
           if ($discussiononly) {            if ($discussiononly) {
       $discussion.='<h1>'.$symb.'</h1>';        $discussion.=(<<ENDDISCUSS);
   <form action="/adm/feedback" method="post">
   <input type="submit" name="discuss" value="Post Discussion" />
   <input type="submit" name="anondiscuss" value="Post Anonymous Discussion" />
   <input type="hidden" name="symb" value="$symb" />
   <input type="hidden" name="sendit" value="true" />
   <br />
   <font size="1">Note: in anonymous discussion, your name is visible only to
   course faculty</font><br />
   <textarea name=comment cols=60 rows=10 wrap=hard></textarea>
   </form>
   ENDDISCUSS
           }            }
        }         }
     }      }
Removed from v.1.194  
changed lines
  Added in v.1.196

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>