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

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

version 1.193, 2002/09/04 21:01:33 version 1.194, 2002/09/10 20:53:36
Line 154  sub xmlbegin { Line 154  sub xmlbegin {
 }  }
   
 sub xmlend {  sub xmlend {
       my ($discussiononly,$symb)=@_;
     my $discussion='';      my $discussion='';
     if ($ENV{'request.course.id'}) {      if ($ENV{'request.course.id'}) {
        my $crs='/'.$ENV{'request.course.id'};         my $crs='/'.$ENV{'request.course.id'};
Line 162  sub xmlend { Line 163  sub xmlend {
        }                          }                 
        $crs=~s/\_/\//g;         $crs=~s/\_/\//g;
        my $seeid=&Apache::lonnet::allowed('rin',$crs);         my $seeid=&Apache::lonnet::allowed('rin',$crs);
        my $symb=&Apache::lonnet::symbread();         unless ($symb) {
              $symb=&Apache::lonnet::symbread();
          }
        if ($symb) {         if ($symb) {
           my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},            my %contrib=&Apache::lonnet::restore($symb,$ENV{'request.course.id'},
                      $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},                       $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},
      $ENV{'course.'.$ENV{'request.course.id'}.'.num'});       $ENV{'course.'.$ENV{'request.course.id'}.'.num'});
           if ($contrib{'version'}) {            if ($contrib{'version'}) {
               $discussion.=                unless ($discussiononly) {
                   '<address><hr /><h2>Course Discussion of Resource</h2>';                   $discussion.=
                     '<address><hr />';
        }
               my $idx;                my $idx;
               for ($idx=1;$idx<=$contrib{'version'};$idx++) {                for ($idx=1;$idx<=$contrib{'version'};$idx++) {
  my $hidden=($contrib{'hidden'}=~/\.$idx\./);   my $hidden=($contrib{'hidden'}=~/\.$idx\./);
Line 183  sub xmlend { Line 188  sub xmlend {
                   }                    }
                   my $sender='Anonymous';                    my $sender='Anonymous';
                   if ((!$contrib{$idx.':anonymous'}) || ($seeid)) {                    if ((!$contrib{$idx.':anonymous'}) || ($seeid)) {
                       $sender=$contrib{$idx.':plainname'}.' ('.                        $sender=&Apache::loncommon::aboutmewrapper(
                                  $contrib{$idx.':plainname'},
                                  $contrib{$idx.':sendername'},
                                  $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'}) {
Line 211  sub xmlend { Line 219  sub xmlend {
         }          }
                }                  } 
               }                }
               $discussion.='</address>';                unless ($discussiononly) {
                    $discussion.='</address>';
         }
             }
             if ($discussiononly) {
         $discussion.='<h1>'.$symb.'</h1>';
           }            }
        }         }
     }      }
     return $discussion.'</html>';      return $discussion.($discussiononly?'':'</html>');
 }  }
   
 sub tokeninputfield {  sub tokeninputfield {
Removed from v.1.193  
changed lines
  Added in v.1.194

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