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

Diff for /loncom/homework/lonhomework.pm between versions 1.344.2.5 and 1.344.2.7

version 1.344.2.5, 2016/09/14 16:36:49 version 1.344.2.7, 2016/09/18 21:37:25
Line 1107  sub editxmlmode { Line 1107  sub editxmlmode {
             <div class="LC_edit_problem_header">              <div class="LC_edit_problem_header">
               <div class="LC_edit_problem_header_title">'.                <div class="LC_edit_problem_header_title">'.
                 &mt('Problem Editing').' '.&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').                  &mt('Problem Editing').' '.&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').
                 </div><div class="LC_edit_actionbar" id="actionbar">';                  '</div><div class="LC_edit_actionbar" id="actionbar">';
   
     $result.='<input type="hidden" name="problemmode" value="saveedit" />'.      $result.='<input type="hidden" name="problemmode" value="saveedit" />'.
                   &Apache::structuretags::problem_edit_buttons('editxml');                    &Apache::structuretags::problem_edit_buttons('editxml');
Line 1130  sub editxmlmode { Line 1130  sub editxmlmode {
             &mt("Miscellaneous"), misc_datastructure());              &mt("Miscellaneous"), misc_datastructure());
     }      }
   
    $result .= Apache::lonmenu::create_submenu("#", "",      $result .= Apache::lonmenu::create_submenu("#", "",
         &mt("Help") . ' <img src="/adm/help/help.png" alt="' . &mt("Help") .          &mt("Help") . ' <img src="/adm/help/help.png" alt="' . &mt("Help") .
         '" style="vertical-align:text-bottom; height: auto; margin:0; "/>',          '" style="vertical-align:text-bottom; height: auto; margin:0; "/>',
         helpmenu_datastructure(),"");          helpmenu_datastructure(),"");
Line 1369  sub newproblem { Line 1369  sub newproblem {
         &File::Copy::copy($templatefilename,$dest);          &File::Copy::copy($templatefilename,$dest);
         &renderpage($request,$dest);          &renderpage($request,$dest);
         return;          return;
       }
     if ($env{'form.template'}) {      if ($env{'form.template'}) {
  my $file = $env{'form.template'};   my $file = $env{'form.template'};
  my $dest = &Apache::lonnet::filelocation("",$request->uri);   my $dest = &Apache::lonnet::filelocation("",$request->uri);
Line 1553  sub template_dropdown_datastructure { Line 1553  sub template_dropdown_datastructure {
   
 sub responseblock_dropdown_datastructure {  sub responseblock_dropdown_datastructure {
   
         my $mathCat = [      my $mathCat = [
                 [                      [
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_formularesponse())) . "\')", &mt("Formula Response"), undef],                          ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_formularesponse())) . "\')", &mt("Formula Response"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_functionplotresponse())) . "\')", &mt("Function Plot Response"), undef],                          ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_functionplotresponse())) . "\')", &mt("Function Plot Response"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_mathresponse())) . "\')", &mt("Math Response"), undef],                          ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_mathresponse())) . "\')", &mt("Math Response"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_numericalresponse())) . "\')", &mt("Numerical Response"), undef]                          ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_numericalresponse())) . "\')", &mt("Numerical Response"), undef]
                 ],                      ],
                 &mt("Math"),                      &mt("Math"),
                 undef                      undef
         ];          ];
   
         my $miscCat = [      my $miscCat = [
                 [                      [
             ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_imageresponse())) . "\')", &mt("Click on Image"), undef],              ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_imageresponse())) . "\')", &mt("Click on Image"), undef],
             ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_customresponse())) . "\')", &mt("Custom Response"), undef],              ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_customresponse())) . "\')", &mt("Custom Response"), undef],
             ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_externalresponse())) . "\')", &mt("External Response"), undef],              ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_externalresponse())) . "\')", &mt("External Response"), undef],
Line 1578  sub responseblock_dropdown_datastructure Line 1578  sub responseblock_dropdown_datastructure
                 undef                  undef
         ];          ];
   
         my $chemCat = [      my $chemCat = [
                 [                      [
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_reactionresponse())) . "\')", &mt("Chemical Reaction"), undef],                          ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_reactionresponse())) . "\')", &mt("Chemical Reaction"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_organicresponse())) . "\')", &mt("Organic Chemical Structure"), undef]                          ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_organicresponse())) . "\')", &mt("Organic Chemical Structure"), undef]
                 ],                       ],
                 &mt("Chemistry"),                       &mt("Chemistry"),
                 undef                       undef
         ];                     ];
   
         my $textCat = [      my $textCat = [
                 [                      [
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_stringresponse())) . "\')", &mt("String Response"), undef],                        ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_stringresponse())) . "\')", &mt("String Response"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_essayresponse())) . "\')", &mt("Essay"), undef]                        ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&Apache::edit::insert_essayresponse())) . "\')", &mt("Essay"), undef]
                 ],                       ],
                 &mt("Text"),                       &mt("Text"),
                 undef                       undef
         ];                     ];
   
     return [$mathCat, $miscCat, $chemCat, $textCat];      return [$mathCat, $miscCat, $chemCat, $textCat];
 }  }
