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.251 and 1.255

version 1.251, 2006/11/13 17:20:29	version 1.255, 2006/11/22 03:56:36
Line 1027 sub log_docs {	Line 1027 sub log_docs {
my ($plain)=@_;	my ($plain)=@_;
my %storehash=('folder' => $plain);	my %storehash=('folder' => $plain);
if ($parmidx) {	if ($parmidx) {
$storehash{'parameter_idx'}=$parmidx;
$storehash{'parameter_res'}=$oldresources[$parmidx];	$storehash{'parameter_res'}=$oldresources[$parmidx];
foreach my $parm (keys %parmaction) {	foreach my $parm (keys %parmaction) {
$storehash{'parameter_action_'.$parm}=$parmaction{$parm};	$storehash{'parameter_action_'.$parm}=$parmaction{$parm};
Line 1045 sub log_docs {	Line 1044 sub log_docs {
$changedflag=1;	$changedflag=1;
}	}
if ($LONCAPA::map::order[$idx] ne $oldorder[$idx]) {	if ($LONCAPA::map::order[$idx] ne $oldorder[$idx]) {
$storehash{'before_order_'.$idx}=$oldorder[$idx];	$storehash{'before_order_res_'.$idx}=$oldresources[$oldorder[$idx]];
$storehash{'after_order_'.$idx}=$LONCAPA::map::order[$idx];	$storehash{'after_order_res_'.$idx}=$LONCAPA::map::resources[$LONCAPA::map::order[$idx]];
$storehash{'before_order_res_'.$idx}=$oldresources[$idx];
$storehash{'after_order_res_'.$idx}=$LONCAPA::map::resources[$idx];
$changedflag=1;	$changedflag=1;
}	}
}	}
Line 1065 sub docs_change_log {	Line 1062 sub docs_change_log {
my ($r)=@_;	my ($r)=@_;
$r->print(&Apache::loncommon::start_page('Course Document Change Log'));	$r->print(&Apache::loncommon::start_page('Course Document Change Log'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));	$r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Document Change Log'));

my %docslog=&Apache::lonnet::dump('nohist_docslog',	my %docslog=&Apache::lonnet::dump('nohist_docslog',
$env{'course.'.$env{'request.course.id'}.'.domain'},	$env{'course.'.$env{'request.course.id'}.'.domain'},
$env{'course.'.$env{'request.course.id'}.'.num'});	$env{'course.'.$env{'request.course.id'}.'.num'});

if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }	if ((keys(%docslog))[0]=~/^error\:/) { undef(%docslog); }

$r->print('<form action="/adm/coursedocs" method="post" name="docslog">'.	$r->print('<form action="/adm/coursedocs" method="post" name="docslog">'.
'<input type="hidden" name="docslog" value="1" />');	'<input type="hidden" name="docslog" value="1" />');

my %saveable_parameters = ('show' => 'scalar',);	my %saveable_parameters = ('show' => 'scalar',);
&Apache::loncommon::store_course_settings('docs_log',	&Apache::loncommon::store_course_settings('docs_log',
\%saveable_parameters);	\%saveable_parameters);
&Apache::loncommon::restore_course_settings('docs_log',	&Apache::loncommon::restore_course_settings('docs_log',
\%saveable_parameters);	\%saveable_parameters);
if (!$env{'form.show'}) { $env{'form.show'}=10; }	if (!$env{'form.show'}) { $env{'form.show'}=10; }
	my %lt=('hiddenresource' => 'Resources hidden',
	'encrypturl' => 'URL hidden',
	'randompick' => 'Randomly pick',
	'set' => 'set to',
	'del' => 'deleted');

my $countselect =	my $countselect =
&Apache::lonmeta::selectbox('show',$env{'form.show'},undef,	&Apache::lonmeta::selectbox('show',$env{'form.show'},undef,
(&mt('all'),10,20,50,100,1000,10000));	(&mt('all'),10,20,50,100,1000,10000));

$r->print('<nobr>'.&mt('[_1] Records',$countselect).'</nobr>'.	$r->print('<nobr>'.&mt('[_1] Records',$countselect).'</nobr>'.
'<input type="submit" value="'.&mt('Display').'" /></form>');	'<input type="submit" value="'.&mt('Display').'" /></form>');
$r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().	$r->print(&Apache::loncommon::start_data_table().&Apache::loncommon::start_data_table_header_row().
Line 1125 sub docs_change_log {	Line 1127 sub docs_change_log {
my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];	my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];	my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
if ($oldname ne $newname) {	if ($oldname ne $newname) {
$r->print(&LONCAPA::map::qtunescape($oldname));	$r->print(&LONCAPA::map::qtescape($oldname));
}	}
}	}
	$r->print('<ul>');
	for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
	if ($docslog{$id}{'logentry'}{'before_order_res_'.$idx}) {
	$r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'before_order_res_'.$idx}))[0]).'</li>');
	}
	}
	$r->print('</ul>');
