Changeset 733 for trunk/cgi-bin/main.cgi
- Timestamp:
- 05/25/15 18:25:20 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/main.cgi
r727 r733 1221 1221 $page->param(typelist => getTypeList($ip_dbh, 'n', $binfo->{type})); # down the rabbit hole we go... 1222 1222 1223 # Strings for scope; do this way so we don't have to edit them many places 1224 $page->param(vis_keepall => $merge_display{keepall}); 1225 $page->param(vis_mergepeer => $merge_display{mergepeer}); 1226 $page->param(vis_clearpeer => $merge_display{clearpeer}); 1227 $page->param(vis_clearall => $merge_display{clearall}); 1228 1223 1229 # Tree navigation 1224 1230 my $crumbs = getBreadCrumbs($ip_dbh, $binfo->{parent_id}); … … 1265 1271 $page->param(mergefree => $fb_list); 1266 1272 1267 ##fixme: push this up the stack somewhere so the labels can be fed to the relevant templates when/as needed 1268 # scope 1269 my %merge_friendly = ( 1270 keepall => "Keep mergeable allocations as suballocations of new block", 1271 mergepeer => "Keep suballocations of mergeable allocations", 1272 clearpeer => "Keep only suballocations of $binfo->{block}", 1273 clearall => "Clear all suballocations" 1274 ); 1275 $page->param(vis_scope => $merge_friendly{$webvar{scope}}); 1273 $page->param(vis_scope => $merge_display{$webvar{scope}}); 1276 1274 $page->param(scope => $webvar{scope}); 1277 1275 } # confMerge()
Note:
See TracChangeset
for help on using the changeset viewer.