Line 1609  sub conditional_scripting_datastructure Line 1609  sub conditional_scripting_datastructure
 #TODO translated is currently temporarily here, another solution should be found where the  #TODO translated is currently temporarily here, another solution should be found where the
 # needed string can be retrieved  # needed string can be retrieved
   
         my $translatedTag = '      my $translatedTag = '
 <translated>  <translated>
     <lang which="en"></lang>      <lang which="en"></lang>
     <lang which="default"></lang>      <lang which="default"></lang>
 </translated>';  </translated>';
     return [      return [
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode($translatedTag)) . "\')", &mt("Translated Block"), undef],               ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode($translatedTag)) . "\')", &mt("Translated Block"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("block"))) . "\')", &mt("Conditional Block"), undef],               ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("block"))) . "\')", &mt("Conditional Block"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("postanswerdate"))) . "\')", &mt("After Answer Date Block"), undef],               ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("postanswerdate"))) . "\')", &mt("After Answer Date Block"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("preduedate"))) . "\')", &mt("Before Due Date Block"), undef],               ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("preduedate"))) . "\')", &mt("Before Due Date Block"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("solved"))) . "\')", &mt("Block For After Solved"), undef],               ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("solved"))) . "\')", &mt("Block For After Solved"), undef],
                         ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("notsolved"))) . "\')", &mt("Block For When Not Solved"), undef]               ["javascript:insertText(\'" . &convert_for_js(&HTML::Entities::encode(&default_xml_tag("notsolved"))) . "\')", &mt("Block For When Not Solved"), undef]
         ];          ];
 }  }
   
Line 1639  sub misc_datastructure { Line 1639  sub misc_datastructure {
   
 # helper routine for the datastructure building subroutines  # helper routine for the datastructure building subroutines
 sub default_xml_tag {  sub default_xml_tag {
         my ($tag) = @_;      my ($tag) = @_;
         return "\n<$tag></$tag>";      return "\n<$tag></$tag>";
 }  }
   
   
 sub helpmenu_datastructure {  sub helpmenu_datastructure {
   
         my $width = 500;      my $width = 500;
         my $height = 600;      my $height = 600;
   
         my $helpers = [  
                 ['Problem_LON-CAPA_Functions', &mt('Script Functions')],  
                 ['Greek_Symbols', &mt('Greek Symbols')],  
                 ['Other_Symbols', &mt('Other Symbols')],  
                 ['Authoring_Output_Tags', &mt('Output Tags')],  
                 ['Authoring_Multilingual_Problems', &mt('Languages')],  
         ];  
   
         my $help_structure = [];  
   
         foreach my $count (0..(scalar(@{$helpers})-1)) {      my $helpers = [
                 my $filename = $helpers->[$count]->[0];                      ['Problem_LON-CAPA_Functions', &mt('Script Functions')],
                 my $title = $helpers->[$count]->[1];                      ['Greek_Symbols', &mt('Greek Symbols')],
                 my $href = &HTML::Entities::encode("javascript:openMyModal('/adm/help/$filename.hlp',$width,$height,'yes');");                      ['Other_Symbols', &mt('Other Symbols')],
                 push @{$help_structure}, [$href, $title, undef];                      ['Authoring_Output_Tags', &mt('Output Tags')],
         }                      ['Authoring_Multilingual_Problems', &mt('Languages')],
                      ];
   
       my $help_structure = [];
   
       foreach my $count (0..(scalar(@{$helpers})-1)) {
           my $filename = $helpers->[$count]->[0];
           my $title = $helpers->[$count]->[1];
           my $href = &HTML::Entities::encode("javascript:openMyModal('/adm/help/$filename.hlp',$width,$height,'yes');");
           push @{$help_structure}, [$href, $title, undef];
       }
   
         return $help_structure;      return $help_structure;
 }  }
   
 # we need substitution to not break javascript code  # we need substitution to not break javascript code
 sub convert_for_js {  sub convert_for_js {
     my $return = shift;      my $return = shift;
         $return =~ s|script|ESCAPEDSCRIPT|g;      $return =~ s|script|ESCAPEDSCRIPT|g;
         $return =~ s|\\|\\\\|g;      $return =~ s|\\|\\\\|g;
         $return =~ s|\n|\\r\\n|g;      $return =~ s|\n|\\r\\n|g;
         $return =~ s|'|\\'|g;      $return =~ s|'|\\'|g;
                 $return =~ s|&#39;|\\&#39;|g;      $return =~ s|&#39;|\\&#39;|g;
     return $return;      return $return;
 }  }
   
Removed from v.1.344.2.5  
changed lines
  Added in v.1.344.2.7

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