Changeset 685
- Timestamp:
- 01/29/15 15:18:58 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/main.cgi
r683 r685 87 87 $webvar{action} = "index"; #shuts up the warnings. 88 88 } 89 90 # collect variations in layout by way of $IPDB::sublistlayout91 $webvar{action} = 'showsubs' if $webvar{action} =~ /^showsubs/;92 89 93 90 my $page; … … 262 259 } else { 263 260 264 # Default3-part layout; containers, end-use allocations, and free blocks261 # 3-part layout; containers, end-use allocations, and free blocks 265 262 266 263 my $contlist = listContainers($ip_dbh, parent => $webvar{parent}); … … 278 275 my $pinfo = getBlockData($ip_dbh, $webvar{parent}); 279 276 280 $page->param(del_id => $webvar{parent}); 277 ##fixme: do we add a wrapper to not show the edit link for master blocks? 278 #$page->param(editme => 1) unless $pinfo->{type} ne 'mm'; 279 280 $page->param(self_id => $webvar{parent}); 281 281 $page->param(block => $pinfo->{block}); 282 282 $page->param(mayadd => ($IPDBacl{$authuser} =~ /a/));
Note:
See TracChangeset
for help on using the changeset viewer.