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

Diff for /loncom/interface/lonprintout.pm between versions 1.263 and 1.264

version 1.263, 2003/11/10 23:26:42 version 1.264, 2003/11/11 16:53:48
Line 654  sub output_data { Line 654  sub output_data {
     my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');      my $bodytag=&Apache::loncommon::bodytag('Preparing Printout');
     $r->print(<<ENDPART);      $r->print(<<ENDPART);
 <html>  <html>
   <script type="text/javascript" language="Javascript" >
       var editbrowser;
       function openbrowser(formname,elementname,only,omit) {
           var url = '/res/?';
           if (editbrowser == null) {
               url += 'launch=1&';
           }
           url += 'catalogmode=interactive&';
           url += 'mode=parmset&';
           url += 'form=' + formname + '&';
           if (only != null) {
               url += 'only=' + only + '&';
           } 
           if (omit != null) {
               url += 'omit=' + omit + '&';
           }
           url += 'element=' + elementname + '';
           var title = 'Browser';
           var options = 'scrollbars=1,resizable=1,menubar=0';
           options += ',width=700,height=600';
           editbrowser = open(url,title,options,'1');
           editbrowser.focus();
       }
   </script>
 <head>  <head>
 <title>LON-CAPA output for printing</title>  <title>LON-CAPA output for printing</title>
 </head>  </head>
Line 701  ENDPART Line 725  ENDPART
     if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {      if ($helper->{'VARS'}->{'ANSWER_TYPE'} ne 'only') {
  my %moreenv;   my %moreenv;
  $moreenv{'request.filename'}=$currentURL;   $moreenv{'request.filename'}=$currentURL;
  if ($helper->{'VARS'}->{'style_file'}=~/\w/) {$moreenv{'construction_space_style'}=$helper->{'VARS'}->{'style_file'};}   if ($helper->{'VARS'}->{'style_file'}=~/\w/) {$moreenv{'construct.style'}=$helper->{'VARS'}->{'style_file'};}
  my %form;   my %form;
  $form{'grade_target'}='tex';   $form{'grade_target'}='tex';
  $form{'textwidth'}=$LaTeXwidth;   $form{'textwidth'}=$LaTeXwidth;
Line 1088  ENDPART Line 1112  ENDPART
  return SERVER_ERROR;    return SERVER_ERROR; 
     }      }
   
     my $identifier = &Apache::loncommon::get_cgi_id();      my $identifier = time.'_'.int(rand(1000));
     &Apache::lonnet::appenv('cgi.'.$identifier.'.file'   => $filename,      &Apache::lonnet::appenv('cgi.'.$identifier.'.file'   => $filename,
                             'cgi.'.$identifier.'.layout'  => $laystyle,                              'cgi.'.$identifier.'.layout'  => $laystyle,
                             'cgi.'.$identifier.'.numcol'  => $numberofcolumns,                              'cgi.'.$identifier.'.numcol'  => $numberofcolumns,
Line 1130  sub handler { Line 1154  sub handler {
 # foreach $key (keys %{$helper->{'VARS'}}) {  # foreach $key (keys %{$helper->{'VARS'}}) {
 #    $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');  #    $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');
 # }  # }
   # foreach $key (keys %ENV) {
   #    $r->print(' '.$key.'->'.$ENV{$key}.'<-<br />');
   # }
 # return OK;  # return OK;
   
     my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});      my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});
Line 1526  CHOOSE_FROM_ANY_SEQUENCE Line 1553  CHOOSE_FROM_ANY_SEQUENCE
     addMessage("</td></tr>");      addMessage("</td></tr>");
  }   }
   
  if ($helper->{VARS}->{'construction'}) {  
     addMessage("<tr><td align='right'>Print With URL: </td><td>");  
     $paramHash = Apache::lonhelper::getParamHash();  
     $paramHash->{'variable'} = 'CONSTR_RESOURSE_URL';     
     $helper->declareVar('CONSTR_RESOURSE_URL');           
     $paramHash->{CHOICES} = [  
      ['No', 'no'],  
      ['Yes', 'yes'] ];  
     Apache::lonhelper::dropdown->new();  
     addMessage("</td></tr>");  
  }  
  if ($helper->{'VARS'}->{'construction'}) {    if ($helper->{'VARS'}->{'construction'}) { 
     my $xmlfrag .= <<'RNDSEED';      my $xmlfrag .= <<'RNDSEED';
     <message><tr><td align='right'>Use random seed: </td><td></message>      <message><tr><td align='right'>Use random seed: </td><td></message>
Line 1545  CHOOSE_FROM_ANY_SEQUENCE Line 1561  CHOOSE_FROM_ANY_SEQUENCE
             return $helper->{VARS}->{'curseed'};              return $helper->{VARS}->{'curseed'};
         </defaultvalue>          </defaultvalue>
     </string>      </string>
      <message></td></tr><tr><td align="right">Use style file: </td><td></message>       <message></td></tr><tr><td align="right">Use style file:</td><td></message>
     <string variable="style_file" size="25" maxlength="50">               <message><input type="text" size="40" name="style_file_value" value=""  /><a href="javascript:openbrowser('helpform','style_file','sty')">&nbsp; Select style file</a> </td><td></message>
     </string>  
              <message></td></tr></message>               <message></td></tr></message>
 RNDSEED  RNDSEED
             &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);              &Apache::lonxml::xmlparse($r, 'helper', $xmlfrag);
       $helper->{'VARS'}->{'style_file'}=$ENV{'form.style_file_value'};
  }   }
     }      }
   
   
   
   
     if ($startedTable) {      if ($startedTable) {
  addMessage("</table>");   addMessage("</table>");
     }      }
Removed from v.1.263  
changed lines
  Added in v.1.264

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