version 1.13, 2012/05/16 11:26:03
|
version 1.16, 2012/08/01 19:07:51
|
Line 50 use Apache::lonnet;
|
Line 50 use Apache::lonnet;
|
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonhtmlcommon; |
use Apache::lonhtmlcommon; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use LONCAPA; |
use LONCAPA qw(:DEFAULT :match); |
use Tree; |
use Tree; |
|
|
|
|
Line 466 sub getNodesToArray {
|
Line 466 sub getNodesToArray {
|
Recursive call starting with all children of the root of the tree (parameter nodes is reference to an array containing the nodes of the current level). |
Recursive call starting with all children of the root of the tree (parameter nodes is reference to an array containing the nodes of the current level). |
|
|
|
|
=item * &wishlistImport(nodes) |
=item * &wishlistImport(nodes, numskipped) |
|
|
Returns the table-HTML-markup for the wishlist in mode "import". |
Returns the table-HTML-markup for the wishlist in mode "import". |
Recursive call starting with all children of the root of the tree (parameter nodes is reference to an array containing the nodes of the current level). |
Recursive call starting with all children of the root of the tree (parameter nodes is reference to an array containing the nodes of the current level). |
|
Side effect: increments the scalar ref: numskipped with a count of items in |
|
Stored Links unavailable for selection, (e.g., now marked obsolete or |
|
inaccessible in Community context). |
|
|
=item * &makePage(mode, marked) |
=item * &makePage(mode, marked) |
|
|
Line 528 sub JSforWishlist {
|
Line 530 sub JSforWishlist {
|
# that means that it is checked wether a path contains .problem, .quiz, .exam etc. |
# that means that it is checked wether a path contains .problem, .quiz, .exam etc. |
# this is good for most cases but crashes as soon as a real external website contains one of this pattern in its URL. |
# this is good for most cases but crashes as soon as a real external website contains one of this pattern in its URL. |
# so maybe there's a better way to find out wether a given URL belongs to a LON-CAPA-server or not ...? |
# so maybe there's a better way to find out wether a given URL belongs to a LON-CAPA-server or not ...? |
my $warningLinkNotAllowed1 = &mt('You can only insert links to LON-CAPA resources from the resource-pool '. |
my $warningLinkNotAllowed1 = |
'or to external websites. Paths to LON-CAPA resources must be of the form /res/dom/usr... . '. |
&mt('You can only insert links to LON-CAPA resources from the resource-pool'. |
'Paths to external websites must contain the network protocol (e.g. http://...).'); |
' or to external websites.'. |
my $warningLinkNotAllowed2 = &mt('The following link is not allowed: '); |
' Paths to LON-CAPA resources must be of the form /res/domain/user/...'. |
|
' Paths to external websites must contain the network protocol, e.g. http://...'); |
|
my $warningLinkNotAllowed2 = &mt('The following link is not allowed:').' '; |
my $warningLink = &mt('You must insert a title and a path!'); |
my $warningLink = &mt('You must insert a title and a path!'); |
my $warningFolder = &mt('You must insert a title!'); |
my $warningFolder = &mt('You must insert a title!'); |
my $warningDelete = &mt('Are you sure you want to delete the selected entries? Deleting a folder also deletes all entries within this folder!'); |
my $warningDelete = &mt('Are you sure you want to delete the selected entries? Deleting a folder also deletes all entries within this folder!'); |
my $warningSave = &mt('You have unsaved changes. You can either save these changes now by clicking "ok" or click "cancel" if you do not want to save your changes.'); |
my $warningSave = &mt('You have unsaved changes. You can either save these changes now by clicking "OK" or click "Cancel" if you do not want to save your changes.'); |
my $warningMoveS = &mt('You must select at minimum one entry to move!'); |
my $warningMoveS = &mt('You must select at minimum one entry to move!'); |
my $warningMoveD = &mt('You must select a destination folder!'); |
my $warningMoveD = &mt('You must select a destination folder!'); |
$foldersOption = ''; |
$foldersOption = ''; |
Line 808 sub JSforWishlist {
|
Line 812 sub JSforWishlist {
|
|
|
function setChecked(row,checked) { |
function setChecked(row,checked) { |
var childCHECK = document.getElementById(row.id.replace('row','check')); |
var childCHECK = document.getElementById(row.id.replace('row','check')); |
childCHECK.checked = checked; |
if (!childCHECK.disabled) { |
|
childCHECK.checked = checked; |
|
} |
} |
} |
|
|
function getPreviousFolderRows(row) { |
function getPreviousFolderRows(row) { |
Line 1008 sub JSforWishlist {
|
Line 1014 sub JSforWishlist {
|
function checkAll() { |
function checkAll() { |
var checkboxes = document.getElementsByName('check'); |
var checkboxes = document.getElementsByName('check'); |
for (var i = 0; i < checkboxes.length; i++) { |
for (var i = 0; i < checkboxes.length; i++) { |
checkboxes[i].checked = "checked"; |
if (!checkboxes[i].disabled) { |
|
checkboxes[i].checked = "checked"; |
|
} |
} |
} |
} |
} |
|
|
function uncheckAll() { |
function uncheckAll() { |
var checkboxes = document.getElementsByName('check'); |
var checkboxes = document.getElementsByName('check'); |
for (var i = 0; i < checkboxes.length; i++) { |
for (var i = 0; i < checkboxes.length; i++) { |
checkboxes[i].checked = ""; |
if (!checkboxes[i].disabled) { |
|
checkboxes[i].checked = ""; |
|
} |
} |
} |
} |
} |
|
|
Line 1270 sub wishlistMove {
|
Line 1280 sub wishlistMove {
|
$wishlistHTMLmove .= '<td><input type="radio" name="mark" id="radio'.$index.'" value="'.$index.'" /></td>'. |
$wishlistHTMLmove .= '<td><input type="radio" name="mark" id="radio'.$index.'" value="'.$index.'" /></td>'. |
'<td id="padd'.$index.'" style="padding-left:'.(($indent-$indentConst)<0?0:($indent-$indentConst)).'px; min-width: 220px;">'; |
'<td id="padd'.$index.'" style="padding-left:'.(($indent-$indentConst)<0?0:($indent-$indentConst)).'px; min-width: 220px;">'; |
} |
} |
# higlight the title, if the folder was selected to be moved |
# highlight the title, if the folder was selected to be moved |
else { |
else { |
$wishlistHTMLmove .= '<td></td>'. |
$wishlistHTMLmove .= '<td></td>'. |
'<td id="padd'.$index.'" style="padding-left:'.(($indent-$indentConst)<0?0:($indent-$indentConst)).'px; min-width: 220px;'. |
'<td id="padd'.$index.'" style="padding-left:'.(($indent-$indentConst)<0?0:($indent-$indentConst)).'px; min-width: 220px;'. |
Line 1334 my $wishlistHTMLimport;
|
Line 1344 my $wishlistHTMLimport;
|
my $indent = $indentConst; |
my $indent = $indentConst; |
my $form = 1; |
my $form = 1; |
sub wishlistImport { |
sub wishlistImport { |
my $nodes = shift; |
my ($nodes,$numskipped) = @_; |
|
|
|
my ($is_community,%nopick); |
|
if ($env{'request.course.id'}) { |
|
if (&Apache::loncommon::course_type() eq 'Community') { |
|
$is_community = 1; |
|
} |
|
} |
|
|
foreach my $n (@$nodes) { |
foreach my $n (@$nodes) { |
my $index = $n->value()->nindex(); |
my $index = $n->value()->nindex(); |
|
if ($n->value()->path() =~ m{^(/res/$match_domain/$match_username/)}) { |
|
if ($is_community) { |
|
unless (&Apache::lonnet::allowed('bro',$n->value()->path())) { |
|
$nopick{$n->value()->path()} = $n->value()->title(); |
|
$$numskipped ++; |
|
} |
|
} else { |
|
unless (&Apache::lonnet::allowed('bre',$n->value()->path())) { |
|
$nopick{$n->value()->path()} = $n->value()->title(); |
|
$$numskipped ++; |
|
} |
|
} |
|
} |
|
|
# start row, use data_table routines to set class to LC_even or LC_odd automatically. this row contains a checkbox, the title and the note-icon. |
# start row, use data_table routines to set class to LC_even or LC_odd automatically. this row contains a checkbox, the title and the note-icon. |
# only display the top level entries on load |
# only display the top level entries on load |
Line 1346 sub wishlistImport {
|
Line 1376 sub wishlistImport {
|
|
|
|
|
# checkboxes |
# checkboxes |
$wishlistHTMLimport .= '<td>'. |
$wishlistHTMLimport .= '<td>'; |
'<input type="checkbox" name="check" id="check'.$index.'" value="'.$index.'" '. |
my ($disabled,$onclick,$image,$style); |
'onclick="selectAction('."'row".$index."'".')" />'. |
if ($nopick{$n->value()->path()}) { |
|
$disabled = ' disabled="disabled"'; |
|
$image = 'wishlist-link-lighter.png'; |
|
$style = 'style="color:#808080;"'; |
|
} else { |
|
$onclick = ' onclick="selectAction('."'row".$index."'".')"'; |
|
$image = 'wishlist-link.png'; |
|
} |
|
$wishlistHTMLimport .= '<input type="checkbox" name="check" id="check'.$index.'" value="'.$index.'" '. |
|
$disabled.$onclick.' />'. |
'<input type="hidden" name="title'.$index.'" value="'.&escape($n->value()->title()).'" />'. |
'<input type="hidden" name="title'.$index.'" value="'.&escape($n->value()->title()).'" />'. |
'<input type="hidden" name="filelink'.$index.'" value="'.&escape($n->value()->path()).'" />'. |
'<input type="hidden" name="filelink'.$index.'" value="'.&escape($n->value()->path()).'" />'. |
'<input type="hidden" name="id'.$index.'" />'. |
'<input type="hidden" name="id'.$index.'" />'; |
'</td>'; |
$wishlistHTMLimport .= '</td>'; |
|
|
# entry is a folder |
# entry is a folder |
if ($n->value()->path() eq '') { |
if ($n->value()->path() eq '') { |
Line 1364 sub wishlistImport {
|
Line 1403 sub wishlistImport {
|
} |
} |
# entry is a link |
# entry is a link |
else { |
else { |
$wishlistHTMLimport .= '<td id="padd'.$index.'" style="padding-left:'.(($indent-$indentConst)<=0?$indentConst:$indent).'px; min-width: 220px;">'. |
$wishlistHTMLimport .= '<td id="padd'.$index.'" style="padding-left:'.(($indent-$indentConst)<=0?$indentConst:$indent).'px; min-width: 220px;">'; |
'<a href="javascript:preview('."'".$n->value()->path()."'".');">'. |
unless ($nopick{$n->value()->path()}) { |
'<img src="/res/adm/pages/wishlist-link.png" id="img'.$index.'" alt="link" />'. |
$wishlistHTMLimport .= '<a href="javascript:preview('."'".$n->value()->path()."'".');">'; |
$n->value()->title().'</a></td>'; |
} |
|
$wishlistHTMLimport .= '<img src="/res/adm/pages/'.$image.'" id="img'.$index.'" alt="link" />'. |
|
'<span '.$style.'>'.$n->value()->title().'</span></a></td>'; |
$form++; |
$form++; |
} |
} |
|
|
Line 1396 sub wishlistImport {
|
Line 1437 sub wishlistImport {
|
my @children = $n->children(); |
my @children = $n->children(); |
if ($#children >=0) { |
if ($#children >=0) { |
$indent += 20; |
$indent += 20; |
&wishlistImport(\@children); |
&wishlistImport(\@children,$numskipped); |
$indent -= 20; |
$indent -= 20; |
} |
} |
} |
} |
|
return; |
} |
} |
|
|
# Returns the HTML-Markup for wishlist |
# Returns the HTML-Markup for wishlist |
Line 1591 sub makePopUpNewLink {
|
Line 1633 sub makePopUpNewLink {
|
'bgcolor' => '#FFFFFF',}); |
'bgcolor' => '#FFFFFF',}); |
|
|
my $warningLink = &mt('You must insert a title!'); |
my $warningLink = &mt('You must insert a title!'); |
my $warningLinkNotAllowed1 = &mt('You can only insert links to LON-CAPA resources from the resource-pool '. |
my $warningLinkNotAllowed1 = |
'or to external websites. Paths to LON-CAPA resources must be of the form /res/dom/usr... . '. |
&mt('You can only insert links to LON-CAPA resources from the resource-pool'. |
'Paths to external websites must contain the network protocol (e.g. http://...).'); |
' or to external websites.'. |
|
' Paths to LON-CAPA resources must be of the form /res/domain/user/...'. |
|
' Paths to external websites must contain the network protocol, e.g. http://...'); |
|
|
my $inPageWishlistlink1 = '<h1>'.&mt('Save to Stored Links').'</h1>'; |
my $inPageWishlistlink1 = '<h1>'.&mt('Save to Stored Links').'</h1>'; |
# If no title is delivered, 'New Link' is called up from the wishlist-interface, so after |
# If no title is delivered, 'New Link' is called up from the wishlist-interface, so after |
Line 1623 sub makePopUpNewLink {
|
Line 1667 sub makePopUpNewLink {
|
'<select name="folders">'. |
'<select name="folders">'. |
$options. |
$options. |
'</select>'. |
'</select>'. |
'<input type="button" value="'.&mt('cancel').'" onclick="javascript:window.close();" />'. |
'<input type="button" value="'.&mt('Cancel').'" onclick="javascript:window.close();" />'. |
'</form>'; |
'</form>'; |
$options = ''; |
$options = ''; |
|
|
Line 1781 sub makePageImport {
|
Line 1825 sub makePageImport {
|
|
|
my $inner = '<h1>'.&mt('Import Resources from Stored Links').'</h1>'; |
my $inner = '<h1>'.&mt('Import Resources from Stored Links').'</h1>'; |
if (!$rat) { |
if (!$rat) { |
$inner .= '<p><span class="LC_info">'.&mt("Please note that you can use the checkboxes corresponding to a folder to ". |
$inner .= |
"easily check all links within this folder. The folder structure itself can't be imported. ". |
'<ul>'. |
"All checked links will be imported into the current folder of your course.").'</span></p>'; |
'<li class="LC_info">'.&mt('Use the checkboxes corresponding to a folder to '. |
|
'easily check all links within the folder.').'</li>'. |
|
'<li class="LC_info">'.&mt('The folder structure itself cannot be imported.').'</li>'. |
|
'<li class="LC_info">'.&mt('All checked links will be imported into the current folder of your course.').'</li>'. |
|
'</ul>'; |
} |
} |
else { |
else { |
$inner .= '<p><span class="LC_info">'.&mt("Please note that you can use the checkboxes corresponding to a folder to ". |
$inner .= |
"easily check all links within this folder. The folder structure itself can't be imported. ") |
'<ul>'. |
.'</span></p>'; |
'<li class="LC_info">'.&mt('Use the checkboxes corresponding to a folder to '. |
|
'easily check all links within this folder.').'</li>'. |
|
'<li class="LC_info">'.&mt('The folder structure itself cannot be imported.').'</li>'. |
|
'</ul>'; |
} |
} |
my %wishlist = &getWishlist(); |
my %wishlist = &getWishlist(); |
|
|
Line 1813 sub makePageImport {
|
Line 1864 sub makePageImport {
|
|
|
|
|
# wishlist-table |
# wishlist-table |
&wishlistImport(\@childrenRt); |
my $numskipped = 0; |
|
&wishlistImport(\@childrenRt,\$numskipped); |
if ($wishlistHTMLimport ne '') { |
if ($wishlistHTMLimport ne '') { |
$inner .= '<table class="LC_data_table LC_tableOfContent">'.$wishlistHTMLimport.'</table>'; |
$inner .= '<table class="LC_data_table LC_tableOfContent">'.$wishlistHTMLimport.'</table>'; |
} |
} |
else { |
else { |
$inner .= '<span class="LC_info">'.&mt("Your Stored Links list is currently empty.").'</span>'; |
$inner .= '<span class="LC_info">'.&mt("Your Stored Links list is currently empty.").'</span>'; |
} |
} |
|
if ($numskipped > 0) { |
|
$inner .= '<p class="LC_info">'.&mt('Note: where a Stored Link is unavailable for import in the current context it is grayed out.').'</p>'; |
|
} |
$wishlistHTMLimport = ''; |
$wishlistHTMLimport = ''; |
|
|
$inner .= '</form>'; |
$inner .= '</form>'; |
Line 1839 sub makeErrorPage {
|
Line 1894 sub makeErrorPage {
|
# breadcrumbs and start_page |
# breadcrumbs and start_page |
&Apache::lonhtmlcommon::add_breadcrumb( |
&Apache::lonhtmlcommon::add_breadcrumb( |
{ href => '/adm/wishlist', |
{ href => '/adm/wishlist', |
text => 'Wishlist'}); |
text => 'Stored Links'}); |
my $startPage = &Apache::loncommon::start_page('Stored Links'); |
my $startPage = &Apache::loncommon::start_page('Stored Links'); |
|
|
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(&mt('Stored Links').&Apache::loncommon::help_open_topic('Wishlist')); |
my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs(&mt('Stored Links').&Apache::loncommon::help_open_topic('Wishlist')); |