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| |