version 1.174, 2005/04/07 06:56:23
|
version 1.176, 2005/04/22 18:21:05
|
Line 272 sub exportcourse {
|
Line 272 sub exportcourse {
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['archive','discussion']); |
['archive','discussion']); |
|
|
my @exportitems = (); |
my @exportitems = &Apache::loncommon::get_env_multiple('form.archive'); |
if (defined($env{'form.archive'})) { |
my @discussions = &Apache::loncommon::get_env_multiple('form.discussion'); |
if (ref($env{'form.archive'}) eq 'ARRAY') { |
|
@exportitems = @{$env{'form.archive'}}; |
|
} else { |
|
$exportitems[0] = $env{'form.archive'}; |
|
} |
|
} |
|
my @discussions = (); |
|
if (defined($env{'form.discussion'})) { |
|
if (ref($env{'form.discussion'}) eq 'ARRAY') { |
|
@discussions = $env{'form.discussion'}; |
|
} else { |
|
$discussions[0] = $env{'form.discussion'}; |
|
} |
|
} |
|
if (@exportitems == 0 && @discussions == 0) { |
if (@exportitems == 0 && @discussions == 0) { |
$outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created. Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export'; |
$outcome = '<br />As you did not select any content items or discussions for export, an IMS package has not been created. Please <a href="javascript:history.go(-1)">go back</a> to select either content items or discussions for export'; |
} else { |
} else { |
Line 1974 sub handler {
|
Line 1960 sub handler {
|
|
|
# graphics settings |
# graphics settings |
|
|
$iconpath = $r->dir_config('lonIconsURL') . "/"; |
$iconpath = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL') . "/"); |
|
|
my $now=time; |
my $now=time; |
|
|