# After	# After
$r->print('</td><td>');	$r->print('</td><td>');

Line 1135 sub docs_change_log {	Line 1144 sub docs_change_log {
my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];	my $oldname=(split(/\:/,$docslog{$id}{'logentry'}{'before_resources_'.$idx}))[0];
my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];	my $newname=(split(/\:/,$docslog{$id}{'logentry'}{'after_resources_'.$idx}))[0];
if ($oldname ne $newname) {	if ($oldname ne $newname) {
$r->print(&LONCAPA::map::qtunescape($newname));	$r->print(&LONCAPA::map::qtescape($newname));
}	}
}	}
	$r->print('<ul>');
	for (my $idx=0;$idx<=$docslog{$id}{'logentry'}{'maxidx'};$idx++) {
	if ($docslog{$id}{'logentry'}{'after_order_res_'.$idx}) {
	$r->print('<li>'.&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'after_order_res_'.$idx}))[0]).'</li>');
	}
	}
	$r->print('</ul>');
	if ($docslog{$id}{'logentry'}{'parameter_res'}) {
	$r->print(&LONCAPA::map::qtescape((split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'}))[0]).':<ul>');
	foreach my $parameter ('randompick','hiddenresource','encrypturl') {
	if ($docslog{$id}{'logentry'}{'parameter_action_'.$parameter}) {
	$r->print('<li>'.
	&mt($lt{$parameter}.' '.$lt{$docslog{$id}{'logentry'}{'parameter_action_'.$parameter}}.' [_1]',
	$docslog{$id}{'logentry'}{'parameter_value_'.$parameter})
	.'</li>');
	}
	}
	$r->print('</ul>');
	}
# End	# End
$r->print('</td>'.&Apache::loncommon::end_data_table_row());	$r->print('</td>'.&Apache::loncommon::end_data_table_row());
$shown++;	$shown++;
Line 2331 sub handler {	Line 2359 sub handler {
'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');	'Docs_About_Bulletin_Board,Docs_Editing_Templated_Pages');
$help{'My Personal Info'} = &Apache::loncommon::help_open_topic(	$help{'My Personal Info'} = &Apache::loncommon::help_open_topic(
'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');	'Docs_About_My_Personal_Info,Docs_Editing_Templated_Pages');
	$help{'Group Files'} = &Apache::loncommon::help_open_topic('Docs_About_Group_Files');
$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');	$help{'Caching'} = &Apache::loncommon::help_open_topic('Caching');

# does this user have privileges to modify docs	# does this user have privileges to modify docs
Line 2525 sub handler {	Line 2554 sub handler {
'scuf' => 'Score Upload Form',	'scuf' => 'Score Upload Form',
'bull' => 'Bulletin Board',	'bull' => 'Bulletin Board',
'mypi' => 'My Personal Info',	'mypi' => 'My Personal Info',
	'grpo' => 'Group Files',
'abou' => 'About User',	'abou' => 'About User',
'imsf' => 'Import IMS package',	'imsf' => 'Import IMS package',
'file' => 'File',	'file' => 'File',
Line 2789 $uploadtag	Line 2819 $uploadtag
onClick="javascript:makeabout();" />	onClick="javascript:makeabout();" />
</nobr>	</nobr>
</form>	</form>
	<br /><form action="/adm/coursedocs" method="post" name="newgroupfiles">
	$uploadtag
	<input type=hidden name="importdetail"
	value="Group Files=/adm/$coursedom/$coursenum/aboutme">
	<nobr>
	<input name="newgroupfiles" type="submit" value="$lt{'grpo'}" />
	$help{'Group Files'}
	</nobr>
	</form>
ENDFORM	ENDFORM
}	}
if ($env{'form.pagepath'}) {	if ($env{'form.pagepath'}) {

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

Removed from v.1.251
changed lines
	Added in v.1.255