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

Diff for /loncom/homework/outputtags.pm between versions 1.28 and 1.29

version 1.28, 2003/05/02 19:11:12 version 1.29, 2003/05/03 21:09:03
Line 109  sub end_displaytitle { Line 109  sub end_displaytitle {
     return @result;      return @result;
 }  }
   
   sub multipart {
       my ($uri)=@_;
       if (!defined($uri)) { $uri=$ENV{'request.uri'}; }
       my @parts;
       my $metadata = &Apache::lonnet::metadata($uri,'packages');
       foreach (split(/\,/,$metadata)) {
    if ($_ =~ /^part_(.*)$/) {
       my $part = $1;
       if ($part ne '0') { push(@parts,$part); }
    }
       }
       return @parts;
   }
   
 sub start_displayweight {  sub start_displayweight {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;      my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
     my $result;      my $result;
Line 128  sub start_displayweight { Line 142  sub start_displayweight {
     if (!defined($weight) || ($weight eq '')) { $weight=1; }      if (!defined($weight) || ($weight eq '')) { $weight=1; }
     $result.=$weight;      $result.=$weight;
  } else {   } else {
     my $metadata = &Apache::lonnet::metadata($ENV{'request.uri'},      my @parts=&multipart($ENV{'request.uri'});
      'packages');  
     my $weight;      my $weight;
     foreach (split(/\,/,$metadata)) {      foreach my $part (@parts) {
  if ($_ =~ /^part_(.*)$/) {   my $pweight=&Apache::lonnet::EXT("resource.$part.weight");
     my $part = $1;   if (!defined($pweight) || ($pweight eq '')) { $pweight=1; }
     my $pweight=&Apache::lonnet::EXT("resource.$part.weight");   $weight+=$pweight;
     if (!defined($pweight) || ($pweight eq '')) { $pweight=1; }  
     $weight+=$pweight;  
  }  
     }      }
     $result=$weight;      $result=$weight;
  }   }
Removed from v.1.28  
changed lines
  Added in v.1.29

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