Diff for /rat/lonpage.pm between versions 1.61 and 1.62

version 1.61, 2004/11/12 00:21:14 version 1.62, 2004/11/12 00:25:23
Line 429  sub handler { Line 429  sub handler {
                           for ($j=0;$j<=$#colcont;$j++) {                            for ($j=0;$j<=$#colcont;$j++) {
                               my $rid=$colcont[$j];                                my $rid=$colcont[$j];
                               my $metainfo = '';                                my $metainfo = '';
                               print STDERR "src is $hash{'src_'.$rid}\n";        my $esrc=&Apache::lonnet::declutter($hash{'src_'.$rid});
         if ($hash{'encrypted_'.$rid}) {
     $esrc=&Apache::lonenc::encrypted($esrc);
         }
                               unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) {                                 unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { 
                                   $metainfo ='<a name="'.                                    $metainfo ='<a name="'.&Apache::lonnet::escape($esrc).'" />'.
  &Apache::lonnet::escape(&Apache::lonnet::declutter($hash{'src_'.$rid})).'" />'.  
                                   '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.                                    '<a href="'.$metalink{$rid}.'" target="LONcatInfo">'.
                                   '<img src="/adm/lonMisc/cat_button.gif" border=0>'.                                    '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
                                   '</img></a>';                                    '</img></a>';
                               }                                }
       my $esrc=$hash{'src_'.$rid};  
       if ($hash{'encrypted_'.$rid}) {  
   $esrc=&Apache::lonenc::encrypted($esrc);  
       }  
                               $metainfo .= '<a href="/adm/evaluate?postdata='.                                $metainfo .= '<a href="/adm/evaluate?postdata='.
     &Apache::lonnet::escape(&Apache::lonnet::declutter($esrc)).    &Apache::lonnet::escape($esrc).
                                   '" target="LONcatInfo">'.                                    '" target="LONcatInfo">'.
                                   '<img src="/adm/lonMisc/eval_button.gif" border=0>'.                                    '<img src="/adm/lonMisc/eval_button.gif" border=0>'.
                                   '</img></a>';                                    '</img></a>';

Removed from v.1.61  
changed lines
  Added in v.1.62


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