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.370 and 1.373

version 1.370, 2009/06/08 18:04:45	version 1.373, 2009/06/17 17:36:25
Line 1790 sub entryline {	Line 1790 sub entryline {
ne '')) {	ne '')) {
$selectbox=	$selectbox=
'<input type="hidden" name="currentpos" value="'.$incindex.'" />'.	'<input type="hidden" name="currentpos" value="'.$incindex.'" />'.
'<select name="newpos" onChange="this.form.submit()">';	'<select name="newpos" onchange="this.form.submit()">';
for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {	for (my $i=1;$i<=$#LONCAPA::map::order+1;$i++) {
if ($i==$incindex) {	if ($i==$incindex) {
$selectbox.='<option value="" selected="selected">('.$i.')</option>';	$selectbox.='<option value="" selected="selected">('.$i.')</option>';
Line 1972 END	Line 1972 END
'parameter_randomorder'))[0]=~/^yes$/i);	'parameter_randomorder'))[0]=~/^yes$/i);
$url.='folderpath='.&escape($folderpath).$cpinfo;	$url.='folderpath='.&escape($folderpath).$cpinfo;
$parameterset='<label>'.&mt('Randomly Pick: ').	$parameterset='<label>'.&mt('Randomly Pick: ').
'<input type="text" size="4" onChange="this.form.changeparms.value='."'randompick'".';this.form.submit()" name="randompick_'.$orderidx.'" value="'.	'<input type="text" size="4" onchange="this.form.changeparms.value='."'randompick'".';this.form.submit()" name="randompick_'.$orderidx.'" value="'.
(&LONCAPA::map::getparameter($orderidx,	(&LONCAPA::map::getparameter($orderidx,
'parameter_randompick'))[0].	'parameter_randompick'))[0].
'" />'.	'" />'.
Line 2502 sub changewarning {	Line 2502 sub changewarning {
$message='Changes will become active for your current session after [_1], or the next time you log in.';	$message='Changes will become active for your current session after [_1], or the next time you log in.';
}	}
$r->print("\n\n".	$r->print("\n\n".
'<script type="text/javascript">'.	'<script type="text/javascript">'."\n".
'// <![CDATA['.	'// <![CDATA['."\n".
'function reinit(tf) { tf.submit();'.$postexec.' }'.	'function reinit(tf) { tf.submit();'.$postexec.' }'."\n".
'// ]]>'.	'// ]]>'."\n".
'</script>'."\n".	'</script>'."\n".
'<form name="reinitform" method="post" action="/adm/roles" target="loncapaclient">'.	'<form name="reinitform" method="post" action="/adm/coursedocs" target="loncapaclient">'.
'<input type="hidden" name="orgurl" value="'.$url.	'<input type="hidden" name="orgurl" value="'.$url.
'" /><input type="hidden" name="selectrole" value="1" /><h3><span 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="'.
$env{'request.role'}.'" value="1" /><input type="button" value="'.	$env{'request.role'}.'" value="1" /><input type="button" value="'.
&mt('re-initializing '.$course_type).'" onclick="reinit(this.form)" />').	&mt('re-initializing '.$course_type).'" onclick="reinit(this.form)" />').
$help{'Caching'}.'</span></h3></form>'."\n\n");	$help{'Caching'}.'</p></form>'."\n\n");
}	}


