[LON-CAPA-cvs] cvs: loncom / startup.pl /homework lonhomework.pm response.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 29 Jul 2002 20:40:34 -0000


albertel		Mon Jul 29 16:40:34 2002 EDT

  Modified files:              
    /loncom	startup.pl 
    /loncom/homework	lonhomework.pm response.pm 
  Log:
  - nolonger wnat to do this limited loading of code, load all responses types at startup and register them
  
  
  
Index: loncom/startup.pl
diff -u loncom/startup.pl:1.5 loncom/startup.pl:1.6
--- loncom/startup.pl:1.5	Wed Mar 27 13:35:55 2002
+++ loncom/startup.pl	Mon Jul 29 16:40:34 2002
@@ -36,4 +36,12 @@
 use Apache::caparesponse();
 use Apache::lonstatistics();
 use Apache::lonchart();
+use Apache::grades();
+use Apache::lonpublisher();
+use Apache::caparesponse();
+use Apache::radiobuttonresponse();
+use Apache::optionresponse();
+use Apache::imageresponse();
+use Apache::essayresponse();
+use Apache::externalresponse();
 1;
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.82 loncom/homework/lonhomework.pm:1.83
--- loncom/homework/lonhomework.pm:1.82	Thu Jul 18 16:52:36 2002
+++ loncom/homework/lonhomework.pm	Mon Jul 29 16:40:34 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.82 2002/07/18 20:52:36 bowersj2 Exp $
+# $Id: lonhomework.pm,v 1.83 2002/07/29 20:40:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -42,9 +42,15 @@
 use Apache::response();
 use Apache::hint();
 use Apache::outputtags();
+use Apache::caparesponse();
+use Apache::radiobuttonresponse();
+use Apache::optionresponse();
+use Apache::imageresponse();
+use Apache::essayresponse();
+use Apache::externalresponse();
 use Apache::Constants qw(:common);
 use HTML::Entities();
-use Apache::loncommon;
+use Apache::loncommon();
 #use Time::HiRes qw( gettimeofday tv_interval );
 
 BEGIN {
Index: loncom/homework/response.pm
diff -u loncom/homework/response.pm:1.62 loncom/homework/response.pm:1.63
--- loncom/homework/response.pm:1.62	Fri May  3 15:32:57 2002
+++ loncom/homework/response.pm	Mon Jul 29 16:40:34 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # various response type definitons response definition
 #
-# $Id: response.pm,v 1.62 2002/05/03 19:32:57 albertel Exp $
+# $Id: response.pm,v 1.63 2002/07/29 20:40:34 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,7 +33,7 @@
 use strict;
 
 BEGIN {
-  &Apache::lonxml::register('Apache::response',('responseparam','parameter','caparesponse','numericalresponse','formularesponse','stringresponse','radiobuttonresponse','optionresponse','imageresponse','essayresponse','dataresponse','externalresponse'));
+  &Apache::lonxml::register('Apache::response',('responseparam','parameter'));
 }
 
 sub start_response {
@@ -205,71 +205,6 @@
       push(@Apache::inputtags::previous,'PREVIOUSLY_USED');
     }
   }
-}
-
-sub start_caparesponse {
-  require Apache::caparesponse; 
-  import Apache::caparesponse; 
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-#  print "\n<br />\nsimple caparesponse\n";
-  return &Apache::caparesponse::start_caparesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_stringresponse {
-  require Apache::caparesponse;
-  import Apache::caparesponse;
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::caparesponse::start_stringresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_formularesponse {
-  require Apache::caparesponse;
-  import Apache::caparesponse;
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::caparesponse::start_formularesponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_numericalresponse {
-  require Apache::caparesponse; 
-  import Apache::caparesponse; 
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::caparesponse::start_numericalresponse
-    ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_radiobuttonresponse {
-  require Apache::radiobuttonresponse; 
-  import Apache::radiobuttonresponse; 
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::radiobuttonresponse::start_radiobuttonresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_optionresponse {
-  require Apache::optionresponse; 
-  import Apache::optionresponse; 
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::optionresponse::start_optionresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_imageresponse {
-  require Apache::imageresponse; 
-  import Apache::imageresponse; 
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::imageresponse::start_imageresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_essayresponse {
-  require Apache::essayresponse; 
-  import Apache::essayresponse; 
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::essayresponse::start_essayresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
-}
-
-sub start_externalresponse {
-  require Apache::externalresponse; 
-  import Apache::externalresponse; 
-  my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
-  return &Apache::externalresponse::start_externalresponse($target,$token,$tagstack,$parstack,$parser,$safeeval,$style);
 }
 
 sub view_or_modify {