File:  [LON-CAPA] / loncom / homework / response.pm
Revision 1.7: download - view: text, annotated - select for diffs
Tue Nov 28 18:56:47 2000 UTC (23 years, 4 months ago) by www
Branches: MAIN
CVS tags: HEAD
New parameter format for metadata

# The LearningOnline Network with CAPA
# various response type definitons response definition

# 11/23,11/24,11/28 Gerd Kortemeyer

package Apache::response;
use strict;

sub BEGIN {
  &Apache::lonxml::register('Apache::response',('responseparam','caparesponse'));
}

sub meta_parameter_write {
    my ($partid,$name,$type,$default,$display)=@_;
    return '<parameter part="'.$partid.
	            '" name="'.$name.
                    '" type="'.$type.
                 '" default="'.$default.
	         '" display="'.$display.' [Part: '.$partid.']"></parameter>'
     ."\n";
}

sub meta_stores_write {
    my ($partid,$name,$type,$display)=@_;
    return '<stores part="'.$partid.
	         '" name="'.$name.
                 '" type="'.$type.
	      '" display="'.$display.' [Part: '.$partid.']"></stores>'
     ."\n";
}

sub mandatory_part_meta {
    my $partid=shift;
#
# Autogenerate metadata for mandatory
# input (from RAT or lonparmset) and 
# output (to lonspreadsheet)
# of each part
#
 return
    &meta_parameter_write($partid,'opendate','date_start','',
                          'Opening Date').
    &meta_parameter_write($partid,'duedate','date_end','',
                          'Due Date').
    &meta_parameter_write($partid,'answerdate','date_start','',
                          'Show Answer Date').
    &meta_parameter_write($partid,'weight','int_zeropos','',
                          'Available Points').
    &meta_parameter_write($partid,'maxtries','int_pos','',
                          'Maximum Number of Tries').

    &meta_stores_write($partid,'solved','string',
                          'Problem Status').
    &meta_stores_write($partid,'tries','int_zeropos',
                          'Number of Unsuccessful Tries').
    &meta_stores_write($partid,'awarded','float',
		          'Partial Credit Factor');
#
# Note: responseid-specific data 'submission' and 'awarddetail'
# not available to spreadsheet -> skip here
#
}

sub start_caparesponse {
  require Apache::caparesponse; 
  import Apache::caparesponse; 
  my ($target,$token,$parstack,$parser,$safeeval,$style)=@_;
#  print "\n<br>\nsimple caparesponse\n";
  Apache::caparesponse::start_caparesponse($target,$token,$parstack,$parser,$safeeval,$style);;
  return "";
}

sub start_responseparam {
  my ($target,$token,$parstack,$parser,$safeeval)=@_;
 if ($target ne 'meta') {
  my $args='';
  if ( $#$parstack > -1 ) { $args=$$parstack[$#$parstack]; }
  my $default = &Apache::run::run("{$args;".'return $default}',$safeeval);
  my $name = &Apache::run::run("{$args;".'return $name}',$safeeval);
  &Apache::lonxml::debug("looking for resource.$Apache::inputtags::part['-1'].$name");
  my $value = &Apache::lonnet::EXT("resource.$Apache::inputtags::part['-1'].$name");
  &Apache::lonxml::debug("$name has value :$value: and default :$default:");
  if (!$value) {
    $Apache::inputtags::params{$name}=$default;
  } else {
    $Apache::inputtags::params{$name}=$value;
  }
  return '';
} else {
    return &meta_parameter_write(
      $Apache::inputtags::part['-1'],
	$token->[2]->{'name'},
        $token->[2]->{'type'},
	$token->[2]->{'default'},
        $token->[2]->{'description'});
}
}

sub end_responseparam {
}

1;
__END__
 

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