[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.6

version 1.344.2.5, 2016/09/14 16:36:49 version 1.344.2.6, 2016/09/16 14:44:14
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.6

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