[BACK]Return to imsexport.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / imspackages

Diff for /loncom/imspackages/imsexport.pm between versions 1.2 and 1.6

version 1.2, 2004/12/23 16:31:28 version 1.6, 2009/02/25 10:26:05
Line 1 Line 1
   # The LearningOnline Network
   #
   # $Id$
   #
 # Copyright Michigan State University Board of Trustees  # Copyright Michigan State University Board of Trustees
 #  #
 # This file is part of the LearningOnline Network with CAPA (LON-CAPA).  # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 30  sub simpleproblem  { Line 34  sub simpleproblem  {
     my ($symb) = @_;      my ($symb) = @_;
     my $output;      my $output;
     my %qparms = &Apache::lonnet::dump('resourcedata',      my %qparms = &Apache::lonnet::dump('resourcedata',
                   $ENV{'course.'.$ENV{'request.course.id'}.'.domain'},                    $env{'course.'.$env{'request.course.id'}.'.domain'},
                   $ENV{'course.'.$ENV{'request.course.id'}.'.num'},                    $env{'course.'.$env{'request.course.id'}.'.num'},
                   $ENV{'request.course.id'}.'.'.$symb);                    $env{'request.course.id'}.'.'.$symb);
     if ($symb) {      if ($symb) {
         my $prefix=$ENV{'request.course.id'}.'.'.$symb.'.0.';          my $prefix=$env{'request.course.id'}.'.'.$symb.'.0.';
         my $qtype=$qparms{$prefix.'questiontype'};          my $qtype=$qparms{$prefix.'questiontype'};
         my $qtext=$qparms{$prefix.'questiontext'};          my $qtext=$qparms{$prefix.'questiontext'};
         my $hint=$qparms{$prefix.'hinttext'};          my $hint=$qparms{$prefix.'hinttext'};
Line 152  sub external { Line 156  sub external {
     my ($symb,$title) = @_;      my ($symb,$title) = @_;
     my $output;      my $output;
     if ($symb =~  m-\.sequence___\d+___ext(.+)$-) {      if ($symb =~  m-\.sequence___\d+___ext(.+)$-) {
         my $exturl = &Apache::lonnet::unescape($1);          my $exturl = &unescape($1);
         $output = qq|          $output = qq|
 <html>  <html>
 <head><title>$title</title>  <head><title>$title</title>
Line 169  sub external { Line 173  sub external {
   
 sub templatedpage {  sub templatedpage {
     my ($content_type,$timestamp,$count,$uploads,$udom,$uname) = @_;      my ($content_type,$timestamp,$count,$uploads,$udom,$uname) = @_;
     my $cdom = $ENV{'course.'.$ENV{'request.course.id'}.'.domain'};      my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
     my $cnum = $ENV{'course.'.$ENV{'request.course.id'}.'.num'};        my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
     my $output = '      my $output = '
 <'.$content_type.'>';  <'.$content_type.'>';
     my %syllabusdata=();      my %syllabusdata=();
Line 213  sub templatedpage { Line 217  sub templatedpage {
         %syllabusdata=&Apache::lonnet::dump('aboutme',$udom,$uname);          %syllabusdata=&Apache::lonnet::dump('aboutme',$udom,$uname);
         %syllabusfields=&Apache::lonlocal::texthash(          %syllabusfields=&Apache::lonlocal::texthash(
            'aaa_contactinfo'   => 'Contact Information',             'aaa_contactinfo'   => 'Contact Information',
            'bbb_aboutme'       => 'About Me',             'bbb_aboutme'       => 'Personal Information',
            'ccc_webreferences' => 'Web References'             'ccc_webreferences' => 'Web References'
         );          );
         $output .= qq|          $output .= qq|
Removed from v.1.2  
changed lines
  Added in v.1.6

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