--- loncom/homework/default_homework.lcpm 2002/07/17 18:08:39 1.48 +++ loncom/homework/default_homework.lcpm 2002/09/20 18:19:25 1.49 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # used by lonxml::xmlparse() as input variable $safeinit to Apache::run::run() # -# $Id: default_homework.lcpm,v 1.48 2002/07/17 18:08:39 albertel Exp $ +# $Id: default_homework.lcpm,v 1.49 2002/09/20 18:19:25 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -686,4 +686,13 @@ sub choose { return $_[$num]; } +# expiremental idea +sub proper_path { + my ($path)=@_; + if ( $external::target eq "tex" ) { + return '/home/httpd/html'.$path; + } else { + return $path; + } +}