version 1.251, 2006/11/13 17:20:29
|
version 1.254, 2006/11/20 17:45:11
|
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++; |