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

Diff for /loncom/interface/lonparmset.pm between versions 1.121 and 1.122

version 1.121, 2003/09/03 21:24:32 version 1.122, 2003/09/04 01:09:04
Line 1672  sub overview { Line 1672  sub overview {
                              'Set/Modify Course Assessment Parameters');                               'Set/Modify Course Assessment Parameters');
     my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $dom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};
     my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};      my $crs = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};
     my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);  
     $r->print(<<ENDOVER);      $r->print(<<ENDOVER);
 <html>  <html>
 <head>  <head>
Line 1682  $bodytag Line 1681  $bodytag
 <form method="post" action="/adm/parmset" name="overview">  <form method="post" action="/adm/parmset" name="overview">
 <input type="hidden" name="overview" value="1" />  <input type="hidden" name="overview" value="1" />
 ENDOVER  ENDOVER
     foreach (sort keys %resourcedata) {  # Read and display
  $r->print($_.' - '.$resourcedata{$_}.'<br />');      my %resourcedata=&Apache::lonnet::dump('resourcedata',$dom,$crs);
       my $oldsection='';
       my $oldrealm='';
       my $oldpart='';
       foreach my $thiskey (sort keys %resourcedata) {
    my ($course,$middle,$part,$name)=
       ($thiskey=~/^(\w+)\.(.*)\.*([\w\s]+)\.(\w+)$/);
    unless ($name eq 'type') {
       my $section='All Students';
       if ($middle=~/^\[(.*)\]\./) {
    $section='Group/Section: '.$1;
    $middle=~s/^\[(.*)\]\.//;
       }
       my $realm='All Resources';
       if ($middle=~/^(.+)\_\_\_\(all\)$/) {
    $realm='Folder/Map: '.$1;
       } elsif ($middle) {
    $realm='Resource: '.$middle;
       }
       if ($section ne $oldsection) {
    $r->print("\n<hr /><h1>$section</h1>");
    $oldsection=$section;
    $oldrealm='';
       }
       if ($realm ne $oldrealm) {
    $r->print("\n<h2>$realm</h2>");
    $oldrealm=$realm;
    $oldpart='';
       }
       if ($part ne $oldpart) {
    $r->print("\n<h3>Part: $part</h3>");
    $oldpart=$part;
       }
   
       $r->print('<br />'.$name.': '.$thiskey.' = '.$resourcedata{$thiskey});
    }
     }      }
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
 }  }
Removed from v.1.121  
changed lines
  Added in v.1.122

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