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

Diff for /loncom/xml/lonxml.pm between versions 1.560 and 1.563

version 1.560, 2018/09/12 21:10:57 version 1.563, 2023/11/27 22:44:21
Line 1664  ENDFOOTER Line 1664  ENDFOOTER
       return ($editfooter,$add_to_onload,$add_to_onresize);;        return ($editfooter,$add_to_onload,$add_to_onresize);;
 }  }
   
   sub setmode_javascript {
       return <<"ENDSCRIPT";
   <script type="text/javascript">
   // <![CDATA[
   function setmode(form,probmode) {
       if (probmode == 'daxe') {
           var url = new URL(document.location.href);
           window.location = url.protocol+'//'+url.hostname+'/daxepage'+url.pathname;
       } else {
           var initial = form.problemmode.value;
           form.problemmode.value = probmode;
           form.submit();
           form.problemmode.value = initial;
       }
   }
   // ]]>
   </script>
   ENDSCRIPT
   }
   
 sub get_target {  sub get_target {
   my $viewgrades=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});    my $viewgrades=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
   if ( $env{'request.state'} eq 'published') {    if ( $env{'request.state'} eq 'published') {
Line 1857  ENDNOTFOUND Line 1877  ENDNOTFOUND
                 }                  }
                 my $brcrum;                  my $brcrum;
                 if ($env{'request.state'} eq 'construct') {                  if ($env{'request.state'} eq 'construct') {
                     $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri),                      my $text = 'Authoring Space';
                                 'text' => 'Authoring Space'},                      my $href = &Apache::loncommon::authorspace($request->uri);
                       if ($env{'request.course.id'}) {
                           my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                           my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                           if ($href eq "/priv/$cdom/$cnum/") {
                               $text = 'Course Authoring Space';
                           }
                       }
                       $brcrum = [{'href' => $href,
                                   'text' => $text,},
                                {'href' => '',                                 {'href' => '',
                                 'text' => $breadcrumbtext}];                                  'text' => $breadcrumbtext}];
                 } else {                  } else {
Line 1919  ENDNOTFOUND Line 1948  ENDNOTFOUND
                     'onload'       => $add_to_onload,   });                      'onload'       => $add_to_onload,   });
             my $header;              my $header;
             if ($env{'request.state'} eq 'construct') {              if ($env{'request.state'} eq 'construct') {
                   my $text = 'Authoring Space';
                   my $href = &Apache::loncommon::authorspace($request->uri);
                   if ($env{'request.course.id'}) {
                       my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                       my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                       if ($href eq "/priv/$cdom/$cnum/") {
                           $text = 'Course Authoring Space';
                       }
                   }
                 $options{'bread_crumbs'} = [{                  $options{'bread_crumbs'} = [{
                             'href' => &Apache::loncommon::authorspace($request->uri),                              'href' => $href,
                             'text' => 'Authoring Space'},                              'text' => $text},
                            {'href' => '',                             {'href' => '',
                             'text' => $breadcrumbtext}];                              'text' => $breadcrumbtext}];
                 $header = &Apache::loncommon::head_subbox(                  $header = &Apache::loncommon::head_subbox(
Removed from v.1.560  
changed lines
  Added in v.1.563

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