Line 2670 sub handler {	Line 2670 sub handler {
}	}
# -------------------------------------------------------------------- Body tag	# -------------------------------------------------------------------- Body tag
$script = '<script type="text/javascript">'."\n"	$script = '<script type="text/javascript">'."\n"
.'// <![CDATA['	.'// <![CDATA['."\n"
.$script	.$script."\n"
.'// ]]>'	.'// ]]>'."\n"
."\n".'</script>';	.'</script>'."\n";
my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];	my $brcrum = [{href=>"/adm/createuser",text=>"$type Documents"}];
$r->print(&Apache::loncommon::start_page("$type Documents", $script,	$r->print(&Apache::loncommon::start_page("$type Documents", $script,
{'force_register' => $showdoc,	{'force_register' => $showdoc,
Line 2824 CHBO	Line 2824 CHBO

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" />
$fileupload	$fileupload
<br />	<br />
$lt{'title'}:<br />	$lt{'title'}:<br />
Line 2845 FUFORM	Line 2846 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" />
$lt{'pubd'}<br />	$lt{'pubd'}<br />
$uploadtag	$uploadtag
<input type="button" onclick="javascript:groupsearch()" value="$lt{'srch'}" />	<input type="button" onclick="javascript:groupsearch()" value="$lt{'srch'}" />
Line 2923 HIDDENFORM	Line 2925 HIDDENFORM
$activeClass = 0;	$activeClass = 0;
}	}
}	}
$r->print('<li '.$active.'onclick="javascript:showPage(this,\'mainCourseDocuments\',\'mainnav\',\'maincoursedoc\');">'.&mt('Main Course Documents').'</li>');	$r->print('<li '.$active.' onclick="javascript:showPage(this,\'mainCourseDocuments\',\'mainnav\',\'maincoursedoc\');">'.&mt('Main Course Documents').'</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,\'Supplemental Course Documents\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>');	$r->print('<li '.$active.' onclick="javascript:showPage(this,\'supplCourseDocuments\',\'mainnav\',\'maincoursedoc\');">'.&mt('Supplemental Course Documents').'</li>');
$r->print('</ul><div class="LC_Box" style="margin:0 0;padding:0 0;"><div id="maincoursedoc" style="margin:0 0;padding:0 0;">');	$r->print('</ul><div class="LC_Box" style="margin:0 0;padding:0 0;"><div id="maincoursedoc" style="margin:0 0;padding:0 0;">');
# --------------------------------------------------------- Standard documents	# --------------------------------------------------------- Standard documents
my $savefolderpath;	my $savefolderpath;
Line 2939 HIDDENFORM	Line 2941 HIDDENFORM
$active = 'style="display: block;"';	$active = 'style="display: block;"';
}	}
$r->print('<div class="LC_ContentBox" id="mainCourseDocuments" '.$active.'>');	$r->print('<div class="LC_ContentBox" id="mainCourseDocuments" '.$active.'>');
$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
&mt('Editing the Table of Contents for your '.$type)));
my $folder=$env{'form.folder'};	my $folder=$env{'form.folder'};
if ($folder eq '' \|\| $folder=~/^supplemental/) {	if ($folder eq '' \|\| $folder=~/^supplemental/) {
$folder='default';	$folder='default';
Line 2951 HIDDENFORM	Line 2951 HIDDENFORM
}	}
my $postexec='';	my $postexec='';
if ($folder eq 'default') {	if ($folder eq 'default') {
$r->print('<script type="text/javascript">'	$r->print('<script type="text/javascript">'."\n"
.'// <![CDATA['	.'// <![CDATA['."\n"
.'this.window.name="loncapaclient";'	.'this.window.name="loncapaclient";'."\n"
.'// ]]>'	.'// ]]>'."\n"
.'</script>'	.'</script>'."\n"
);	);
} else {	} else {
#$postexec='self.close();';	#$postexec='self.close();';
Line 2987 IMSPFORM	Line 2987 IMSPFORM

my $newnavform=(<<NNFORM);	my $newnavform=(<<NNFORM);
<form action="/adm/coursedocs" method="post" name="newnav">	<form action="/adm/coursedocs" method="post" name="newnav">
	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'navc'}=/adm/navmaps" />	value="$lt{'navc'}=/adm/navmaps" />
Line 2998 IMSPFORM	Line 2999 IMSPFORM
NNFORM	NNFORM
my $newsmppageform=(<<NSPFORM);	my $newsmppageform=(<<NSPFORM);
<form action="/adm/coursedocs" method="post" name="newsmppg">	<form action="/adm/coursedocs" method="post" name="newsmppg">
	<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">	<span class="LC_nobreak">
Line 3009 NSPFORM	Line 3011 NSPFORM

my $newsmpproblemform=(<<NSPROBFORM);	my $newsmpproblemform=(<<NSPROBFORM);
<form action="/adm/coursedocs" method="post" name="newsmpproblem">	<form action="/adm/coursedocs" method="post" name="newsmpproblem">
	<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">	<span class="LC_nobreak">
Line 3021 NSPROBFORM	Line 3024 NSPROBFORM

my $newdropboxform=(<<NDBFORM);	my $newdropboxform=(<<NDBFORM);
<form action="/adm/coursedocs" method="post" name="newdropbox">	<form action="/adm/coursedocs" method="post" name="newdropbox">
	<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">	<span class="LC_nobreak">
Line 3032 NDBFORM	Line 3036 NDBFORM

my $newexuploadform=(<<NEXUFORM);	my $newexuploadform=(<<NEXUFORM);
<form action="/adm/coursedocs" method="post" name="newexamupload">	<form action="/adm/coursedocs" method="post" name="newexamupload">
	<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">	<span class="LC_nobreak">
Line 3044 NEXUFORM	Line 3049 NEXUFORM

my $newbulform=(<<NBFORM);	my $newbulform=(<<NBFORM);
<form action="/adm/coursedocs" method="post" name="newbul">	<form action="/adm/coursedocs" method="post" name="newbul">
	<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">	<span class="LC_nobreak">
Line 3056 NBFORM	Line 3062 NBFORM

my $newaboutmeform=(<<NAMFORM);	my $newaboutmeform=(<<NAMFORM);
<form action="/adm/coursedocs" method="post" name="newaboutme">	<form action="/adm/coursedocs" method="post" name="newaboutme">
	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$plainname=/adm/$udom/$uname/aboutme" />	value="$plainname=/adm/$udom/$uname/aboutme" />
Line 3068 NAMFORM	Line 3075 NAMFORM

my $newaboutsomeoneform=(<<NASOFORM);	my $newaboutsomeoneform=(<<NASOFORM);
<form action="/adm/coursedocs" method="post" name="newaboutsomeone">	<form action="/adm/coursedocs" method="post" name="newaboutsomeone">
	<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">	<span class="LC_nobreak">
Line 3080 NASOFORM	Line 3088 NASOFORM

my $newrosterform=(<<NROSTFORM);	my $newrosterform=(<<NROSTFORM);
<form action="/adm/coursedocs" method="post" name="newroster">	<form action="/adm/coursedocs" method="post" name="newroster">
	<input type="hidden" name="active" value="cc" />
$uploadtag	$uploadtag
<input type="hidden" name="importdetail"	<input type="hidden" name="importdetail"
value="$lt{'rost'}=/adm/viewclasslist" />	value="$lt{'rost'}=/adm/viewclasslist" />
Line 3100 my $newfolderform;	Line 3109 my $newfolderform;
<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" />
<span class="LC_nobreak">	<span class="LC_nobreak">
<input name="newpage" type="button"	<input name="newpage" type="button"
onclick="javascript:makenewpage(this.form,'$pageseq');"	onclick="javascript:makenewpage(this.form,'$pageseq');"
Line 3112 NPFORM	Line 3122 NPFORM
<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" />
<span class="LC_nobreak">	<span class="LC_nobreak">
<input name="newfolder" type="button"	<input name="newfolder" type="button"
onclick="javascript:makenewfolder(this.form,'$folderseq');"	onclick="javascript:makenewfolder(this.form,'$folderseq');"
Line 3122 NFFORM	Line 3133 NFFORM

my $newsylform=(<<NSYLFORM);	my $newsylform=(<<NSYLFORM);
<form action="/adm/coursedocs" method="post" name="newsyl">	<form action="/adm/coursedocs" method="post" name="newsyl">
	<input type="hidden" name="active" value="cc" />
$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" />
Line 3134 NSYLFORM	Line 3146 NSYLFORM

my $newgroupfileform=(<<NGFFORM);	my $newgroupfileform=(<<NGFFORM);
<form action="/adm/coursedocs" method="post" name="newgroupfiles">	<form action="/adm/coursedocs" method="post" name="newgroupfiles">
	<input type="hidden" name="active" value="cc" />
$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" />
Line 3175 $r->print(&generate_edit_table($tid,$var	Line 3188 $r->print(&generate_edit_table($tid,$var
}	}

&changewarning($r,'');	&changewarning($r,'');
	$r->print(&Apache::loncommon::help_open_topic('Docs_Adding_Course_Doc',
	&mt('Editing the Table of Contents for your '.$type)));
$r->print('</div>');	$r->print('</div>');
if ($env{'form.pagepath'}) {	if ($env{'form.pagepath'}) {
}	}
Line 3183 $r->print('</div>');	Line 3198 $r->print('</div>');
if($activeClass == 1){	if($activeClass == 1){
$active = 'style="display: block;"';	$active = 'style="display: block;"';
}	}
$r->print('<div class="LC_ContentBox" id="Supplemental Course Documents" '.$active.'>');	$r->print('<div class="LC_ContentBox" id="supplCourseDocuments" '.$active.'>');
my $folder=$env{'form.folder'};	my $folder=$env{'form.folder'};
unless ($folder=~/^supplemental/) {	unless ($folder=~/^supplemental/) {
$folder='supplemental';	$folder='supplemental';
Line 3205 $r->print('</div>');	Line 3220 $r->print('</div>');

my $supupdocform=(<<SUPDOCFORM);	my $supupdocform=(<<SUPDOCFORM);
<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">	<form action="/adm/coursedocs" method="post" enctype="multipart/form-data">
	<input type="hidden" name="active" value="ee" />
$fileupload	$fileupload
<br />	<br />
<br />	<br />
Line 3227 SUPDOCFORM	Line 3243 SUPDOCFORM

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="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">	<span class="LC_nobreak">
Line 3240 SNFFORM	Line 3257 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="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">	<span class="LC_nobreak">
Line 3252 SNEFORM	Line 3270 SNEFORM

my $supnewsylform=(<<SNSFORM);	my $supnewsylform=(<<SNSFORM);
<form action="/adm/coursedocs" method="post" name="supnewsyl">	<form action="/adm/coursedocs" method="post" name="supnewsyl">
	<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="Syllabus=/public/$coursedom/$coursenum/syllabus" />	value="Syllabus=/public/$coursedom/$coursenum/syllabus" />
Line 3264 SNSFORM	Line 3283 SNSFORM

my $supnewaboutmeform=(<<SNAMFORM);	my $supnewaboutmeform=(<<SNAMFORM);
<form action="/adm/coursedocs" method="post" name="subnewaboutme">	<form action="/adm/coursedocs" method="post" name="subnewaboutme">
	<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" />
Line 3283 my %suporderhash = (	Line 3303 my %suporderhash = (
);	);

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

$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);
Line 3347 sub generate_edit_table {	Line 3367 sub generate_edit_table {
my ($tid,$varcd,$orderhash_ref) = @_;	my ($tid,$varcd,$orderhash_ref) = @_;
my %orderhash = %{$orderhash_ref};	my %orderhash = %{$orderhash_ref};
my $form;	my $form;
	my $activetab;
	my $active;
	if($env{'form.active'} ne ''){
	$activetab = $env{'form.active'};
	}
$form = '<div class="LC_Box"><h4 class="LC_hcell">'.&mt($varcd).'</h4>';	$form = '<div class="LC_Box"><h4 class="LC_hcell">'.&mt($varcd).'</h4>';
$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'){
$form .= '<span class="LC_Right"><li onclick="javascript:hideAll(this, \'navigation'.$tid.'\' ,\'content'.$tid.'\');" class="active">'.&mt(${$orderhash{$name}}[0]).'</li></span>';	if($activetab ne ''){
	$active = '';
	}else{
	$active = 'class="active"';
	}
	$form .= '<span class="LC_Right"><li onclick="javascript:hideAll(this, \'navigation'.$tid.'\' ,\'content'.$tid.'\');" '.$active.'>'.&mt(${$orderhash{$name}}[0]).'</li></span>';
}else{	}else{
$form .= '<li onclick="javascript:showPage(this, \''.substr(${$orderhash{$name}}[0],0,3).$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');">'.&mt(${$orderhash{$name}}[0]).'</li>';	if($activetab eq '' \|\| $activetab ne $name){
	$active = '';
	}elsif($activetab eq $name){
	$active = 'class="active"';
	}
	$form .= '<li '.$active.' onclick="javascript:showPage(this, \''.substr(${$orderhash{$name}}[0],0,3).$tid.'\', \'navigation'.$tid.'\',\'content'.$tid.'\');">'.&mt(${$orderhash{$name}}[0]).'</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 'zz'){
$form .= '<div id="'.substr(${$orderhash{$field}}[0],0,3).$tid.'" class="LC_ContentBox" style="display: none;">'.${$orderhash{$field}}[1].'</div>';	if($activetab eq '' \|\| $activetab ne $field){
	$active = 'style="display: none;"';
	}elsif($activetab eq $field){
	$active = 'style="display:block;"';
	}
	$form .= '<div id="'.substr(${$orderhash{$field}}[0],0,3).$tid.'"'
	.' class="LC_ContentBox" '.$active.'>'.${$orderhash{$field}}[1]
	.'</div>';
}	}
}	}
$form .= '</div></div>';	$form .= '</div></div>';

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

Removed from v.1.370
changed lines
	Added in v.1.373