loncom/homework/outputtags.pm - diff

Return to outputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

-version 1.26, 2003/05/02 18:56:29
+version 1.27, 2003/05/02 19:10:43
  Line 123  sub start_displayweight {
      my $status=$Apache::inputtags::status['-1'];
      if ($target eq 'web' || $target eq 'tex') {
  	my $id = $Apache::inputtags::part;
- 	my $weight = &Apache::lonnet::EXT("resource.$id.weight");
+ 	if ($id ne '0') {
- 	&Apache::lonxml::debug("duedatebox found $weight for $id");
+ 	    my $weight = &Apache::lonnet::EXT("resource.$id.weight");
- 	if (!defined($weight) || ($weight eq '')) { $weight=1; }
+ 	    if (!defined($weight) || ($weight eq '')) { $weight=1; }
- 	$result.=$weight;
+ 	    $result.=$weight;
+ 	} else {
+ 	    my $metadata = &Apache::lonnet::metadata($ENV{'request.uri'},
+ 						     'packages');
+ 	    &Apache::lonxml::debug("metadata for $ENV{'request.uri'} is $metadata");
+ 	    my $weight;
+ 	    foreach (split(/\,/,$metadata)) {
+ 		if ($_ =~ /^part_(.*)$/) {
+ 		    my $part = $1;
+ 		    my $pweight=&Apache::lonnet::EXT("resource.$part.weight");
+ 		    if (!defined($pweight) || ($pweight eq '')) { $pweight=1; }
+ 		    $weight+=$pweight;
+ 		}
+ 	    }
+ 	    $result=$weight;
+ 	}
      } elsif ( $target eq 'edit' ) {
  	$result=&Apache::edit::tag_start($target,$token);
  	$result.='</td></tr>';