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

Diff for /loncom/homework/lonhomework.pm between versions 1.378 and 1.384

version 1.378, 2023/07/23 16:11:52 version 1.384, 2024/11/21 07:26:01
Line 163  sub get_target { Line 163  sub get_target {
                 return ('web','answer');                  return ('web','answer');
             } elsif (($env{'form.problemmode'} eq 'saveedit') ||              } elsif (($env{'form.problemmode'} eq 'saveedit') ||
                      ($env{'form.problemmode'} eq 'undo')) {                       ($env{'form.problemmode'} eq 'undo')) {
                 return ('modified','no_output_web','edit');                  my %editors = &Apache::loncommon::permitted_editors();
                   if ($editors{'edit'}) {
                       return ('modified','no_output_web','edit');
                   } else {
                       return ('web');
                   }
             } elsif ($env{'form.problemmode'} eq 'edit') {              } elsif ($env{'form.problemmode'} eq 'edit') {
  return ('no_output_web','edit');                  my %editors = &Apache::loncommon::permitted_editors();
                   if ($editors{'edit'}) {
       return ('no_output_web','edit');
                   } else {
                       return ('web');
                   }
     } else {      } else {
  return ('web');   return ('web');
     }      }
Line 939  STATE Line 949  STATE
   
 sub analyze_header {  sub analyze_header {
     my ($request) = @_;      my ($request) = @_;
     my $js = &Apache::structuretags::setmode_javascript();      my $js = &Apache::lonxml::setmode_javascript();
   
     # Breadcrumbs      # Breadcrumbs
     my $text = 'Authoring Space';      my $text = 'Authoring Space';
Line 964  sub analyze_header { Line 974  sub analyze_header {
                                        {'bread_crumbs' => $brcrum,})                                         {'bread_crumbs' => $brcrum,})
        .&Apache::loncommon::head_subbox(         .&Apache::loncommon::head_subbox(
                 &Apache::loncommon::CSTR_pageheader());                  &Apache::loncommon::CSTR_pageheader());
       my %lt = &Apache::lonlocal::texthash(
                    edit => 'Edit',
                    editxml => 'EditXML',
                );
     $result .=       $result .= 
     '<form name="lonhomework" method="post" action="'.      '<form name="lonhomework" method="post" action="'.
     &HTML::Entities::encode($env{'request.uri'},'<>&"').'">'.      &HTML::Entities::encode($env{'request.uri'},'<>&"').'">'.
             '<input type="hidden" name="problemmode" value="'.              '<input type="hidden" name="problemmode" value="'.
             $env{'form.problemmode'}.'" />'.              $env{'form.problemmode'}.'" />'.
     &Apache::structuretags::remember_problem_state().'      &Apache::structuretags::remember_problem_state().'
             <div class="LC_edit_problem_analyze_header">              <div class="LC_edit_problem_analyze_header">';
             <input type="button" name="submitmode" value="'.&mt("EditXML").'" '.       my %editors = &Apache::loncommon::permitted_editors();
             'onclick="javascript:setmode(this.form,'."'editxml'".')" />       foreach my $item ('editxml','edit') {
             <input type="button" name="submitmode" value="'.&mt('Edit').'" '.           next unless ($editors{$item});
             'onclick="javascript:setmode(this.form,'."'edit'".')" />           $result .= '<input type="button" name="submitmode" value="'.$lt{$item}.'" '.
             <hr />                      'onclick="javascript:setmode(this.form,'."'$item'".')" />'.
                       "\n";
        }
        $result .=
               '<hr />
             <input type="button" name="submitmode" value="'.&mt("View").'" '.              <input type="button" name="submitmode" value="'.&mt("View").'" '.
             'onclick="javascript:setmode(this.form,'."'view'".')" />              'onclick="javascript:setmode(this.form,'."'view'".')" />
             <hr />              <hr />
Line 1180  sub editxmlmode { Line 1198  sub editxmlmode {
  my $js =   my $js =
     &Apache::edit::js_change_detection().       &Apache::edit::js_change_detection(). 
     &Apache::loncommon::resize_textarea_js().      &Apache::loncommon::resize_textarea_js().
             &Apache::structuretags::setmode_javascript().              &Apache::lonxml::setmode_javascript().
             &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");              &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");
   
     # Breadcrumbs      # Breadcrumbs
Line 1227  sub editxmlmode { Line 1245  sub editxmlmode {
   
     $result .= '<ol class="LC_primary_menu" style="display:inline-block;font-size:90%;vertical-align:middle;">';      $result .= '<ol class="LC_primary_menu" style="display:inline-block;font-size:90%;vertical-align:middle;">';
   
     unless ($env{'environment.nocodemirror'}) {      my $nocodemirror = &Apache::loncommon::nocodemirror();
       unless ($nocodemirror) {
         # dropdown menus          # dropdown menus
         $result .= Apache::lonmenu::create_submenu("#", "",          $result .= Apache::lonmenu::create_submenu("#", "",
             &mt("Problem Templates"), template_dropdown_datastructure());              &mt("Problem Templates"), template_dropdown_datastructure());
Line 1259  sub editxmlmode { Line 1278  sub editxmlmode {
         '</textarea> <div id="LC_aftertextarea"> </div> </form>';          '</textarea> <div id="LC_aftertextarea"> </div> </form>';
   
     my $resource = $env{'request.ambiguous'};      my $resource = $env{'request.ambiguous'};
     unless($env{'environment.nocodemirror'}){      unless ($nocodemirror) {
         $result .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined-xml.css">          $result .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined-xml.css">
         <script src="/adm/codemirror/codemirror-compressed-xml.js"></script>          <script src="/adm/codemirror/codemirror-compressed-xml.js"></script>
         <script>          <script>
Line 1707  sub handler { Line 1726  sub handler {
                      ($env{'form.problemmode'} eq 'saveeditxml') ||                       ($env{'form.problemmode'} eq 'saveeditxml') ||
                      ($env{'form.problemmode'} eq 'saveviewxml') ||                       ($env{'form.problemmode'} eq 'saveviewxml') ||
                      ($env{'form.problemmode'} eq 'undoxml')) {                       ($env{'form.problemmode'} eq 'undoxml')) {
  &editxmlmode($request,$file);                  my %editors = &Apache::loncommon::permitted_editors();
                   if (($editors{'xml'}) || ($env{'form.problemmode'} eq 'saveviewxml') || ($env{'form.problemmode'} eq 'undoxml')) {
       &editxmlmode($request,$file);
                   } else {
                       &update_construct_style();
                       &renderpage($request,$file);
                   }
     } elsif ($env{'form.problemmode'} eq 'calcanswers') {      } elsif ($env{'form.problemmode'} eq 'calcanswers') {
  &analyze($request,$file);   &analyze($request,$file);
     } else {      } else {
Line 1953  sub convert_for_js { Line 1978  sub convert_for_js {
   
 sub do_ltipassback {  sub do_ltipassback {
     if (@Apache::lonhomework::ltipassback) {      if (@Apache::lonhomework::ltipassback) {
           my $lonhost = $Apache::lonnet::perlvar{'lonHostID'};
           my $ip = &Apache::lonnet::get_host_ip($lonhost);
         foreach my $item (@Apache::lonhomework::ltipassback) {          foreach my $item (@Apache::lonhomework::ltipassback) {
             if (ref($item) eq 'HASH') {              if (ref($item) eq 'HASH') {
                 if ((ref($item->{'lti'}) eq 'HASH') && ($item->{'cid'} =~ /^($match_domain)_($match_courseid)$/)) {                  if ((ref($item->{'lti'}) eq 'HASH') && ($item->{'cid'} =~ /^($match_domain)_($match_courseid)$/)) {
Line 1963  sub do_ltipassback { Line 1990  sub do_ltipassback {
                     my $id = $item->{'pbid'};                      my $id = $item->{'pbid'};
                     my $url = $item->{'pburl'};                      my $url = $item->{'pburl'};
                     my $type = $item->{'pbtype'};                      my $type = $item->{'pbtype'};
                     my $scope = $item->{'scope'};                      my $pbscope = $item->{'pbscope'};
                     my $map = $item->{'ltimap'};                      my $map = $item->{'pbmap'};
                     my $symb = $item->{'ltisymb'};                      my $symb = $item->{'pbsymb'};
                     my $uname = $item->{'uname'};                      my $uname = $item->{'uname'};
                     my $udom = $item->{'udom'};                      my $udom = $item->{'udom'};
                       my $uhome = $item->{'uhome'};
                     my $keynum = $item->{'lti'}->{'cipher'};                      my $keynum = $item->{'lti'}->{'cipher'};
                     my $crsdef = $item->{'crsdef'};                      my $crsdef = $item->{'crsdef'};
                     my $scoretype = $item->{'format'};                      my $scoretype = $item->{'format'};
                       my $scope = $item->{'scope'};
                       my $clientip = $item->{'clientip'};
                     my ($total,$possible);                      my ($total,$possible);
                     if ($scope eq 'resource') {                      if ($pbscope eq 'resource') {
                         $total = $item->{'total'};                          $total = $item->{'total'};
                         $possible = $item->{'possible'};                          $possible = $item->{'possible'};
                     } elsif ($scope eq 'map') {                      } else {
                         ($total,$possible) = &get_lti_score($uname,$udom,$map);                          if (($pbscope eq 'map') || ($pbscope eq 'nonrec')) {
                     } elsif ($scope eq 'course') {                              ($total,$possible) = &get_lti_score($uname,$udom,$map,$pbscope);
                         ($total,$possible) = &get_lti_score($uname,$udom);                          } elsif ($pbscope eq 'course') {
                               ($total,$possible) = &get_lti_score($uname,$udom);
                           }
                           $item->{'total'} = $total;
                           $item->{'possible'} = $possible;
                     }                      }
                     if (($id ne '') && ($url ne '') && ($possible)) {                      if (($id ne '') && ($url ne '') && ($possible)) {
                         &LONCAPA::ltiutils::send_grade($cdom,$cnum,$crsdef,$type,$ltinum,$keynum,$id,$url,$scoretype,$sigmethod,$msgformat,$total,$possible);                          my ($sent,$score,$code,$result) = 
                               &LONCAPA::ltiutils::send_grade($cdom,$cnum,$crsdef,$type,$ltinum,$keynum,$id,
                                                              $url,$scoretype,$sigmethod,$msgformat,$total,$possible);
                           $item->{'score'} = $score;
                           my ($linkprotector,$linkuri,$no_passback,$appname);
                           if ($item->{'linkprot'}) {
                               ($linkprotector,$linkuri) = split(/:/,$item->{'linkprot'});
                           }
                           if ($sent) {
                               if ($code == 200) {
                                   if ($item->{'linkprot'}) {
                                       my $key = join("\0",($linkuri,$linkprotector,$scope));
                                       my $namespace = $cdom.'_'.$cnum.'_lp_passback';
                                       my $store = {
                                                    'score' => $score,
                                                    'ip' => $ip,
                                                    'host' => $Apache::lonnet::perlvar{'lonHostID'},
                                                    'protector' => $linkprotector,
                                                    'deeplink' => $linkuri,
                                                    'scope' => $scope,
                                                    'url' => $url,
                                                    'id' => $id,
                                                    'clientip' => $clientip,
                                                    'whodoneit' => $env{'user.name'}.':'.$env{'user.domain'},
                                                   };
                                       my $value='';
                                       foreach my $key (keys(%{$store})) {
                                           $value.=&escape($key).'='.&Apache::lonnet::freeze_escape($store->{$key}).'&';
                                       }
                                       $value=~s/\&$//;
                                       &Apache::lonnet::courselog(&escape($linkuri).':'.$uname.':'.$udom.':EXPORT:'.$value);
                                       &Apache::lonnet::cstore({'score' => $score},$key,$namespace,$udom,$uname,'',$ip,1);
                                   }
                               } else {
                                   if ($item->{'linkprot'}) {
                                       $no_passback = "Passback response was $code ($result).";
                                   }
                               }
                           } else {
                               if ($item->{'linkprot'}) {
                                   $no_passback = 'No passback of scores.';
                               }
                           }
                           if ($no_passback) {
                               if ($item->{'linkprot'}) {
                                   my ($ltinum,$ltitype) = ($linkprotector =~ /^(\d+)(c|d)$/);
                                   if ($ltitype eq 'c') {
                                       my %lti = &Apache::lonnet::get_course_lti($cnum,$cdom,'provider');
                                       if (ref($lti{$ltinum}) eq 'HASH') {
                                           $appname = $lti{$ltinum}{'name'};
                                       }
                                   } elsif ($ltitype eq 'd') {
                                       my %lti = &Apache::lonnet::get_domain_lti($cdom,'linkprot');
                                       if (ref($lti{$ltinum}) eq 'HASH') {
                                           $appname = $lti{$ltinum}{'name'};
                                       }
                                   }
                                   $no_passback .= " LTI launcher $linkprotector ($appname) for $linkuri (${cdom}_${cnum})";
                                   &Apache::lonnet::logthis($no_passback." for $uname:$udom");
                                   &Apache::lonnet::log($udom,$uname,$uhome,"$no_passback score=$score total=$total poss=$possible");
                                   &Apache::lonnet::put('linkprot_passback_pending',$item,$cdom,$cnum);
                               }
                           }
                     }                      }
                 }                  }
             }              }
Line 1991  sub do_ltipassback { Line 2087  sub do_ltipassback {
 }  }
   
 sub get_lti_score {  sub get_lti_score {
     my ($uname,$udom,$mapurl) = @_;      my ($uname,$udom,$mapurl,$pbscope) = @_;
     my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom);      my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom);
     if (ref($navmap)) {      if (ref($navmap)) {
         my $iterator;          my $iterator;
Line 1999  sub get_lti_score { Line 2095  sub get_lti_score {
             my $map = $navmap->getResourceByUrl($mapurl);              my $map = $navmap->getResourceByUrl($mapurl);
             my $firstres = $map->map_start();              my $firstres = $map->map_start();
             my $finishres = $map->map_finish();              my $finishres = $map->map_finish();
             $iterator = $navmap->getIterator($firstres,$finishres,undef,1);              my $recursive = 1;
               if ($pbscope eq 'nonrec') {
                   $recursive = 0;
               }
               $iterator = $navmap->getIterator($firstres,$finishres,undef,$recursive);
         } else {          } else {
             $iterator = $navmap->getIterator(undef,undef,undef,1);              $iterator = $navmap->getIterator(undef,undef,undef,1);
         }          }
Removed from v.1.378  
changed lines
  Added in v.1.384

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