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

Diff for /rat/lonpage.pm between versions 1.78 and 1.81

version 1.78, 2007/05/23 14:57:51 version 1.81, 2007/06/22 22:30:45
Line 338  sub handler { Line 338  sub handler {
                                   $output=~s/\<form[^\>]*\>//gsi;                                    $output=~s/\<form[^\>]*\>//gsi;
                                   $output=~s/\<\/form[^\>]*\>//gsi;                                    $output=~s/\<\/form[^\>]*\>//gsi;
                                   $output=~                                    $output=~
       s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;        s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                               }                                }
                               $thisdir=~s/\/[^\/]*$//;                                $thisdir=~s/\/[^\/]*$//;
       foreach (@rlinks) {        foreach (@rlinks) {
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.'" border=0>'.                                    '<img src="/adm/lonMisc/cat_button.'.$extension.'" class="LC_icon" />'.
                                   '</img></a>';                                    '</a>';
                               }                                }
                               $metainfo .= '<a href="/adm/evaluate?postdata='.                                $metainfo .= '<a href="/adm/evaluate?postdata='.
   &escape($esrc).    &escape($esrc).
                                   '" target="LONcatInfo">'.                                    '" target="LONcatInfo">'.
                                   '<img src="/adm/lonMisc/eval_button.'.$extension.'" border=0>'.                                    '<img src="/adm/lonMisc/eval_button.'.$extension.'" class="LC_icon" />'.
                                   '</img></a>';                                    '</a>';
                               if (                                if (
  ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&   ($hash{'src_'.$rid}=~/\.(problem|exam|quiz|assess|survey|form)$/) &&
  (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) &&    (&Apache::lonnet::allowed('mgr',$env{'request.course.id'})) && 
Line 456  sub handler { Line 459  sub handler {
                   '<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">'.
                           '<img src="/adm/lonMisc/subm_button.'.$extension.'" border=0>'.                            '<img src="/adm/lonMisc/subm_button.'.$extension.'" class="LC_icon" />'.
   '</img></a>'.    '</a>'.
                   '<a href="/adm/grades?symb='.&escape($symb).                    '<a href="/adm/grades?symb='.&escape($symb).
 #                  '&command=gradingmenu" target="LONcatInfo">'.  #                  '&command=gradingmenu" target="LONcatInfo">'.
                   '&command=gradingmenu">'.                    '&command=gradingmenu">'.
                           '<img src="/adm/lonMisc/pgrd_button.'.$extension.'" border=0>'.                            '<img src="/adm/lonMisc/pgrd_button.'.$extension.'" class="LC_icon" />'.
   '</img></a>'.    '</a>'.
                   '<a href="/adm/parmset?symb='.&escape($symb).                    '<a href="/adm/parmset?symb='.&escape($symb).
 #                          '" target="LONcatInfo">'.  #                          '" target="LONcatInfo">'.
                           '" >'.                            '" >'.
                           '<img src="/adm/lonMisc/pprm_button.'.$extension.'" border=0>'.                            '<img src="/adm/lonMisc/pprm_button.'.$extension.'" class="LC_icon" />'.
       '</img></a>';        '</a>';
                               }                                }
                               $metainfo.='<br></br>';                                $metainfo.='<br></br>';
     unless ($target eq 'tex') {      unless ($target eq 'tex') {
Removed from v.1.78  
changed lines
  Added in v.1.81

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