--- loncom/interface/lonwishlist.pm 2011/02/15 14:54:51 1.10 +++ loncom/interface/lonwishlist.pm 2012/05/14 16:39:41 1.11 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Utility-routines for wishlist # -# $Id: lonwishlist.pm,v 1.10 2011/02/15 14:54:51 wenzelju Exp $ +# $Id: lonwishlist.pm,v 1.11 2012/05/14 16:39:41 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1103,7 +1103,7 @@ sub wishlistView { # checkboxes $wishlistHTMLview .= ''; + 'onclick="selectAction('."'row".$index."'".')" />'; # entry is a folder if ($n->value()->path() eq '') { @@ -1171,7 +1171,7 @@ sub wishlistEdit { # checkboxes $wishlistHTMLedit .= ''; + 'onclick="selectAction('."'row".$index."'".')" />'; # option-tags for sorting entries. we need the numbers from 1 to n with n being the number of entries on the same level as the current entry. # set the number for the current entry into brackets @@ -1194,7 +1194,7 @@ sub wishlistEdit { ''. ''. 'folder'. - ''. + ''. ''; } @@ -1204,8 +1204,8 @@ sub wishlistEdit { $options.''. ''. 'link'. - ''. - ''; + ''. + ''; } # note-icon, different icons for an entries with note and those without @@ -1348,10 +1348,10 @@ sub wishlistImport { # checkboxes $wishlistHTMLimport .= ''. ''. - ''. - ''. - ''. + 'onclick="selectAction('."'row".$index."'".')" />'. + ''. + ''. + ''. ''; # entry is a folder @@ -1497,7 +1497,7 @@ sub makePage { # start form my $inner .= '
'. - ''; + ''; # only display subbox in view- or edit-mode if ($mode eq 'view' || $mode eq 'edit') { @@ -1534,20 +1534,20 @@ sub makePage { } if ($markStr) { $markStr = substr($markStr, 0, length($markStr)-1); - $inner .= ''; + $inner .= ''; $inner .= '

'.&mt('You have selected the red marked entries to be moved to another folder. '. 'Now choose the new destination folder.').'

'; &wishlistMove(\@childrenRt, $marked); $inner .= ''.$wishlistHTMLmove.'


'; - $inner .= ''. - ''; + $inner .= ''. + ''; $wishlistHTMLmove =''. ''.&mt('Top level').''; } else { $inner .= '

'.&mt("You haven't marked any entry to move.").'

'. - ''; + ''; } } @@ -1631,9 +1631,9 @@ sub makePopUpNewLink { my $popUp = $startPageWishlistlink. $inPageWishlistlink1. - ''. + ''. $inPageWishlistlink2. - ''. + ''. $inPageWishlistlink3; # JavaScript-function to set title and path of ressource automatically @@ -1804,12 +1804,12 @@ sub makePageImport { $fnum = (keys %wishlist)-1; } - $inner .= ''. - ''. - ''. - ''. - ''. - '

'; + $inner .= ''. + ''. + ''. + ''. + ''. + '

'; # wishlist-table