loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.10, 2001/11/29 23:16:29
+version 1.11, 2001/12/07 23:41:25
  Line 111  sub get_student_view {
    return $userview;
  }
+ sub get_student_answers {
+   my ($symb,$username,$domain,$courseid) = @_;
+   my ($map,$id,$feedurl) = split(/___/,$symb);
+   my (%old,%moreenv);
+   my @elements=('symb','courseid','domain','username');
+   foreach my $element (@elements) {
+     $old{$element}=$ENV{'form.grade_'.$element};
+     $moreenv{'form.grade_'.$element}=eval '$'.$element #'
+   }
+   $moreenv{'form.grade_target'}='answer';
+   &Apache::lonnet::appenv(%moreenv);
+   my $userview=&Apache::lonnet::ssi('/res/'.$feedurl);
+   &Apache::lonnet::delenv('form.grade_');
+   foreach my $element (@elements) {
+     $ENV{'form.grade_'.$element}=$old{$element};
+   }
+   $userview=~s/\<body[^\>]*\>//gi;
+   $userview=~s/\<\/body\>//gi;
+   $userview=~s/\<html\>//gi;
+   $userview=~s/\<\/html\>//gi;
+   $userview=~s/\<head\>//gi;
+   $userview=~s/\<\/head\>//gi;
+   $userview=~s/action\s*\=/would_be_action\=/gi;
+   return $userview;
+ }
  sub get_unprocessed_cgi {
    my ($query)= @_;
    map {