loncom/imspackages/imsexport.pm - diff

Return to imsexport.pm CVS log

Up to [LON-CAPA] / loncom / imspackages

version 1.3, 2005/04/07 06:56:22	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 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 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\|