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

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

version 1.122, 2003/09/04 01:09:04 version 1.123, 2003/09/04 22:36:47
Line 1678  sub overview { Line 1678  sub overview {
 <title>LON-CAPA Course Environment</title>  <title>LON-CAPA Course Environment</title>
 </head>  </head>
 $bodytag  $bodytag
 <form method="post" action="/adm/parmset" name="overview">  <form method="post" action="/adm/parmset" name="overviewform">
 <input type="hidden" name="overview" value="1" />  <input type="hidden" name="overview" value="1" />
 ENDOVER  ENDOVER
 # Read and display  # Read and display
Line 1686  ENDOVER Line 1686  ENDOVER
     my $oldsection='';      my $oldsection='';
     my $oldrealm='';      my $oldrealm='';
     my $oldpart='';      my $oldpart='';
       my $pointer=0;
     foreach my $thiskey (sort keys %resourcedata) {      foreach my $thiskey (sort keys %resourcedata) {
  my ($course,$middle,$part,$name)=   if ($resourcedata{$thiskey.'.type'}) {
     ($thiskey=~/^(\w+)\.(.*)\.*([\w\s]+)\.(\w+)$/);      my ($course,$middle,$part,$name)=
  unless ($name eq 'type') {   ($thiskey=~/^(\w+)\.(?:(.+)\.)*([\w\s]+)\.(\w+)$/);
     my $section='All Students';      my $section='All Students';
     if ($middle=~/^\[(.*)\]\./) {      if ($middle=~/^\[(.*)\]\./) {
  $section='Group/Section: '.$1;   $section='Group/Section: '.$1;
  $middle=~s/^\[(.*)\]\.//;   $middle=~s/^\[(.*)\]\.//;
     }      }
     my $realm='All Resources';      $middle=~s/\.$//;
       my $realm='<font color="red">All Resources</font>';
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {      if ($middle=~/^(.+)\_\_\_\(all\)$/) {
  $realm='Folder/Map: '.$1;   $realm='<font color="green">Folder/Map: '.&Apache::lonnet::gettitle($1).'</font>';
     } elsif ($middle) {      } elsif ($middle) {
  $realm='Resource: '.$middle;   $realm='<font color="orange">Resource: '.&Apache::lonnet::gettitle($middle).'</font>';
     }      }
     if ($section ne $oldsection) {      if ($section ne $oldsection) {
  $r->print("\n<hr /><h1>$section</h1>");   $r->print("\n<hr /><h1>$section</h1>");
Line 1712  ENDOVER Line 1714  ENDOVER
  $oldpart='';   $oldpart='';
     }      }
     if ($part ne $oldpart) {      if ($part ne $oldpart) {
  $r->print("\n<h3>Part: $part</h3>");   $r->print("\n<h3><font color='blue'>Part: $part</font></h3>");
  $oldpart=$part;   $oldpart=$part;
     }      }
   #
     $r->print('<br />'.$name.': '.$thiskey.' = '.$resourcedata{$thiskey});  # Ready to print
   #
       $r->print('<br /><b>'.$name.':</b>');
       if ($resourcedata{$thiskey.'.type'}=~/^date/) {
    my $jskey='key_'.$pointer;
    $pointer++;
    $r->print(
     &Apache::lonhtmlcommon::date_setter('overviewform',
         $jskey,
         $resourcedata{$thiskey}).
   '<input type="hidden" name="datepointer_'.$thiskey.'" value="'.$jskey.'" />'
     );
       } else {
    $r->print(
     '<input type="text" name="set_'.$thiskey.'" value="'.
     $resourcedata{$thiskey}.'">');
       }
  }   }
     }      }
     $r->print('</form></body></html>');      $r->print('</form></body></html>');
Removed from v.1.122  
changed lines
  Added in v.1.123

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