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

Diff for /loncom/interface/lonparmset.pm between versions 1.135 and 1.137

version 1.135, 2003/11/17 20:56:30 version 1.137, 2003/11/18 22:21:00
Line 285  sub plink { Line 285  sub plink {
   
   
 sub startpage {  sub startpage {
     my ($r,$id,$udom,$csec,$uname,$have_assesments)=@_;      my ($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader)=@_;
   
     my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',      my $bodytag=&Apache::loncommon::bodytag('Set/Modify Course Parameters','',
                                             'onUnload="pclose()"');                                              'onUnload="pclose()"');
Line 354  sub startpage { Line 354  sub startpage {
 $selscript  $selscript
 </head>  </head>
 $bodytag  $bodytag
   ENDHEAD
   
       unless ($trimheader) {$r->print(<<ENDHEAD2);
 <form method="post" action="/adm/parmset" name="envform">  <form method="post" action="/adm/parmset" name="envform">
 <h4>$lt{'cep'}</h4>  <h4>$lt{'cep'}</h4>
 <input type="submit" name="crsenv" value="$lt{'scep'}" />  <input type="submit" name="crsenv" value="$lt{'scep'}" />
Line 370  $bodytag Line 372  $bodytag
 <input type="submit" name="overview" value="$lt{'mcap'}" />  <input type="submit" name="overview" value="$lt{'mcap'}" />
 </form>  </form>
 <hr />  <hr />
   ENDHEAD2
   }
       $r->print(<<ENDHEAD3);
 <form method="post" action="/adm/parmset" name="parmform">  <form method="post" action="/adm/parmset" name="parmform">
 <h4>$lt{'captm'}</h4>  <h4>$lt{'captm'}</h4>
 ENDHEAD  ENDHEAD3
   
     if (!$have_assesments) {      if (!$have_assesments) {
  $r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');   $r->print('<font color="red">'.&mt('There are no assesment parameters in this course to set.').'</font><br />');
Line 485  sub print_row { Line 490  sub print_row {
         } # end of $brief if/else          } # end of $brief if/else
     } # end of $parmlev if/else      } # end of $parmlev if/else
   
     if ($parmlev eq 'full' || $parmlev eq 'brief') {      $r->print('<td bgcolor=#CCCCFF align="center">'.
         $r->print('<td bgcolor=#CCCCFF align="center">'.  
                   &valout($outpar[$result],$typeoutpar[$result]).'</td>');                    &valout($outpar[$result],$typeoutpar[$result]).'</td>');
     }  
     my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.      if ($parmlev eq 'full' || $parmlev eq 'brief') {
           my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                                         '.'.$$name{$which},$symbp{$rid});                                          '.'.$$name{$which},$symbp{$rid});
   
 # this doesn't seem to work, and I don't think is correct  # this doesn't seem to work, and I don't think is correct
 #    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.  #    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
 #                                      '.'.$$name{$which}.'.type',$symbp{$rid});  #                                      '.'.$$name{$which}.'.type',$symbp{$rid});
 # this seems to work  # this seems to work
     my $sessionvaltype=$typeoutpar[$result];          my $sessionvaltype=$typeoutpar[$result];
     if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }          if (!defined($sessionvaltype)) { $sessionvaltype=$$defaulttype{$which}; }
     $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.          $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
                   &valout($sessionval,$sessionvaltype).'&nbsp;'.                    &valout($sessionval,$sessionvaltype).'&nbsp;'.
                   '</font></td>');                    '</font></td>');
       }
     $r->print('</tr>');      $r->print('</tr>');
     $r->print("\n");      $r->print("\n");
 }  }
Line 687  sub assessparms { Line 694  sub assessparms {
   
     my $pssymb='';      my $pssymb='';
     my $parmlev='';      my $parmlev='';
       my $trimheader='';
     my $prevvisit=$ENV{'form.prevvisit'};      my $prevvisit=$ENV{'form.prevvisit'};
   
 #    unless ($parmlev==$ENV{'form.parmlev'}) {  #    unless ($parmlev==$ENV{'form.parmlev'}) {
Line 709  sub assessparms { Line 717  sub assessparms {
  if (!@pscat) { @pscat=('all'); }   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
           $trimheader='yes';
     } elsif ($ENV{'form.symb'}) {      } elsif ($ENV{'form.symb'}) {
  $pssymb=$ENV{'form.symb'};   $pssymb=$ENV{'form.symb'};
  if (!@pscat) { @pscat=('all'); }   if (!@pscat) { @pscat=('all'); }
  $pschp='';   $pschp='';
         $parmlev = 'full';          $parmlev = 'full';
           $trimheader='yes';
     } else {      } else {
  $ENV{'form.url'}='';   $ENV{'form.url'}='';
     }      }
Line 903  sub assessparms { Line 913  sub assessparms {
     my $have_assesments=1;      my $have_assesments=1;
     if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }      if (scalar(keys(%allkeys)) eq 0) { $have_assesments=0; }
   
     &startpage($r,$id,$udom,$csec,$uname,$have_assesments);      &startpage($r,$id,$udom,$csec,$uname,$have_assesments,$trimheader);
   
     if (!$have_assesments) {      if (!$have_assesments) {
  untie(%bighash);   untie(%bighash);
Removed from v.1.135  
changed lines
  Added in v.1.137

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