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

Diff for /loncom/homework/lonhomework.pm between versions 1.312 and 1.318

version 1.312, 2009/06/09 16:33:55 version 1.318, 2010/03/10 21:25:36
Line 715  sub analyze_header { Line 715  sub analyze_header {
             'onclick="javascript:setmode(this.form,'."'editxml'".')" />              'onclick="javascript:setmode(this.form,'."'editxml'".')" />
             <input type="button" name="submitmode" value="'.&mt('Edit').'" '.              <input type="button" name="submitmode" value="'.&mt('Edit').'" '.
             'onclick="javascript:setmode(this.form,'."'edit'".')" />              'onclick="javascript:setmode(this.form,'."'edit'".')" />
             <hr class="LC_edit_problem_divide" />              <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 class="LC_edit_problem_divide" />              <hr />
             </div>              </div>
             </form>';              </form>';
     &Apache::lonxml::add_messages(\$result);      &Apache::lonxml::add_messages(\$result);
Line 792  sub analyze { Line 792  sub analyze {
     }      }
     &Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,      &Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state,
   &mt('Analyzing Results'));    &mt('Analyzing Results'));
     $request->print('<hr class="LC_edit_problem_divide" />'      $request->print('<hr />'
                    .'<h3>'                     .'<h3>'
                    .&mt('List of possible answers')                     .&mt('List of possible answers')
                    .'</h3>'                     .'</h3>'
Line 923  sub editxmlmode { Line 923  sub editxmlmode {
     &Apache::loncommon::resize_textarea_js().      &Apache::loncommon::resize_textarea_js().
             &Apache::structuretags::setmode_javascript().              &Apache::structuretags::setmode_javascript().
             &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");              &Apache::lonhtmlcommon::dragmath_js("EditMathPopup");
  my $only_body =  ($env{'environment.remote'} eq 'off')? 0 : 1;  
  my $dragmath_button =    my $dragmath_button = 
             &Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);              &Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);
   
Line 936  sub editxmlmode { Line 935  sub editxmlmode {
  my $start_page =    my $start_page = 
     &Apache::loncommon::start_page(&mt("EditXML [_1]",$file),$js,      &Apache::loncommon::start_page(&mt("EditXML [_1]",$file),$js,
    {'no_auto_mt_title' => 1,     {'no_auto_mt_title' => 1,
     'only_body'        => $only_body,      'only_body'        => 0,
     'add_entries'      => {      'add_entries'      => {
  'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],   'onresize' => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],
  'onload'   => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],   'onload'   => q[resize_textarea('LC_editxmltext','LC_aftertextarea')],
Line 953  sub editxmlmode { Line 952  sub editxmlmode {
     &Apache::structuretags::remember_problem_state().'      &Apache::structuretags::remember_problem_state().'
             <div class="LC_edit_problem_editxml_header">              <div class="LC_edit_problem_editxml_header">
               <table class="LC_edit_problem_header_title"><tr><td>                <table class="LC_edit_problem_header_title"><tr><td>
                '.&mt('Problem Editing').&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').'                 <h2>'.&mt('Problem Editing').' '.&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index').'</h2>
                 </td><td align="right">                  </td><td align="right">
                   '.&Apache::loncommon::helpLatexCheatsheet('Problem_LON-CAPA_Functions','Script Functions').'                    '.&Apache::loncommon::helpLatexCheatsheet('Problem_LON-CAPA_Functions','Script Functions').'
                 </td></tr>                  </td></tr>
Line 971  sub editxmlmode { Line 970  sub editxmlmode {
                 <input type="submit" name="submitbutton" accesskey="s" value="'.&mt('Save').'"  />                  <input type="submit" name="submitbutton" accesskey="s" value="'.&mt('Save').'"  />
                 <input type="submit" name="submitbutton" accesskey="v" value="'.&mt('Save and View').'" />                  <input type="submit" name="submitbutton" accesskey="v" value="'.&mt('Save and View').'" />
               </div>                </div>
               <hr class="LC_edit_problem_divide" />                <hr style="clear:both;" />
       '.&Apache::lonxml::message_location().'        '.&Apache::lonxml::message_location().'
             </div>              </div>
             '  . '              '  . '
Line 1101  sub get_template_list { Line 1100  sub get_template_list {
     }      }
     my $count = 0;      my $count = 0;
     my $currentcategory='';      my $currentcategory='';
       my $first = 1;
     foreach my $file (@files) {      foreach my $file (@files) {
  next if ($file->[1] !~ /\S/);   next if ($file->[1] !~ /\S/);
         if ($file->[2] ne $currentcategory) {          if ($file->[2] ne $currentcategory) {
            $currentcategory=$file->[2];             $currentcategory=$file->[2];
            if ((!$seconddiv) && ($count >= $midpoint)) {             if ((!$seconddiv) && ($count >= $midpoint)) {
                $result .= '</div>'."\n".'<div class="LC_left_float">'."\n";                 $result .= '</div></div>'."\n".'<div class="LC_left_float">'."\n";
                $seconddiv = 1;                 $seconddiv = 1;
              } elsif (!$first) {
                  $result.='</div>'."\n";
              } else {
                  $first = 0;
            }             }
            $result.='<h3>'.$currentcategory.'</h3>';             $result.= '<div class="LC_Box">'."\n"
                       .'<h3 class="LC_hcell">'.$currentcategory.'</h3>'."\n";
            $count++;             $count++;
         }          }
  $result .=   $result .=
Line 1120  sub get_template_list { Line 1125  sub get_template_list {
         }          }
         my $filename=$file->[0];          my $filename=$file->[0];
         $filename=~s/^\/home\/httpd\/html//;          $filename=~s/^\/home\/httpd\/html//;
         $result.=' <font size="-2"><a href="'.$filename.'" target="sample">'.&mt('Example').'</font></a><br />'."\n";          $result.=' <span class="LC_fontsize_small">'
                   .'<a href="'.$filename.'?inhibitmenu=yes" target="sample">'.&mt('Example').'</a>'
                   .'</span><br />'."\n";
         $count ++;          $count ++;
     }      }
     if ($numfiles > 0) {      if ($numfiles > 0) {
         $result .= '</div>'."\n".'<div class="LC_clear_float_footer"></div>'."\n";          $result .= '</div></div>'."\n".'<div class="LC_clear_float_footer"></div>'."\n";
     }      }
     return $result;      return $result;
 }  }
Line 1173  sub newproblem { Line 1180  sub newproblem {
        .'<h1>'.&mt("Creating a new $extension resource.")."</h1>         .'<h1>'.&mt("Creating a new $extension resource.")."</h1>
 $errormsg  $errormsg
 ".&mt("The requested file [_1] currently does not exist.",  ".&mt("The requested file [_1] currently does not exist.",
       '<span class="LC_filename">'.$shownurl.'</span>')."        '<span class="LC_filename">'.$shownurl.'</span>').'
 <p>  <p class="LC_info">
 <b>  '.&mt("To create a new $extension, select a template from the".
 ".&mt("To create a new $extension, select a template from the".        " list below. Then click on the \"Create $extension\" button.").'
       " list below. Then click on the \"Create $extension\" button.").'</b>  </p><div><form action="'.$url.'" method="post">');
 </p><form action="'.$url.'" method="post">');  
   
  if (defined($templatelist)) {   if (defined($templatelist)) {
     $request->print($templatelist);      $request->print($templatelist);
  }   }
  $request->print('<br /><input type="submit" name="newfile" value="'.   $request->print('<br /><input type="submit" name="newfile" value="'.
  &mt("Create $extension").'" />');   &mt("Create $extension").'" />');
  $request->print("</form></p>".&Apache::loncommon::end_page());   $request->print('</form></div>'.&Apache::loncommon::end_page());
     }      }
     return;      return;
 }  }
Removed from v.1.312  
changed lines
  Added in v.1.318

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