loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.374 and 1.394

version 1.374, 2009/07/01 13:16:42	version 1.394, 2009/10/17 00:09:26
Line 35 use Apache::Constants qw(:common :http);	Line 35 use Apache::Constants qw(:common :http);
use Apache::imsexport;	use Apache::imsexport;
use Apache::lonnet;	use Apache::lonnet;
use Apache::loncommon;	use Apache::loncommon;
	use Apache::lonhtmlcommon;
use LONCAPA::map();	use LONCAPA::map();
use Apache::lonratedt();	use Apache::lonratedt();
use Apache::lonxml;	use Apache::lonxml;
Line 119 sub dumpbutton {	Line 120 sub dumpbutton {
my $type = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
if ($home+$other==0) { return ''; }	if ($home+$other==0) { return ''; }
if ($home) {	if ($home) {
return '<input type="submit" name="dumpcourse" value="'.	my $link = "<a onclick='javascript:injectData(document.courseverify, \"dummy\", \"dumpcourse\", \"".&mt('Dump '.$type.' DOCS to Construction Space')."\")'>".&mt('Dump '.$type.' DOCS to Construction Space')."</a>";
&mt('Dump '.$type.' DOCS to Construction Space').'" />'.	return $link.' '.
&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs').'<br />';	&Apache::loncommon::help_open_topic('Docs_Dump_Course_Docs').'<br />';
} else {	} else {
return '<div>'.	return '<div>'.
Line 262 sub dumpcourse {	Line 263 sub dumpcourse {

sub exportbutton {	sub exportbutton {
my $type = &Apache::loncommon::course_type();	my $type = &Apache::loncommon::course_type();
return '<input type="submit" name="exportcourse" value="'.	return "<a onclick='javascript:injectData(document.courseverify, \"dummy\", \"exportcourse\", \"".&mt('IMS Export')."\")'>".&mt('IMS Export')."</a>".
&mt('Export '.$type.' to IMS').'" />'.
&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').'<br />';	&Apache::loncommon::help_open_topic('Docs_Export_Course_Docs').'<br />';
}	}

Line 277 sub exportcourse {	Line 277 sub exportcourse {
my $numdisc = keys(%discussiontime);	my $numdisc = keys(%discussiontime);
my $navmap = Apache::lonnavmaps::navmap->new();	my $navmap = Apache::lonnavmaps::navmap->new();
if (!defined($navmap)) {	if (!defined($navmap)) {
$r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package').	$r->print(&Apache::loncommon::start_page('Export '.$type.' to IMS Package').
'<h2>IMS Export Failed</h2>'.	'<h2>'.&mt('IMS Export Failed').'</h2>'.
'<div class="LC_error">'.	'<div class="LC_error">'.
&mt('Unable to retrieve information about course contents').	&mt('Unable to retrieve information about course contents').
'</div><a href="/adm/coursedocs">'.&mt('Return to Course Editor').'</a>');	'</div><a href="/adm/coursedocs">'.&mt('Return to Course Editor').'</a>');
Line 298 sub exportcourse {	Line 298 sub exportcourse {
my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');	my @exportitems = &Apache::loncommon::get_env_multiple('form.archive');
my @discussions = &Apache::loncommon::get_env_multiple('form.discussion');	my @discussions = &Apache::loncommon::get_env_multiple('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 =
	'<p class="LC_warning">'
	.&mt('As you did not select any content items or discussions'
	.' for export, an IMS package has not been created.')
	.'</p>'
	.'<p>'
	.&mt('Please [_1]go back[_2] to select either content items'
	.' or discussions for export.'
	,'<a href="javascript:history.go(-1)">'
	,'</a>')
	.'</p>';
} else {	} else {
my $now = time;	my $now = time;
my %symbs;	my %symbs;
Line 321 sub exportcourse {	Line 331 sub exportcourse {
open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");	open(OUTPUT, "zip -r $imszip * 2> /dev/null \|");
close(OUTPUT);	close(OUTPUT);
chdir $cwd;	chdir $cwd;
$outcome .= '<p>'
.&mt('Download the zip file from [_1]IMS '.lc($type).' archive[_2]'
,'<a href="'.$imszipfile.'">','</a>')
.'</p>';
if ($copyresult) {	if ($copyresult) {
$outcome .= '<p class="LC_error">'	$outcome .= '<p class="LC_error">'
.&mt('The following errors occurred during export - [_1]'	.&mt('The following errors occurred during export - [_1]'
,$copyresult)	,$copyresult)
.'</p>';	.'</p>';
}	}
	$outcome .= '<p>'
	.&mt('[_1]Your IMS package[_2] is ready for download.'
	,'<a href="'.$imszipfile.'">','</a>')
	.'</p>';
} else {	} else {
$outcome = '<br />'.&mt('Unfortunately you will not be able to retrieve an IMS archive of this posts at this time, because there was a problem creating a manifest file.').'<br />';	$outcome = '<p class="LC_error">'
	.&mt('Unfortunately you will not be able to retrieve'
	.' an IMS archive of this posts at this time,'
	.' because there was a problem creating a'
	.' manifest file.')
	.'</p>'
	.'<p><a href="javascript:history.go(-1)">'
	.&mt('Go Back')
	.'</a></p>';
}	}
}	}
$r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package'));	$r->print(&Apache::loncommon::start_page('Export '.$type.' to IMS Package'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('IMS Export'));
$r->print($outcome);	$r->print($outcome);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
} else {	} else {
Line 489 function containerCheck(item) {	Line 507 function containerCheck(item) {
// ]]>	// ]]>
</script>	</script>
\|;	\|;
$r->print(&Apache::loncommon::start_page('Export '.lc($type).' to IMS content package',	$r->print(&Apache::loncommon::start_page('Export '.$type.' to IMS Package',
$scripttag));	$scripttag));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Export '.lc($type).' to IMS content package'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('IMS Export'));
$r->print($display.	$r->print($display.
'<p><input type="hidden" name="finishexport" value="1" />'.	'<p><input type="hidden" name="finishexport" value="1" />'.
'<input type="submit" name="exportcourse" value="'.	'<input type="submit" name="exportcourse" value="'.
&mt('Export '.$type.' DOCS').'" /></p></form>');	&mt('Export').'" /></p></form>');
}	}
}	}

Line 1014 sub breadcrumbs {	Line 1032 sub breadcrumbs {
if ($3) { $isencrypted=1; }	if ($3) { $isencrypted=1; }
if ($4 ne '') { $is_random_order = 1; }	if ($4 ne '') { $is_random_order = 1; }
if ($folder eq 'supplemental') {	if ($folder eq 'supplemental') {
if ($allowed) {	$name = &mt('Supplemental '.$type.' Documents');
$name = &mt('Supplemental '.$type.' Documents');
} else {
$name = &mt($type.' Documents');
}
}	}
&Apache::lonhtmlcommon::add_breadcrumb(	&Apache::lonhtmlcommon::add_breadcrumb(
{'href'=>$url.$cpinfo,	{'href'=>$url.$cpinfo,
Line 1030 sub breadcrumbs {	Line 1044 sub breadcrumbs {
}	}
$plain=~s/\&gt\;\s*$//;	$plain=~s/\&gt\;\s*$//;
return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',	return (&Apache::lonhtmlcommon::breadcrumbs(undef,undef,0,'nohelp',
'LC_docs_path', undef, 1 ),$randompick,$ishidden,$isencrypted,$plain,$is_random_order);	undef, undef, 1 ),$randompick,$ishidden,$isencrypted,$plain,$is_random_order);
}	}

sub log_docs {	sub log_docs {
Line 1254 sub print_paste_buffer {	Line 1268 sub print_paste_buffer {
my ($r,$container) = @_;	my ($r,$container) = @_;
return if (!defined($env{'docs.markedcopy_url'}));	return if (!defined($env{'docs.markedcopy_url'}));

$r->print(<<ENDPASTE);	$r->print('<fieldset>'
<form name="pasteform" action="/adm/coursedocs" method="post"><p>	.'<legend>'.&mt('Clipboard').'</legend>'
ENDPASTE	.'<form name="pasteform" action="/adm/coursedocs" method="post">'
$r->print('<input type="submit" name="pastemarked" value="'.&mt('Paste').'" /> ');	.'<input type="submit" name="pastemarked" value="'.&mt('Paste').'" /> '
	);

my $type;	my $type;
if ($env{'docs.markedcopy_url'} =~ m{^(?:/adm/wrapper/ext\|(?:http\|https)(?:&colon;\|:))//} ) {	if ($env{'docs.markedcopy_url'} =~ m{^(?:/adm/wrapper/ext\|(?:http\|https)(?:&colon;\|:))//} ) {
Line 1271 ENDPASTE	Line 1286 ENDPASTE
if ($extension eq 'sequence' &&	if ($extension eq 'sequence' &&
$env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) {	$env{'docs.markedcopy_url'} =~ m{/default_\d+\.sequence$ }x) {
$icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));	$icon = &Apache::loncommon::lonhttpdurl($r->dir_config('lonIconsURL'));
$icon .= '/folder_closed.gif';	$icon .= '/navmap.folder.closed.gif';
}	}
$icon = '<img src="'.$icon.'" alt="" class="LC_icon" />';	$icon = '<img src="'.$icon.'" alt="" class="LC_icon" />';
$r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'})));	$r->print($icon.$type.': '. &parse_supplemental_title(&LONCAPA::map::qtescape($env{'docs.markedcopy_title'})));
Line 1286 ENDPASTE	Line 1301 ENDPASTE
<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />	<input type="hidden" name="folderpath" value="'.&HTML::Entities::encode($env{'form.folderpath'},'<>&"').'" />
');	');
}	}
$r->print('</p></form>');	$r->print('</form></fieldset>');
}	}

sub do_paste_from_buffer {	sub do_paste_from_buffer {
Line 1474 sub handle_edit_cmd {	Line 1489 sub handle_edit_cmd {

sub editor {	sub editor {
my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$type)=@_;	my ($r,$coursenum,$coursedom,$folder,$allowed,$upload_output,$type)=@_;

my $container= ($env{'form.pagepath'}) ? 'page'	my $container= ($env{'form.pagepath'}) ? 'page'
: 'sequence';	: 'sequence';

Line 1569 sub editor {	Line 1583 sub editor {
my $idx=0;	my $idx=0;
my $shown=0;	my $shown=0;
if (($ishidden) \|\| ($isencrypted) \|\| ($randompick>=0) \|\| ($is_random_order)) {	if (($ishidden) \|\| ($isencrypted) \|\| ($randompick>=0) \|\| ($is_random_order)) {
$r->print('<p>'.&mt('Parameters').':<ul>'.	$r->print('<div class="LC_Box">'.
($randompick>=0?'<li>'.&mt('randomly pick [_1] resources',$randompick).'</li>':'').	'<p>'.&mt('Parameters:').
	'<ul>'.
	($randompick>=0?'<li>'.&mt('randomly pick [quant,_1,resource]',$randompick).'</li>':'').
($ishidden?'<li>'.&mt('contents hidden').'</li>':'').	($ishidden?'<li>'.&mt('contents hidden').'</li>':'').
($isencrypted?'<li>'.&mt('URLs hidden').'</li>':'').	($isencrypted?'<li>'.&mt('URLs hidden').'</li>':'').
	($is_random_order?'<li>'.&mt('random order').'</li>':'').
'</ul></p>');	'</ul></p>');
	if ($randompick>=0) {
	$r->print('<p class="LC_warning">'
	.&mt('Caution: this folder is set to randomly pick a subset'
	.' of resources. Adding or removing resources from this'
	.' folder will change the set of resources that the'
	.' students see, resulting in spurious or missing credit'
	.' for completed problems, not limited to ones you'
	.' modify. Do not modify the contents of this folder if'
	.' it is in active student use.')
	.'</p>'
	);
	}
	if ($is_random_order) {
	$r->print('<p class="LC_warning">'
	.&mt('Caution: this folder is set to randomly order its'
	.' contents. Adding or removing resources from this folder'
	.' will change the order of resources shown.')
	.'</p>'
	);
	}
	$r->print('</div>');
}	}
if ($randompick>=0) {
$r->print('<p>'.&mt('Caution: this folder is set to randomly pick a subset of resources. Adding or removing resources from this folder will change the set of resources that the students see, resulting in spurious or missing credit for completed problems, not limited to ones you modify. Do not modify the contents of this folder if it is in active student use.').'</p>');	my $output;
}
if ($is_random_order) {
$r->print('<p>'.&mt('Caution: this folder is set to randomly order its contents. Adding or removing resources from this folder will change the order of resources shown.').'</p>');
}
$r->print('<table class="LC_docs_editor">');
foreach my $res (@LONCAPA::map::order) {	foreach my $res (@LONCAPA::map::order) {
my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);	my ($name,$url)=split(/\:/,$LONCAPA::map::resources[$res]);
$name=&LONCAPA::map::qtescape($name);	$name=&LONCAPA::map::qtescape($name);
$url=&LONCAPA::map::qtescape($url);	$url=&LONCAPA::map::qtescape($url);
unless ($name) { $name=(split(/\//,$url))[-1]; }	unless ($name) { $name=(split(/\//,$url))[-1]; }
unless ($name) { $idx++; next; }	unless ($name) { $idx++; next; }
$r->print(&entryline($idx,$name,$url,$folder,$allowed,$res,	$output .= &entryline($idx,$name,$url,$folder,$allowed,$res,
$coursenum));	$coursenum);
$idx++;	$idx++;
$shown++;	$shown++;
}	}
unless ($shown) {	if ($shown) {
$r->print('<tr><td>'.&mt('Currently no documents.').'</td></tr>');	$r->print(&Apache::loncommon::start_data_table());
	if ($allowed) {
	$r->print(&Apache::loncommon::start_data_table_header_row()
	.'<th colspan="2">'.&mt('Move').'</th>'
	.'<th>'.&mt('Actions').'</th>'
	.'<th colspan="2">'.&mt('Document').'</th>');
	if ($folder !~ /^supplemental/) {
	$->print('<th colspan="4">'.&mt('Settings').'</th>');
	}
	$r->print(&Apache::loncommon::end_data_table_header_row());
	}
	$r->print($output
	.&Apache::loncommon::end_data_table()
	);
	} else {
	$r->print('<p class="LC_info">'
	.&mt('Currently no documents.')
	.'</p>'
	);
}	}
$r->print("\n</table>\n");
if ($allowed) {	if ($allowed) {
&print_paste_buffer($r,$container);	&print_paste_buffer($r,$container);
}	}
Line 1667 sub process_file_upload {	Line 1717 sub process_file_upload {
return 'failed';	return 'failed';
} else {	} else {
if ($parseaction eq 'parse') {	if ($parseaction eq 'parse') {
my $total_embedded = keys(%{$allfiles});	my $total_embedded = scalar(keys(%{$allfiles}));
if ($total_embedded > 0) {	if ($total_embedded > 0) {
my $num = 0;	my $num = 0;
my $state = '	my $state = '
Line 1741 sub parse_supplemental_title {	Line 1791 sub parse_supplemental_title {

sub entryline {	sub entryline {
my ($index,$title,$url,$folder,$allowed,$residx,$coursenum)=@_;	my ($index,$title,$url,$folder,$allowed,$residx,$coursenum)=@_;

my ($foldertitle,$pagetitle,$renametitle);	my ($foldertitle,$pagetitle,$renametitle);
if (&is_supplemental_title($title)) {	if (&is_supplemental_title($title)) {
($title,$foldertitle,$renametitle) = &parse_supplemental_title($title);	($title,$foldertitle,$renametitle) = &parse_supplemental_title($title);
Line 1759 sub entryline {	Line 1808 sub entryline {
$renametitle=~s/\\/\\\\/g;	$renametitle=~s/\\/\\\\/g;
$renametitle=~s/\&quot\;/\\\"/g;	$renametitle=~s/\&quot\;/\\\"/g;
$renametitle=~s/ /%20/g;	$renametitle=~s/ /%20/g;
my $line='<tr>';	my $line=&Apache::loncommon::start_data_table_row();
my ($form_start,$form_end);	my ($form_start,$form_end);
# Edit commands	# Edit commands
my ($container, $type, $esc_path, $path, $symb);	my ($container, $type, $esc_path, $path, $symb);
Line 1862 END	Line 1911 END
$form_end = '</form>';	$form_end = '</form>';
$line.=(<<END);	$line.=(<<END);
<td>	<td>
<table class="LC_docs_entry_move">	<div class="LC_docs_entry_move">
<tr>	<a href='/adm/coursedocs?cmd=up_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'>
<td>	<img src="${iconpath}move_up.gif" alt='$lt{'up'}' class="LC_icon" />
<a href='/adm/coursedocs?cmd=up_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'><img src="${iconpath}move_up.gif" alt='$lt{'up'}' class="LC_icon" /></a>	</a>
</td>	</div>
</tr>	<div class="LC_docs_entry_move">
<tr>	<a href='/adm/coursedocs?cmd=down_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'>
<td>	<img src="${iconpath}move_down.gif" alt='$lt{'dw'}' class="LC_icon" />
<a href='/adm/coursedocs?cmd=down_$index&${type}path=$esc_path&${type}symb=$symb$cpinfo'><img src="${iconpath}move_down.gif" alt='$lt{'dw'}' class="LC_icon" /></a>	</a>
</td>	</div>
</tr>
</table>
</td>	</td>
<td>	<td>
$form_start	$form_start
Line 1900 END	Line 1947 END
my $pagefile;	my $pagefile;
if ($uploaded) {	if ($uploaded) {
if ($extension eq 'sequence') {	if ($extension eq 'sequence') {
$icon=$iconpath.'/folder_closed.gif';	$icon=$iconpath.'/navmap.folder.closed.gif';
$url=~/\Q$coursenum\E\/([\/\w]+)\.sequence$/;	$url=~/\Q$coursenum\E\/([\/\w]+)\.sequence$/;
$url='/adm/coursedocs?';	$url='/adm/coursedocs?';
$folderarg=$1;	$folderarg=$1;
Line 2007 END	Line 2054 END
undef($external);	undef($external);
}	}
$line.='	$line.='
<td class="LC_docs_entry_icon">	<td>
'.($url?'<a href="'.$url.'">':'').'<img src="'.$icon.'" alt="" class="LC_icon" />'.($url?'</a>':'').'	'.($url?'<a href="'.$url.'">':'').'<img src="'.$icon.'" alt="" class="LC_icon" />'.($url?'</a>':'').'
</td>	</td>
<td class="LC_docs_entry_title">	<td>
'.($url?"<a href=\"$url\">":'').$title.($url?'</a>':' <span class="LC_docs_reinit_warn">'.&mt('(re-initialize course to access)').'</span>').$external."	'.($url?"<a href=\"$url\">":'').$title.($url?'</a>':' <span class="LC_docs_reinit_warn">'.&mt('(re-initialize course to access)').'</span>').$external."
</td>";	</td>";
if (($allowed) && ($folder!~/^supplemental/)) {	if (($allowed) && ($folder!~/^supplemental/)) {
Line 2036 END	Line 2083 END
<td class="LC_docs_entry_parameter">$form_start $parameterset $form_end</td>	<td class="LC_docs_entry_parameter">$form_start $parameterset $form_end</td>
ENDPARMS	ENDPARMS
}	}
$line.="</tr>";	$line.=&Apache::loncommon::end_data_table_row();
return $line;	return $line;
}	}

Line 2507 sub changewarning {	Line 2554 sub changewarning {
'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".	'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".
'// ]]>'."\n".	'// ]]>'."\n".
'</script>'."\n".	'</script>'."\n".
'<form name="reinitform" method="post" action="/adm/coursedocs" target="loncapaclient">'.	'<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.
'<input type="hidden" name="orgurl" value="'.$url.	'<input type="hidden" name="orgurl" value="'.$url.
'" /><input type="hidden" name="selectrole" value="1" /><p class="LC_warning">'.	'" /><input type="hidden" name="selectrole" value="1" /><p class="LC_warning">'.
&mt($message,' <input type="hidden" name="'.	&mt($message,' <input type="hidden" name="'.
Line 2583 sub handler {	Line 2630 sub handler {
&init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');	&init_breadcrumbs('dumpcourse','Dump '.&Apache::loncommon::course_type().' DOCS to Construction Space');
&dumpcourse($r);	&dumpcourse($r);
} elsif ($allowed && $env{'form.exportcourse'}) {	} elsif ($allowed && $env{'form.exportcourse'}) {
&init_breadcrumbs('exportcourse','Export '.&Apache::loncommon::course_type().' to IMS');	&init_breadcrumbs('exportcourse','IMS Export');
&exportcourse($r);	&exportcourse($r);
} else {	} else {
# is this a standard course?	# is this a standard course?
Line 2652 sub handler {	Line 2699 sub handler {
$allowed=0;	$allowed=0;
}	}

	# subroutine to list form elements
	sub create_list_elements {
	my @formarr = @_;
	my $list = '';
	for my $button (@formarr){
	for my $picture(keys %$button) {
	#my $link = Apache::lonhtmlcommon::htmltag('a' ,$button->{$picture}, {href => "test"});
	$list .= Apache::lonhtmlcommon::htmltag('li', $picture.' '.$button->{$picture}, {class => 'LC_menubuttons_inline_text'});
	}
	}
	return $list;
	}

	# subroutine to create ul from list elements
	sub create_form_ul {
	my $list = shift;
	my $ul = Apache::lonhtmlcommon::htmltag('ul',$list, {class => 'LC_ListStyleNormal'});
	return $ul;
	}

# get course data	# get course data
my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};	my $coursenum=$env{'course.'.$env{'request.course.id'}.'.num'};
my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};	my $coursedom=$env{'course.'.$env{'request.course.id'}.'.domain'};
Line 2674 sub handler {	Line 2741 sub handler {
.$script."\n"	.$script."\n"
.'// ]]>'."\n"	.'// ]]>'."\n"
.'</script>'."\n";	.'</script>'."\n";
my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];
$r->print(&Apache::loncommon::start_page("$type Documents", $script,	# Breadcrumbs
{'force_register' => $showdoc,	&Apache::lonhtmlcommon::clear_breadcrumbs();
'bread_crumbs' => $brcrum}).	if ($allowed) {
&Apache::loncommon::help_open_menu('','',273,'RAT'));	&Apache::lonhtmlcommon::add_breadcrumb({
	href=>"/adm/coursedocs",text=>"$type Editor"});

	$r->print(&Apache::loncommon::start_page("$type Editor", $script,
	{'force_register' => $showdoc,})
	.&Apache::loncommon::help_open_menu('','',273,'RAT')
	.&Apache::lonhtmlcommon::breadcrumbs(
	'Editing the Table of Contents for your '.$type,
	'Docs_Adding_Course_Doc')
	);
	} else {
	my $lc_type = lc($type);
	&Apache::lonhtmlcommon::add_breadcrumb({
	href=>"/adm/coursedocs",text=>"Supplemental $lc_type documents"});

	$r->print(&Apache::loncommon::start_page("Supplemental documents").
	&Apache::lonhtmlcommon::breadcrumbs());
	}

my %allfiles = ();	my %allfiles = ();
my %codebase = ();	my %codebase = ();
Line 2773 sub handler {	Line 2857 sub handler {
'uplm' => 'Upload a new main '.lc($type).' document',	'uplm' => 'Upload a new main '.lc($type).' document',
'upls' => 'Upload a new supplemental '.lc($type).' document',	'upls' => 'Upload a new supplemental '.lc($type).' document',
'impp' => 'Import a document',	'impp' => 'Import a document',
'pubd' => 'Published Documents',
'copm' => 'All documents out of a published map into this folder',	'copm' => 'All documents out of a published map into this folder',
'upld' => 'Upload Document',	'upld' => 'Upload Document',
'srch' => 'Search',	'srch' => 'Search',
Line 2796 sub handler {	Line 2879 sub handler {
'grpo' => 'Group Portfolio',	'grpo' => 'Group Portfolio',
'rost' => 'Course Roster',	'rost' => 'Course Roster',
'abou' => 'Personal Information Page for a User',	'abou' => 'Personal Information Page for a User',
'imsf' => 'Import IMS package',	'imsf' => 'IMS Import',
	'imsl' => 'Import IMS package',
'file' => 'File',	'file' => 'File',
'title' => 'Title',	'title' => 'Title',
'comment' => 'Comment',	'comment' => 'Comment',
Line 2805 sub handler {	Line 2889 sub handler {
'pm' => 'Published Map',	'pm' => 'Published Map',
'sd' => 'Special Document',	'sd' => 'Special Document',
'mo' => 'More Options',	'mo' => 'More Options',
'hao' => 'Hide all Options'
);	);
# -----------------------------------------------------------------------------	# -----------------------------------------------------------------------------
my $fileupload=(<<FIUP);	my $fileupload=(<<FIUP);
Line 2822 FIUP	Line 2905 FIUP
</label>	</label>
CHBO	CHBO

	my $fileuploada = "<input type='submit' value='".$lt{'upld'}."' /> $help{'Uploading_From_Harddrive'}";
my $fileuploadform=(<<FUFORM);	my $fileuploadform=(<<FUFORM);
<form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<form name="uploaddocument" action="/adm/coursedocs" method="post" enctype="multipart/form-data">
<input type="hidden" name="active" value="aa" />	<input type="hidden" name="active" value="aa" />
Line 2835 CHBO	Line 2919 CHBO
<span class="LC_nobreak">	<span class="LC_nobreak">
$checkbox	$checkbox
</span>	</span>
<br />	FUFORM
<br />	#$list .= Apache::lonhtmlcommon::htmltag('li', $picture.' '.$button->{$picture}, {class => 'LC_menubuttons_inline_text'});
<span class="LC_nobreak">	#$fileuploadform .= create_form_ul(create_list_elements(@fileuploada));
<input type="submit" value="$lt{'upld'}" />	$fileuploadform .= create_form_ul(Apache::lonhtmlcommon::htmltag('li',$fileuploada,{class => 'LC_menubuttons_inline_text'}));
$help{'Uploading_From_Harddrive'}	$fileuploadform .= (<<FUFORM);
</span>
</form>	</form>
FUFORM	FUFORM

my $simpleeditdefaultform=(<<SEDFFORM);	my $simpleeditdefaultform=(<<SEDFFORM);
<form action="/adm/coursedocs" method="post" name="simpleeditdefault">	<form action="/adm/coursedocs" method="post" name="simpleeditdefault">
<input type="hidden" name="active" value="bb" />	<input type="hidden" name="active" value="bb" />
$lt{'pubd'}<br />	SEDFFORM
$uploadtag	my @simpleeditdefaultforma = (
<input type="button" onclick="javascript:groupsearch()" value="$lt{'srch'}" />	{ '<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/src.png" alt="pic03" />' => "$uploadtag<a onclick='javascript:groupsearch()'>$lt{'srch'}</a>" },
<br />	{ '<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/res.png" alt="pic04" />' => "<a onclick='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },
<span class="LC_nobreak">	{ '<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/vbkm.png" alt="pic05" />' => "<a onclick='javascript:groupopen(0,1,1);'>$lt{'book'}</a>" },
<input type="button" onclick="javascript:groupimport();" value="$lt{'impo'}" />	);
$help{'Importing_LON-CAPA_Resource'}	$simpleeditdefaultform .= create_form_ul(create_list_elements(@simpleeditdefaultforma));
</span>	$simpleeditdefaultform .=(<<SEDFFORM);
<br />
<input type="button" onclick="javascript:groupopen(0,1,1);" value="$lt{'book'}" />
<hr />	<hr />
<p>	<p>
$lt{'copm'}<br />	$lt{'copm'}<br />
Line 2873 SEDFFORM	Line 2954 SEDFFORM
<form action="/adm/coursedocs" method="post" name="newext">	<form action="/adm/coursedocs" method="post" name="newext">
$uploadtag	$uploadtag
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makenewext('newext');">$lt{'extr'}</a>$help{'Adding_External_Resource'}
<input name="newext" type="button" onclick="javascript:makenewext('newext');"
value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
</span>
</form>	</form>
ERFORM	ERFORM

Line 2916 ERFORM	Line 2994 ERFORM
HIDDENFORM	HIDDENFORM
}	}
# --------------------------------------------------------- Main tab structure	# --------------------------------------------------------- Main tab structure

my $activeClass = 1;	my $activeClass = 1;
my $active = '';	my $active = '';

$r->print('<ul class="LC_TabContentBigger" id="mainnav">');	$r->print('<ul class="LC_TabContentBigger" id="mainnav">');
if (($standard) && ($allowed) && (!$forcesupplement) && (($env{'form.folderpath'}=~/^default/) \|\| ($env{'form.pagepath'}))) {	if (($standard) && ($allowed) && (!$forcesupplement) && (($env{'form.folderpath'}=~/^default/) \|\| $env{'form.folderpath'}eq"" \|\| ($env{'form.pagepath'}))) {
if($activeClass == 1){	if($activeClass == 1){
$active = 'class="active"';	$active = 'class="active"';
$activeClass = 0;	$activeClass = 0;
}	}
}	}
$r->print('<li '.$active.' onclick="javascript:showPage(this,\'mainCourseDocuments\',\'mainnav\',\'maincoursedoc\');">'.&mt('Main Course Documents').'</li>');	if ($allowed){
	$r->print('<li '.$active.' onclick="javascript:showPage(this,\'mainCourseDocuments\',\'mainnav\',\'maincoursedoc\');"><a href="#"><b>'.&mt('Main Course Documents').'</b></a></li>');
	}
$active = '';	$active = '';
if (!$forcestandard \|\| ($env{'form.folderpath'}=~/^supplemental/)) {	if (!$forcestandard \|\| ($env{'form.folderpath'}=~/^supplemental/)) {
if($activeClass == 1){	if($activeClass == 1){
$active = 'class="active"';	$active = 'class="active"';
}	}
}	}
$r->print('<li '.$active.' onclick="javascript:showPage(this,\'supplCourseDocuments\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>');	$r->print('<li '.$active.' onclick="javascript:showPage(this,\'supplCourseDocuments\',\'mainnav\',\'maincoursedoc\');"><a href="#"><b>'.&mt('Supplemental Course Documents').'</b></a></li>');
$r->print('</ul><div class="LC_Box"><div id="maincoursedoc" style="margin:0 0;padding:0 0;">');	$r->print('</ul>'
	.'<div class="LC_Box" style="clear:both;margin:0;">'
	.'<div id="maincoursedoc" style="margin:0 0;padding:0 0;">');
# --------------------------------------------------------- Standard documents	# --------------------------------------------------------- Standard documents
my $savefolderpath;	my $savefolderpath;
my $active = 'style="display: none;"';	my $active = 'style="display: none;"';
if($activeClass == 0){	if($activeClass == 0){
$active = 'style="display: block;"';	$active = 'style="display: block;"';
}	}
	if ($allowed) {
$r->print('<div class="LC_ContentBox" id="mainCourseDocuments" '.$active.'>');	$r->print('<div class="LC_ContentBox" id="mainCourseDocuments" '.$active.'>');
my $folder=$env{'form.folder'};	my $folder=$env{'form.folder'};
if ($folder eq '' \|\| $folder=~/^supplemental/) {	if ($folder eq '' \|\| $folder=~/^supplemental/) {
Line 2974 HIDDENFORM	Line 3059 HIDDENFORM

my $recoverform=(<<RFORM);	my $recoverform=(<<RFORM);
<form action="/adm/groupsort" method="post" name="recover">	<form action="/adm/groupsort" method="post" name="recover">
<input type="button" name="recovermap" onclick="javascript:groupopen('$readfile',1,0)" value="$lt{'reco'}" />	<a onclick="javascript:groupopen('$readfile',1,0)">$lt{'reco'}</a>
</form>	</form>
RFORM	RFORM

my $imspform=(<<IMSPFORM);	my $imspform=(<<IMSPFORM);
<form action="/adm/imsimportdocs" method="post" name="ims">	<form action="/adm/imsimportdocs" method="post" name="ims">
<input type="hidden" name="folder" value="$folder" />	<input type="hidden" name="folder" value="$folder" />
<input name="imsimport" type="button" value="$lt{'imsf'}" onclick="javascript:makeims();" />	<a onclick="javascript:makeims();">$lt{'imsf'}</a>
</form>	</form>
IMSPFORM	IMSPFORM

Line 2991 IMSPFORM	Line 3076 IMSPFORM
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'navc'}=/adm/navmaps" />	value="$lt{'navc'}=/adm/navmaps" />
<span class="LC_nobreak">	<a onclick="document.newnav.submit()">$lt{'navc'}</a>
<input name="newnav" type="submit" value="$lt{'navc'}" />
$help{'Navigate_Content'}	$help{'Navigate_Content'}
</span>
</form>	</form>
NNFORM	NNFORM
my $newsmppageform=(<<NSPFORM);	my $newsmppageform=(<<NSPFORM);
Line 3002 NNFORM	Line 3085 NNFORM
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makesmppage();"> $lt{'sipa'}</a>
<input name="newsmppg" type="button" value="$lt{'sipa'}"	$help{'Simple Page'}
onclick="javascript:makesmppage();" /> $help{'Simple Page'}
</span>
</form>	</form>
NSPFORM	NSPFORM

Line 3014 NSPFORM	Line 3095 NSPFORM
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makesmpproblem();">$lt{'sipr'}</a>
<input name="newsmpproblem" type="button" value="$lt{'sipr'}"	$help{'Simple Problem'}
onclick="javascript:makesmpproblem();" />$help{'Simple Problem'}
</span>
</form>	</form>

NSPROBFORM	NSPROBFORM
Line 3027 NSPROBFORM	Line 3106 NSPROBFORM
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makedropbox();">$lt{'drbx'}</a>
<input name="newdropbox" type="button" value="$lt{'drbx'}"
onclick="javascript:makedropbox();" />
</span>
</form>	</form>
NDBFORM	NDBFORM

Line 3039 NDBFORM	Line 3115 NDBFORM
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makeexamupload();">$lt{'scuf'}</a>
<input name="newexamupload" type="button" value="$lt{'scuf'}"
onclick="javascript:makeexamupload();" />
$help{'Score_Upload_Form'}	$help{'Score_Upload_Form'}
</span>
</form>	</form>
NEXUFORM	NEXUFORM

Line 3052 NEXUFORM	Line 3125 NEXUFORM
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makebulboard();" >$lt{'bull'}</a>
<input name="newbulletin" type="button" value="$lt{'bull'}"
onclick="javascript:makebulboard();" />
$help{'Bulletin Board'}	$help{'Bulletin Board'}
</span>
</form>	</form>
NBFORM	NBFORM

Line 3066 NBFORM	Line 3136 NBFORM
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme" />	value="$plainname=/adm/$udom/$uname/aboutme" />
<span class="LC_nobreak">	<a onclick="document.newaboutme.submit()">$lt{'mypi'}</a>
<input name="newaboutme" type="submit" value="$lt{'mypi'}" />
$help{'My Personal Information Page'}	$help{'My Personal Information Page'}
</span>
</form>	</form>
NAMFORM	NAMFORM

Line 3078 NAMFORM	Line 3146 NAMFORM
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makeabout();">$lt{'abou'}</a>
<input name="newaboutsomeone" type="button" value="$lt{'abou'}"
onclick="javascript:makeabout();" />
</span>
</form>	</form>
NASOFORM	NASOFORM

Line 3092 NASOFORM	Line 3157 NASOFORM
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'rost'}=/adm/viewclasslist" />	value="$lt{'rost'}=/adm/viewclasslist" />
<span class="LC_nobreak">	<a onclick="document.newroster.submit()">$lt{'rost'}</a>
<input name="newroster" type="submit" value="$lt{'rost'}" />
$help{'Course Roster'}	$help{'Course Roster'}
</span>
</form>	</form>
NROSTFORM	NROSTFORM

my $specialdocumentsform;	my $specialdocumentsform;
	my @specialdocumentsforma;
my $newfolderform;	my $newfolderform;
	my $newfolderb;

unless ($env{'form.pagepath'}) {	unless ($env{'form.pagepath'}) {
my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');	my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');

my $newpageform=(<<NPFORM);	my $newpageform=(<<NPFORM);
<form action="/adm/coursedocs" method="post" name="newpage">	<form action="/adm/coursedocs" method="post" name="newpage">
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="active" value="cc" />	<input type="hidden" name="active" value="cc" />
<span class="LC_nobreak">	<a onclick="javascript:makenewpage(document.newpage,'$pageseq');">$lt{'newp'}</a>
<input name="newpage" type="button"	$help{'Adding_Pages'}
onclick="javascript:makenewpage(this.form,'$pageseq');"
value="$lt{'newp'}" />$help{'Adding_Pages'}
</span>
</form>	</form>
NPFORM	NPFORM


$newfolderform=(<<NFFORM);	$newfolderform=(<<NFFORM);
<form action="/adm/coursedocs" method="post" name="newfolder">	<form action="/adm/coursedocs" method="post" name="newfolder">
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<input type="hidden" name="active" value="aa" />	<input type="hidden" name="active" value="aa" />
<span class="LC_nobreak">	<a onclick="javascript:makenewfolder(document.newfolder,'$folderseq');">$lt{'newf'}</a>$help{'Adding_Folders'}
<input name="newfolder" type="button"
onclick="javascript:makenewfolder(this.form,'$folderseq');"
value="$lt{'newf'}" />$help{'Adding_Folders'}
</span>
</form>	</form>
NFFORM	NFFORM

Line 3137 NFFORM	Line 3196 NFFORM
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />	value="$lt{'syll'}=/public/$coursedom/$coursenum/syllabus" />
<span class="LC_nobreak">	<a onclick="document.newsyl.submit()">$lt{'syll'}</a>
<input name="newsyl" type="submit" value="$lt{'syll'}" />
$help{'Syllabus'}	$help{'Syllabus'}
</span>
</form>	</form>
NSYLFORM	NSYLFORM

Line 3150 NSYLFORM	Line 3208 NSYLFORM
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />	value="$lt{'grpo'}=/adm/$coursedom/$coursenum/aboutme" />
<span class="LC_nobreak">	<a onclick="document.newgroupfiles.submit()">$lt{'grpo'}</a>
<input name="newgroupfiles" type="submit" value="$lt{'grpo'}" />
$help{'Group Portfolio'}	$help{'Group Portfolio'}
</span>
</form>	</form>
NGFFORM	NGFFORM
	@specialdocumentsforma=(
$specialdocumentsform="<br />$newpageform<br />$newsylform<br />$newgroupfileform";	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/sequence.png" alt="pic06" />'=>$newpageform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/syllabus.png" alt="pic07" />'=>$newsylform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/groupportfolio.png" alt="pic08" />'=>$newgroupfileform},
	);

}	}
$specialdocumentsform.="<br />$newnavform<br />$newsmppageform	push @specialdocumentsforma, ({'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/navigation.png" alt="pic09" />'=>$newnavform},
<br />$newsmpproblemform<br />$newdropboxform	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/simple.png" alt="pic10" />'=>$newsmppageform},
<br />$newexuploadform<br />$newbulform	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/simpprob.png" alt="pic11" />'=>$newsmpproblemform},
<br />$newaboutmeform<br />$newaboutsomeoneform	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/dropbox.png" alt="pic12" />'=>$newdropboxform},
<br />$newrosterform";	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/scoreupfrm.png" alt="pic13" />'=>$newexuploadform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/bchat.png" alt="pic14" />'=>$newbulform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/myaboutme.png" alt="pic15" />'=>$newaboutmeform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/aboutme.png" alt="pic16" />'=>$newaboutsomeoneform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/chrt.png" alt="pic17" />'=>$newrosterform},);

	$specialdocumentsform = create_form_ul(create_list_elements(@specialdocumentsforma));

if($env{'form.pagepath'}) {	if($env{'form.pagepath'}) {
$specialdocumentsform="<br />$newsmpproblemform<br />$newexuploadform";
	@specialdocumentsforma=(
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic32" />'=>$newsmpproblemform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic33" />'=>$newexuploadform}
	);
	$specialdocumentsform= create_form_ul(create_list_elements(@specialdocumentsforma));
}	}

	my @tools = (
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/extres.png" alt="pic18" />'=>$extresourcesform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/ims.png" alt="pic19" />'=>$imspform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/recover.png" alt="pic20" />'=>$recoverform},
	);

my %orderhash = (	my %orderhash = (
'aa' => ['Upload Document',$fileuploadform.'<br />'.$newfolderform],	'00' => ['Newfolder',$newfolderform],
'bb' => ['Published Documents',$simpleeditdefaultform],	'aa' => ['Upload Document',$fileuploadform],
	'bb' => ['Published Resources',$simpleeditdefaultform],
'cc' => ['Special Documents',$specialdocumentsform],	'cc' => ['Special Documents',$specialdocumentsform],
'dd' => ['Tools',$extresourcesform.'<br />'.$imspform.'<br />'.$recoverform.'<br />'.&generate_admin_options($containertag,$uploadtag,\%help,\%env)],	'dd' => ['Tools', create_form_ul(create_list_elements(@tools)).&generate_admin_options($containertag,$uploadtag,\%help,\%env)],
'zz' => ['Hide all Options'],
);	);
my $tid='1';	my $tid='1';
my $varcd = 'Main Course Documents';	my $varcd = 'Main Course Documents';
$r->print(&generate_edit_table($tid,$varcd,\%orderhash));
$hadchanges=0;	$hadchanges=0;
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {	if ($error) {
Line 3188 $r->print(&generate_edit_table($tid,$var	Line 3265 $r->print(&generate_edit_table($tid,$var
}	}

&changewarning($r,'');	&changewarning($r,'');
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',	$r->print(&generate_edit_table($tid,$varcd,\%orderhash));
&mt('Editing the Table of Contents for your '.$type)));
$r->print('</div>');	$r->print('</div>');
	}
if ($env{'form.pagepath'}) {	if ($env{'form.pagepath'}) {
}	}
# ----------------------------------------------------- Supplemental documents	# ----------------------------------------------------- Supplemental documents
Line 3207 $r->print('</div>');	Line 3285 $r->print('</div>');
(($env{'form.folderpath'} =~ /^default\&/) \|\| ($env{'form.folderpath'} eq ''))) {	(($env{'form.folderpath'} =~ /^default\&/) \|\| ($env{'form.folderpath'} eq ''))) {
$env{'form.folderpath'} = 'supplemental&'.	$env{'form.folderpath'} = 'supplemental&'.
&escape(&mt('Supplemental '.$type.' Documents'));	&escape(&mt('Supplemental '.$type.' Documents'));
}else{	} elsif ($allowed) {
$env{'form.folderpath'} = $savefolderpath;	$env{'form.folderpath'} = $savefolderpath;
}	}
$env{'form.pagepath'} = '';	$env{'form.pagepath'} = '';
Line 3218 $r->print('</div>');	Line 3296 $r->print('</div>');

my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');	my $path = &HTML::Entities::encode($env{'form.folderpath'},'<>&"');

	my @supupdocform = (
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic27" />'=>"<input type='submit' value='".$lt{'upld'}."' />$help{'Uploading_From_Harddrive'}"},
	);
my $supupdocform=(<<SUPDOCFORM);	my $supupdocform=(<<SUPDOCFORM);
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<form action="/adm/coursedocs" method="post" name="supuploaddocument" enctype="multipart/form-data">
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="ee" />
$fileupload	$fileupload
<br />	<br />
Line 3229 $r->print('</div>');	Line 3310 $r->print('</div>');
</span>	</span>
<br /><br />	<br /><br />
$lt{'comment'}:<br />	$lt{'comment'}:<br />
<textarea cols="50" rows="4" name="comment">	<textarea cols="50" rows="4" name="comment"></textarea>
</textarea>
<br />	<br />
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="cmd" value="upload_supplemental" />	<input type="hidden" name="cmd" value="upload_supplemental" />
<span class="LC_nobreak">
<input type="submit" value="$lt{'upld'}" />
$help{'Uploading_From_Harddrive'}
</span>
</form>
SUPDOCFORM	SUPDOCFORM
	$supupdocform .= create_form_ul(create_list_elements(@supupdocform))."</form>";

my $supnewfolderform=(<<SNFFORM);	my $supnewfolderform=(<<SNFFORM);
<form action="/adm/coursedocs" method="post" name="supnewfolder">	<form action="/adm/coursedocs" method="post" name="supnewfolder">
<input type="hidden" name="active" value="ee" />	<input type="hidden" name="active" value="ee" />
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makenewfolder(document.supnewfolder,'$folderseq');">$lt{'newf'}</a>
<input name="newfolder" type="button"	$help{'Adding_Folders'}
onclick="javascript:makenewfolder(this.form,'$folderseq');"
value="$lt{'newf'}" /> $help{'Adding_Folders'}
</span>
</form>	</form>
SNFFORM	SNFFORM


my $supnewextform=(<<SNEFORM);	my $supnewextform=(<<SNEFORM);
<form action="/adm/coursedocs" method="post" name="supnewext">	<form action="/adm/coursedocs" method="post" name="supnewext">
<input type="hidden" name="active" value="ff" />	<input type="hidden" name="active" value="ff" />
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail" value="" />	<input type="hidden" name="importdetail" value="" />
<span class="LC_nobreak">	<a onclick="javascript:makenewext('supnewext');">$lt{'extr'}</a> $help{'Adding_External_Resource'}
<input name="newext" type="button"
onclick="javascript:makenewext('supnewext');"
value="$lt{'extr'}" /> $help{'Adding_External_Resource'}
</span>
</form>	</form>
SNEFORM	SNEFORM

Line 3274 SNEFORM	Line 3343 SNEFORM
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="Syllabus=/public/$coursedom/$coursenum/syllabus" />	value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
<span class="LC_nobreak">	<a onclick="document.supnewsyl.submit()">$lt{'syll'}</a>
<input name="newsyl" type="submit" value="$lt{'syll'}" />
$help{'Syllabus'}	$help{'Syllabus'}
</span>
</form>	</form>
SNSFORM	SNSFORM

my $supnewaboutmeform=(<<SNAMFORM);	my $supnewaboutmeform=(<<SNAMFORM);
<form action="/adm/coursedocs" method="post" name="subnewaboutme">	<form action="/adm/coursedocs" method="post" name="supnewaboutme">
<input type="hidden" name="active" value="ff" />	<input type="hidden" name="active" value="ff" />
<input type="hidden" name="folderpath" value="$path" />	<input type="hidden" name="folderpath" value="$path" />
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme" />	value="$plainname=/adm/$udom/$uname/aboutme" />
<span class="LC_nobreak">	<a onclick="document.supnewaboutme.submit()">$lt{'mypi'}</a>
<input name="newaboutme" type="submit" value="$lt{'mypi'}" />
$help{'My Personal Information Page'}	$help{'My Personal Information Page'}
</span>
</form>	</form>
SNAMFORM	SNAMFORM


	my @specialdocs = (
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic29" />'=>$supnewextform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic30" />'=>$supnewsylform},
	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/docspacer.gif" alt="pic31" />'=>$supnewaboutmeform},
	);
my %suporderhash = (	my %suporderhash = (
'ee' => ['Upload Document',$supupdocform.'<br />'.$supnewfolderform],	'00' => ['Supnewfolder', $supnewfolderform],
'ff' => ['Special Documents',$supnewextform.'<br />'.$supnewsylform.'<br />'.$supnewaboutmeform],	'ee' => ['Upload Document',$supupdocform],
'zz' => ['Hide all Options'],	'ff' => ['Special Documents',create_form_ul(create_list_elements(@specialdocs))]
);	);

my $tid='2';	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
my $varscd = 'Supplemental Course Documents';	if ($error) {
	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
	}
	my $tid='2';
	my $varscd = 'Supplemental Course Documents';
	$r->print(&generate_edit_table($tid,$varscd,\%suporderhash));
	} else {
	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
	if ($error) {
	$r->print('<p><span class="LC_error">'.$error.'</span></p>');
	}
	}


$r->print(&generate_edit_table($tid,$varscd,\%suporderhash));
my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');
}
$r->print('</div>');
}
$r->print('</div>');	$r->print('</div>');
	$r->print('</div></div>');


if ($allowed) {	if ($allowed) {
$r->print('	$r->print('
<form method="post" name="extimport" action="/adm/coursedocs">	<form method="post" name="extimport" action="/adm/coursedocs">
Line 3348 sub generate_admin_options {	Line 3425 sub generate_admin_options {
my %env = %{$env_ref};	my %env = %{$env_ref};
my $dumpbut=&dumpbutton();	my $dumpbut=&dumpbutton();
my $exportbut=&exportbutton();	my $exportbut=&exportbutton();
return (<<ENDOPTIONFORM);	my @list = (
<form action="/adm/coursedocs" method="post" name="courseverify">	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/verify.png" alt="pic21" />'=>"<a onclick='javascript:injectData(document.courseverify, \"dummy\", \"verify\", \"$lt{'vc'}\")'>$lt{'vc'}</a>$help{'Verify_Content'}"},
<input type="submit" name="verify" value="$lt{'vc'}" />$help{'Verify_Content'}<br />	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/resversion.png" alt="pic22" />'=>"<a onclick='javascript:injectData(document.courseverify, \"dummy\", \"versions\", \"$lt{'cv'}\")'>$lt{'cv'}</a>$help{'Check_Resource_Versions'}"},
<input type="submit" name="versions" value="$lt{'cv'}" />$help{'Check_Resource_Versions'}<br />	);
$dumpbut	if($dumpbut ne ''){
$exportbut	push @list, {'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/dump.png" alt="pic23" />'=>$dumpbut};
<input type="submit" name="listsymbs" value="$lt{'ls'}" />	}
<input type="hidden" name="folder" value="$env{'form.folder'}" /><br />	push @list, ({'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/imsexport.png" alt="pic24" />'=>$exportbut},
<input type="submit" name="docslog" value="$lt{'sl'}" />	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/symbs.png" alt="pic25" />'=>"<a onclick='javascript:injectData(document.courseverify, \"dummy\", \"listsymbs\", \"$lt{'ls'}\")'>$lt{'ls'}</a><input type='hidden' name='folder' value='$env{'form.folder'}' />"},
</form>	{'<img class="LC_noBorder LC_middle" align="left" src="/res/adm/pages/log.png" alt="pic26" />'=>"<a onclick='javascript:injectData(document.courseverify, \"dummy\", \"docslog\", \"$lt{'sl'}\")'>$lt{'sl'}</a>"},
ENDOPTIONFORM	);
	return '<form action="/adm/coursedocs" method="post" name="courseverify"><input type="hidden" id="dummy" />'.create_form_ul(create_list_elements(@list)).'</form>';

}	}

Line 3372 sub generate_edit_table {	Line 3450 sub generate_edit_table {
if($env{'form.active'} ne ''){	if($env{'form.active'} ne ''){
$activetab = $env{'form.active'};	$activetab = $env{'form.active'};
}	}
$form = '<div class="LC_Box"><h4 class="LC_hcell">'.&mt($varcd).'</h4>';	$form = '<div class="LC_Box">';
$form .= '<ul id="navigation'.$tid.'" class="LC_TabContent">';	$form .= '<ul id="navigation'.$tid.'" class="LC_TabContent">';
foreach my $name (sort(keys(%orderhash))){	foreach my $name (sort(keys(%orderhash))){
if($name eq 'zz'){	if($name ne '00'){
if($activetab ne ''){
$active = 'class="right"';
}else{
$active = 'class="right active"';
}
$form .= '<li onclick="javascript:hideAll(this, \'navigation'.$tid.'\' ,\'content'.$tid.'\');" '.$active.'>'.&mt(${$orderhash{$name}}[0]).'</li>';
}else{
if($activetab eq '' \|\| $activetab ne $name){	if($activetab eq '' \|\| $activetab ne $name){
$active = '';	$active = '';
}elsif($activetab eq $name){	}elsif($activetab eq $name){
$active = 'class="active"';	$active = 'class="active"';
}	}
$form .= '<li '.$active.' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');">'.&mt(${$orderhash{$name}}[0]).'</li>';	$form .= '<li '.$active.' onclick="javascript:showPage(this, \''.$name.$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');">'.&mt(${$orderhash{$name}}[0]).'</li>';
}	} else {
	$form .= '<li '.$active.'>'.${$orderhash{$name}}[1].'</li>';

	}
}	}
$form .= '</ul>';	$form .= '</ul>';
$form .= '<div id="content'.$tid.'" style="padding: 0 0; margin: 0 0;">';	$form .= '<div id="content'.$tid.'" style="padding: 0 0; margin: 0 0;">';
foreach my $field (keys(%orderhash)){	foreach my $field (keys(%orderhash)){
if($field ne 'zz'){	if($field ne '00'){
if($activetab eq '' \|\| $activetab ne $field){	if($activetab eq '' \|\| $activetab ne $field){
$active = 'style="display: none;"';	$active = 'style="display: none;"';
}elsif($activetab eq $field){	}elsif($activetab eq $field){
Line 3641 for (i = 0; i < currentDivs.length; i++)	Line 3715 for (i = 0; i < currentDivs.length; i++)

function openTabs(pageId) {	function openTabs(pageId) {
tabnav = document.getElementById(pageId).getElementsByTagName('UL');	tabnav = document.getElementById(pageId).getElementsByTagName('UL');
if(tabnav.length > 0 ){	if(tabnav.length > 2 ){
currentNav = document.getElementById(tabnav[0].id);	currentNav = document.getElementById(tabnav[1].id);
currentLis = currentNav.getElementsByTagName('LI');	currentLis = currentNav.getElementsByTagName('LI');
for(i = 0; i< currentLis.length; i++){	for(i = 0; i< currentLis.length; i++){
if(currentLis[i].className == 'active') {	if(currentLis[i].className == 'active') {
currentLis[i].onclick;	funcString = currentLis[i].onclick.toString();
	tab = funcString.split('"');
	currentData = document.getElementById(tab[1]);
	currentData.style.display = 'block';
}	}
}	}
}	}
}	}

function showPage(current, pageId, nav, data) {	function showPage(current, pageId, nav, data) {
/openTabs(pageId);/
hideAll(current, nav, data);	hideAll(current, nav, data);
	openTabs(pageId);
unselectInactive(nav);	unselectInactive(nav);
current.className = 'active';	current.className = 'active';
currentData = document.getElementById(pageId);	currentData = document.getElementById(pageId);
Line 3662 function showPage(current, pageId, nav,	Line 3739 function showPage(current, pageId, nav,
return false;	return false;
}	}

	function injectData(current, hiddenField, name, value) {
	currentElement = document.getElementById(hiddenField);
	currentElement.name = name;
	currentElement.value = value;
	current.submit();
	}

ENDNEWSCRIPT	ENDNEWSCRIPT
}	}
1;	1;

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

Removed from v.1.374
changed lines
	Added in v.1.394