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.375 and 1.384

version 1.375, 2009/07/08 07:51:01	version 1.384, 2009/08/28 19:43:16
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 1030 sub breadcrumbs {	Line 1048 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 1272 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 1290 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 1305 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 1569 sub editor {	Line 1588 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()
	.&Apache::loncommon::start_data_table_header_row()
	.'<th colspan="2">'.&mt('Move').'</th>'
	.'<th>'.&mt('Actions').'</th>'
	.'<th colspan="2">'.&mt('Document').'</th>'
	.'<th colspan="4">'.&mt('Settings').'</th>'
	.&Apache::loncommon::end_data_table_header_row()
	.$output
	.&Apache::loncommon::end_data_table()
	)
	}
	unless($shown) {
	$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 1719 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 1759 sub entryline {	Line 1811 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 1914 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 1950 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 2057 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 2086 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 2583 sub handler {	Line 2633 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 2702 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 2773 sub handler {	Line 2843 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 2865 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 2875 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 2891 FIUP
</label>	</label>
CHBO	CHBO

	my @fileuploada = (
	{ pic01 => "<a onclick='document.uploaddocument.submit()'>$lt{'upld'}</a> $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 2907 CHBO
<span class="LC_nobreak">	<span class="LC_nobreak">
$checkbox	$checkbox
</span>	</span>
<br />	FUFORM
<br />	$fileuploadform .= create_form_ul(create_list_elements(@fileuploada));
<span class="LC_nobreak">	$fileuploadform .= (<<FUFORM);
<input type="submit" value="$lt{'upld'}" />
$help{'Uploading_From_Harddrive'}
</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'}" />	{ pic03 => "$uploadtag<a onclick='javascript:groupsearch()'>$lt{'srch'}</a>" },
<br />	{ pic04 => "<a onclick='javascript:groupimport();'>$lt{'impo'}</a>$help{'Importing_LON-CAPA_Resource'}" },
<span class="LC_nobreak">	{ 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 2940 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 2980 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($env{'request.role'}=~/^cc/){
	$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="clear 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($env{'request.role'}=~/^cc/){
$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 3045 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 3062 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 3071 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 3081 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 3092 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 3101 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 3111 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 3122 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 3132 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 3143 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;

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
	my @newfolderforma= (
	{ pic02 => "$newfolderform" }
	);


	$newfolderform = create_form_ul(create_list_elements(@newfolderforma));

my $newsylform=(<<NSYLFORM);	my $newsylform=(<<NSYLFORM);
<form action="/adm/coursedocs" method="post" name="newsyl">	<form action="/adm/coursedocs" method="post" name="newsyl">
Line 3137 NFFORM	Line 3186 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 3198 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";	{pic06=>$newpageform},
	{pic07=>$newsylform},
	{pic08=>$newgroupfileform},
	);

}	}
$specialdocumentsform.="<br />$newnavform<br />$newsmppageform	push @specialdocumentsforma, ({pic09=>$newnavform},
<br />$newsmpproblemform<br />$newdropboxform	{pic10=>$newsmppageform},
<br />$newexuploadform<br />$newbulform	{pic11=>$newsmpproblemform},
<br />$newaboutmeform<br />$newaboutsomeoneform	{pic12=>$newdropboxform},
<br />$newrosterform";	{pic13=>$newexuploadform},
	{pic14=>$newbulform},
	{pic15=>$newaboutmeform},
	{pic16=>$newaboutsomeoneform},
	{pic17=>$newrosterform},);

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

if($env{'form.pagepath'}) {	if($env{'form.pagepath'}) {
$specialdocumentsform="<br />$newsmpproblemform<br />$newexuploadform";
	@specialdocumentsforma=(
	{pic32=>$newsmpproblemform},
	{pic33=>$newexuploadform}
	);
	$specialdocumentsform= create_form_ul(create_list_elements(@specialdocumentsforma));
}	}

	my @tools = (
	{pic18=>$extresourcesform},
	{pic19=>$imspform},
	{pic20=>$recoverform},
	);

my %orderhash = (	my %orderhash = (
'aa' => ['Upload Document',$fileuploadform.'<br />'.$newfolderform],	'aa' => ['Upload Document',$fileuploadform.''.$newfolderform],
'bb' => ['Published Documents',$simpleeditdefaultform],	'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'],	'zz' => ['Hide'],
);	);
my $tid='1';	my $tid='1';
my $varcd = 'Main Course Documents';	my $varcd = 'Main Course Documents';
Line 3191 $r->print(&generate_edit_table($tid,$var	Line 3259 $r->print(&generate_edit_table($tid,$var
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',	$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
&mt('Editing the Table of Contents for your '.$type)));	&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 3218 $r->print('</div>');	Line 3287 $r->print('</div>');

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

	my @supupdocform = (
	{pic27=>"<a onclick='document.supuploaddocument.submit()'>$lt{'upld'}</a>$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 3301 $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 @supnewfolderforma = ({pic28=>$supnewfolderform});
	$supnewfolderform = create_form_ul(create_list_elements(@supnewfolderforma));


my $supnewextform=(<<SNEFORM);	my $supnewextform=(<<SNEFORM);
Line 3260 SNFFORM	Line 3327 SNFFORM
<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 3337 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 = (
	{pic29=>$supnewextform},
	{pic30=>$supnewsylform},
	{pic31=>$supnewaboutmeform},
	);
my %suporderhash = (	my %suporderhash = (
'ee' => ['Upload Document',$supupdocform.'<br />'.$supnewfolderform],	'ee' => ['Upload Document',$supupdocform.' '.$supnewfolderform],
'ff' => ['Special Documents',$supnewextform.'<br />'.$supnewsylform.'<br />'.$supnewaboutmeform],	'ff' => ['Special Documents',create_form_ul(create_list_elements(@specialdocs))],
'zz' => ['Hide all Options'],	'zz' => ['Hide'],
);	);

my $tid='2';	my $tid='2';
my $varscd = 'Supplemental Course Documents';	my $varscd = 'Supplemental Course Documents';

$r->print(&generate_edit_table($tid,$varscd,\%suporderhash));	$r->print(&generate_edit_table($tid,$varscd,\%suporderhash));
	}

my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);	my $error = &editor($r,$coursenum,$coursedom,$folder,$allowed,'',$type);
if ($error) {	if ($error) {
$r->print('<p><span class="LC_error">'.$error.'</span></p>');	$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 3414 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">	{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 />	{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, {pic23=>$dumpbut};
<input type="submit" name="listsymbs" value="$lt{'ls'}" />	}
<input type="hidden" name="folder" value="$env{'form.folder'}" /><br />	push @list, ({pic24=>$exportbut},
<input type="submit" name="docslog" value="$lt{'sl'}" />	{pic25=>"<a onclick='javascript:injectData(document.courseverify, \"dummy\", \"listsymbs\", \"$lt{'ls'}\")'>$lt{'ls'}</a><input type='hidden' name='folder' value='$env{'form.folder'}' />"},
</form>	{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 3439 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 eq 'zz'){
Line 3641 for (i = 0; i < currentDivs.length; i++)	Line 3708 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[0].id);
currentLis = currentNav.getElementsByTagName('LI');	currentLis = currentNav.getElementsByTagName('LI');
for(i = 0; i< currentLis.length; i++){	for(i = 0; i< currentLis.length; i++){
Line 3665 function showPage(current, pageId, nav,	Line 3732 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.375
changed lines
	Added in v.1.384