[BACK]Return to lonpage.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpage.pm between versions 1.80 and 1.82

version 1.80, 2007/06/22 21:24:54 version 1.82, 2007/06/25 23:10:26
Line 432  sub handler { Line 432  sub handler {
   $symb=&Apache::lonenc::encrypted($symb);    $symb=&Apache::lonenc::encrypted($symb);
   $esrc=&Apache::lonenc::encrypted($esrc);    $esrc=&Apache::lonenc::encrypted($esrc);
       }        }
                               unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) {                                 if ($hash{'src_'.$rid} !~ m-^/uploaded/-
     && !$env{'request.enc'}
     && ($env{'request.role.adv'}
         || !$hash{'encrypted_'.$rid})) { 
                                   $metainfo ='<a name="'.&escape($symb).'" />'.                                    $metainfo ='<a name="'.&escape($symb).'" />'.
                                   '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.                                    '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.
                                   '<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'.                                    '<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'.
Line 448  sub handler { Line 451  sub handler {
  (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) &&    (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && 
  ($hash{'src_'.$rid} !~ m-^/uploaded/-)) {   ($hash{'src_'.$rid} !~ m-^/uploaded/-)) {
   my ($mapid,$resid)=split(/\./,$rid);    my ($mapid,$resid)=split(/\./,$rid);
                                  my $symb=    my $symb= &Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$hash{'src_'.$rid});
                 &Apache::lonnet::declutter($hash{'map_id_'.$mapid}).    if ($hash{'encrypted_'.$resid}) { 
                 '___'.$resid.'___'.        $symb = &Apache::lonenc::encrypt($symb);
  &Apache::lonnet::declutter($hash{'src_'.$rid});    }
                                  $metainfo.=    $metainfo.=
                   '<a href="/adm/grades?symb='.&escape($symb).                    '<a href="/adm/grades?symb='.&escape($symb).
 #                 '&command=submission" target="LONcatInfo">'.  #                 '&command=submission" target="LONcatInfo">'.
                   '&command=submission">'.                    '&command=submission">'.
Removed from v.1.80  
changed lines
  Added in v.1.82

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