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

Diff for /loncom/interface/lonparmset.pm between versions 1.190 and 1.192

version 1.190, 2005/04/07 06:56:23 version 1.192, 2005/05/06 19:00:31
Line 279  sub storeparm { Line 279  sub storeparm {
     $reply=&Apache::lonnet::cput      $reply=&Apache::lonnet::cput
  ('resourcedata',\%storecontent,$udom,$uname);   ('resourcedata',\%storecontent,$udom,$uname);
  }   }
    &Apache::lonnet::devalidateuserresdata($uname,$udom);
     }      }
           
     if ($reply=~/^error\:(.*)/) {      if ($reply=~/^error\:(.*)/) {
Line 712  sub extractResourceInformation { Line 713  sub extractResourceInformation {
                     my $name=&Apache::lonnet::metadata($srcf,$key.'.name');                      my $name=&Apache::lonnet::metadata($srcf,$key.'.name');
                     my $part= &Apache::lonnet::metadata($srcf,$key.'.part');                      my $part= &Apache::lonnet::metadata($srcf,$key.'.part');
                     my $parmdis = $display;                      my $parmdis = $display;
                     $parmdis =~ s|(\[Part.*$)||g;                      $parmdis =~ s|(\[Part.*)$||g;
                     my $partkey = $part;                      my $partkey = $part;
                     $partkey =~ tr|_|.|;                      $partkey =~ tr|_|.|;
                     $$allparms{$name} = $parmdis;                      $$allparms{$name} = $parmdis;
Line 933  sub assessparms { Line 934  sub assessparms {
     &Apache::lonnet::devalidatecourseresdata(      &Apache::lonnet::devalidatecourseresdata(
                  $env{'course.'.$env{'request.course.id'}.'.num'},                   $env{'course.'.$env{'request.course.id'}.'.num'},
                  $env{'course.'.$env{'request.course.id'}.'.domain'});                   $env{'course.'.$env{'request.course.id'}.'.domain'});
     &Apache::lonnet::clear_EXT_cache_status();      #&Apache::lonnet::clear_EXT_cache_status();
 # -------------------------------------------------------------- Get coursedata  # -------------------------------------------------------------- Get coursedata
     %courseopt = &Apache::lonnet::dump      %courseopt = &Apache::lonnet::dump
         ('resourcedata',          ('resourcedata',
Line 1190  ENDTABLETWO Line 1191  ENDTABLETWO
            $r->print(<<ENDTABLEHEADFOUR);             $r->print(<<ENDTABLEHEADFOUR);
 </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>  </tr><tr><th>$lt{'aut'}</th><th>$lt{'type'}</th>
 <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>  <th>$lt{'emof'}</th><th>$lt{'part'}</th><th>$lt{'pn'}</th>
 <th>$lt{'gen'}</th><th>$lt{'femof'}</th>  <th>$lt{'gen'}</th><th>$lt{'foremf'}</th>
 <th>$lt{'def'}</th><th>$lt{'foremf'}</th><th>$lt{'fr'}</th>  <th>$lt{'def'}</th><th>$lt{'femof'}</th><th>$lt{'fr'}</th>
 ENDTABLEHEADFOUR  ENDTABLEHEADFOUR
   
            if ($csec) {             if ($csec) {
Removed from v.1.190  
changed lines
  Added in v.1.192

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