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

Diff for /rat/lonpage.pm between versions 1.99 and 1.101

version 1.99, 2012/11/30 20:48:20 version 1.101, 2013/06/09 02:59:25
Line 264  ENDEXT Line 264  ENDEXT
       my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src);        my $symb=&Apache::lonnet::encode_symb($hash{'map_id_'.$mapid},$resid,$src);
               
       my $prefix=$_.'_';        my $prefix=$_.'_';
                                 my $idprefix= join('_',($mapid,$resid,''));
                               my %posthash=('request.prefix' => $prefix,                                my %posthash=('request.prefix' => $prefix,
     'LONCAPA_INTERNAL_no_discussion' => 'true',      'LONCAPA_INTERNAL_no_discussion' => 'true',
     'symb' => $symb);      'symb' => $symb);
Line 369  ENDEXT Line 370  ENDEXT
                                   }                                    }
                                   $output=~                                    $output=~
       s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;        s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi;
                                     $output=~
                                         s/\<((?:input|select|button|textarea)[^\>]+)id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\>]*)\>/\<$1 id="$idprefix$2" $3\>/gsi;
                                   if ($nuploads) {                                    if ($nuploads) {
                                       $output=~                                        $output=~
                                           s/\<(input[^\>]+name=\"\Q$prefix\EHWFILE[^\>]+)\s*id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\)]*)\>/\<$1 id="$prefix$2" $3\>/gsi;                                            s/\<(input[^\>]+name=\"\Q$prefix\EHWFILE[^\>]+)\s*id\s*\=\s*[\'\"]*([^\'\"]+)[\'\"]*([^\)]*)\>/\<$1 id="$prefix$2" $3\>/gsi;
Line 431  ENDEXT Line 434  ENDEXT
                           if (($nforms) && ($nuploads)) {                            if (($nforms) && ($nuploads)) {
                               $allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps);                                $allscript .= &Apache::lonhtmlcommon::file_submissionchk_js(\%turninpaths,\%multiresps);
                           }                            }
                             if (($nforms) && (&Apache::lonhtmlcommon::htmlareabrowser())) {
                                 my %textarea_args = (
                                     dragmath => 'math',
                                 );
                                 $allscript .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
                             }
 # ------------------------------------------------------------------ Start body  # ------------------------------------------------------------------ Start body
   $r->print(&Apache::loncommon::start_page(undef,$allscript,    $r->print(&Apache::loncommon::start_page(undef,$allscript,
    {'force_register' => 1,     {'force_register' => 1,
Line 612  sub get_buttons { Line 621  sub get_buttons {
     || !$hash->{'encrypted_'.$rid})) {       || !$hash->{'encrypted_'.$rid})) { 
  $metainfo .='<a name="'.&escape($symb).'" />'.   $metainfo .='<a name="'.&escape($symb).'" />'.
     '<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'.      '<a href="'.$hash->{'src_'.$rid}.'.meta'.'" target="LONcatInfo">'.
     '<img src="/adm/lonMisc/cat_button.png" class="LC_icon" />'.              '<img src="/res/adm/pages/catalog.png" class="LC_icon"'.
               ' alt="'.&mt('Show Metadata').'"'.
               ' title="'.&mt('Show Metadata').'" />'.
     '</a>';      '</a>';
     }      }
     if (($hash->{'src_'.$rid} !~ m{^/uploaded/}) &&      if (($hash->{'src_'.$rid} !~ m{^/uploaded/}) &&
Line 620  sub get_buttons { Line 631  sub get_buttons {
         $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.png" class="LC_icon" />'.              '<img src="/res/adm/pages/eval.png" class="LC_icon"'.
               ' alt="'.&mt('Provide my evaluation of this resource').'"'.
               ' title="'.&mt('Provide my evaluation of this resource').'" />'.
     '</a>';      '</a>';
     }      }
     if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&      if (($hash->{'src_'.$rid}=~/$LONCAPA::assess_re/) &&
Line 631  sub get_buttons { Line 644  sub get_buttons {
  '<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.png" class="LC_icon" />'.                  '<img src="/adm/lonMisc/subm_button.png" class="LC_icon"'.
                   ' alt="'.&mt('View Submissions for a Student or a Group of Students').'"'.
                   ' title="'.&mt('View Submissions for a Student or a Group of Students').'" />'.
  '</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.png" class="LC_icon" />'.                  '<img src="/res/adm/pages/pgrd.png" class="LC_icon"'.
                   ' alt="'.&mt('Content Grades').'"'.
                   ' title="'.&mt('Content Grades').'" />'.
  '</a>';   '</a>';
  }   }
  if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {   if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) {
Line 644  sub get_buttons { Line 661  sub get_buttons {
  '<a href="/adm/parmset?symb='.&escape($symb).   '<a href="/adm/parmset?symb='.&escape($symb).
 #               '" target="LONcatInfo">'.  #               '" target="LONcatInfo">'.
  '" >'.   '" >'.
  '<img src="/adm/lonMisc/pprm_button.png" class="LC_icon" />'.                  '<img src="/adm/lonMisc/pprm_button.png" class="LC_icon"'.
                   ' alt="'.&mt('Content Settings').'"'.
                   ' title="'.&mt('Content Settings').'" />'.
  '</a>';   '</a>';
  }   }
     }      }
Removed from v.1.99  
changed lines
  Added in v.1.101

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