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

Diff for /loncom/xml/lonxml.pm between versions 1.116 and 1.118

version 1.116, 2001/08/16 11:25:03 version 1.118, 2001/08/18 15:49:28
Line 13 Line 13
 # 6/12,6/13 H. K. Ng  # 6/12,6/13 H. K. Ng
 # 6/16 Gerd Kortemeyer  # 6/16 Gerd Kortemeyer
 # 7/27 H. K. Ng  # 7/27 H. K. Ng
 # 8/7,8/9,8/10,8/11,8/15,8/16 Gerd Kortemeyer  # 8/7,8/9,8/10,8/11,8/15,8/16,8/17,8/18 Gerd Kortemeyer
   
 package Apache::lonxml;   package Apache::lonxml; 
 use vars   use vars 
Line 153  sub xmlend { Line 153  sub xmlend {
 }  }
   
 sub maketoken {  sub maketoken {
     my ($target,$symb,$tuname,$tudom,$tcrsid)=@_;      my ($symb,$tuname,$tudom,$tcrsid)=@_;
     unless ($symb) {      unless ($symb) {
  $symb=&Apache::lonnet::symbread();   $symb=&Apache::lonnet::symbread();
     }      }
Line 163  sub maketoken { Line 163  sub maketoken {
         $tcrsid=$ENV{'request.course.id'};          $tcrsid=$ENV{'request.course.id'};
     }      }
   
     my $token=&Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid);      return &Apache::lonnet::checkout($symb,$tuname,$tudom,$tcrsid);
    }
   
   sub printtokenheader {
       my ($target,$token,$symb,$tuname,$tudom,$tcrsid)=@_;
     unless ($token) { return ''; }      unless ($token) { return ''; }
   
       unless ($symb) {
    $symb=&Apache::lonnet::symbread();
       }
       unless ($tuname) {
    $tuname=$ENV{'user.name'};
           $tudom=$ENV{'user.domain'};
           $tcrsid=$ENV{'request.course.id'};
       }
   
     my %reply=&Apache::lonnet::get('environment',      my %reply=&Apache::lonnet::get('environment',
               ['firstname','middlename','lastname','generation'],                ['firstname','middlename','lastname','generation'],
               $tudom,$tuname);                $tudom,$tuname);
Line 180  sub maketoken { Line 192  sub maketoken {
  '<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" />'.   '<img align="right" src="/cgi-bin/barcode.gif?encode='.$token.'" />'.
                'Checked out for '.$plainname.                 'Checked out for '.$plainname.
                '<br />User: '.$tuname.' at '.$tudom.                 '<br />User: '.$tuname.' at '.$tudom.
        '<br />CourseID: '.$tcrsid.')'.         '<br />CourseID: '.$tcrsid.
                '<br />DocID: '.$token.                 '<br />DocID: '.$token.
                '<br />Time: '.localtime().'<hr />';                 '<br />Time: '.localtime().'<hr />';
     } else {      } else {
Removed from v.1.116  
changed lines
  Added in v.1.118

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