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

Diff for /loncom/homework/structuretags.pm between versions 1.417 and 1.420

version 1.417, 2008/01/28 21:42:28 version 1.420, 2008/05/27 19:48:55
Line 451  $show_all Line 451  $show_all
 $show_all  $show_all
 ";  ";
     }      }
       if (($env{'form.problemlanguage'}) && ($env{'form.problemlanguage'}!~/notset/)) {
          $env{'environment.languages'}=$env{'form.problemlanguage'};
       }
       my %langchoices=('' => '');
       foreach (&Apache::loncommon::languageids()) {
           if (&Apache::loncommon::supportedlanguagecode($_)) {
               $langchoices{&Apache::loncommon::supportedlanguagecode($_)}
                          = &Apache::loncommon::plainlanguagedescription($_);
           }
       }
     $result.='      $result.='
        <span class="LC_nobreak">         <span class="LC_nobreak">
        '.&mt('Apply style file: ').'         '.&mt('Apply style file: ').'
          <input type="text" name="style_file" value="'.&HTML::Entities::encode($env{'construct.style'},'"<>&').'" />           <input type="text" name="style_file" value="'.&HTML::Entities::encode($env{'construct.style'},'"<>&').'" />
          <a href="javascript:openbrowser(\'lonhomework\',\'style_file\',\'sty\')">'.&mt('Select').'</a>           <a href="javascript:openbrowser(\'lonhomework\',\'style_file\',\'sty\')">'.&mt('Select').'</a>
        </span>         </span>
          </div><div class="LC_edit_problem_header_row1">
          <span class="LC_nobreak">'.
          &mt('Language: ').
          &Apache::loncommon::select_form($env{'environment.languages'},'problemlanguage',
                                                        %langchoices).'
        </span>
      </div>       </div>
      <input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />       <input type="submit" name="changeproblemmode" value="'.&mt("Change View").'" />
      <input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />       <input type="submit" name="clear_style_file" accesskey="d" value="'.&mt('Show Default View').'" />
Line 477  $show_all Line 492  $show_all
  $result .= '<span class="LC_nobreak">'.   $result .= '<span class="LC_nobreak">'.
     &mt('[_1] for [_2] versions.',      &mt('[_1] for [_2] versions.',
  '<input type="button" name="submitmode" value="'.&mt('Calculate answers').'" '.   '<input type="button" name="submitmode" value="'.&mt('Calculate answers').'" '.
                 'onclick="javascript:setmode(this.form,'."'calcanswers'".')" />                  'onclick="javascript:setmode(this.form,'."'calcanswers'".')" />'
  <input type="text" name="numtoanalyze" value="'.                 ,'<input type="text" name="numtoanalyze" value="'.
  $numtoanalyze.'" size="5" />').   $numtoanalyze.'" size="5" />').
  &Apache::loncommon::help_open_topic("Analyze_Problem",'',undef,undef,300).   &Apache::loncommon::help_open_topic("Analyze_Problem",'',undef,undef,300).
  '</span>';   '</span>';
Line 645  sub firstaccess_msg { Line 660  sub firstaccess_msg {
  my $foldertitle=&Apache::lonnet::gettitle($map);   my $foldertitle=&Apache::lonnet::gettitle($map);
           
  &Apache::lonxml::debug("map is $map title is $foldertitle");   &Apache::lonxml::debug("map is $map title is $foldertitle");
  $result .= (<<ENDCHECKOUT);   $result .= "<h2>".&mt('The resources in "[_1]" are open for a limited time.'
 <h2>The resources in "$foldertitle" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources "$foldertitle".</h2>                               .' Once you click the "Show Resource" button below you have [_2] to complete all resources "[_1]".'
 ENDCHECKOUT                               ,$foldertitle,$time)."</h2>";
     } elsif ($interval[1] eq 'course') {      } elsif ($interval[1] eq 'course') {
  my $course = $env{'course.'.$env{'request.course.id'}.'.description'};   my $course = $env{'course.'.$env{'request.course.id'}.'.description'};
  $result .= (<<ENDCHECKOUT);          $result .= "<h2>".&mt('The resources in "[_1]" are open for a limited time.'
 <h2>The resources in "$course" are open for a limited time. Once you click the 'Show Resource' button below you have $time to complete all resources in "$course".</h2>                               .' Once you click the "Show Resource" button below you have [_2] to complete all resources "[_1]".'
 ENDCHECKOUT                               ,$course,$time)."</h2>";
     } else {      } else {
  my $title=&Apache::lonnet::gettitle($symb);   my $title=&Apache::lonnet::gettitle($symb);
  $result .= (<<ENDCHECKOUT);          $result .= "<h2>".&mt('This resource "[_1]" is open for a limited time.'
 <h2>This resource "$title" is open for a limited time. Once you click the 'Show Resource' button below you have $time to complete this resource "$title".</h2>                               .' Once you click the "Show Resource" button below you have [_2] to complete this resource "[_1]".'
 ENDCHECKOUT                               ,$title,$time)."</h2>";
   
     }      }
     my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});      my $uri = &Apache::lonenc::check_encrypt($env{'request.uri'});
       my $buttontext = &mt('Show Resource');
       my $timertext = &mt('Start Timer?');
     $result .= (<<ENDCHECKOUT);      $result .= (<<ENDCHECKOUT);
 <form name="markaccess" method="POST" action="$uri">  <form name="markaccess" method="POST" action="$uri">
 <input type="hidden" name="markaccess" value="yes" />  <input type="hidden" name="markaccess" value="yes" />
 <input type="button" name="accessbutton" value="Show Resource" onClick="javascript:if (confirm('Start Timer?')) { document.markaccess.submit(); }" />  <input type="button" name="accessbutton" value="$buttontext" onClick="javascript:if (confirm('$timertext')) { document.markaccess.submit(); }" />
 </form>  </form>
 ENDCHECKOUT  ENDCHECKOUT
     return $result;      return $result;
Removed from v.1.417  
changed lines
  Added in v.1.420

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