Diff for /loncom/imspackages/imsexport.pm between versions 1.3 and 1.7

version 1.3, 2005/04/07 06:56:22 version 1.7, 2009/08/28 17:17:25
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 25  package Apache::imsexport; Line 29  package Apache::imsexport;
   
 use strict;  use strict;
 use Apache::lonnet;  use Apache::lonnet;
   use LONCAPA;
   
 sub simpleproblem  {  sub simpleproblem  {
     my ($symb) = @_;      my ($symb) = @_;
Line 152  sub external { Line 157  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 213  sub templatedpage { Line 218  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.3  
changed lines
  Added in v.1.7


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