Changeset 685 for trunk


Ignore:
Timestamp:
01/29/15 15:18:58 (10 years ago)
Author:
Kris Deugau
Message:

/trunk

A little bit of cleanup after shuffling the showsubs options/layout around

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/cgi-bin/main.cgi

    r683 r685  
    8787  $webvar{action} = "index";    #shuts up the warnings.
    8888}
    89 
    90 # collect variations in layout by way of $IPDB::sublistlayout
    91 $webvar{action} = 'showsubs' if $webvar{action} =~ /^showsubs/;
    9289
    9390my $page;
     
    262259  } else {
    263260
    264     # Default 3-part layout;  containers, end-use allocations, and free blocks
     261    # 3-part layout;  containers, end-use allocations, and free blocks
    265262
    266263    my $contlist = listContainers($ip_dbh, parent => $webvar{parent});
     
    278275  my $pinfo = getBlockData($ip_dbh, $webvar{parent});
    279276
    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});
    281281  $page->param(block => $pinfo->{block});
    282282  $page->param(mayadd => ($IPDBacl{$authuser} =~ /a/));
Note: See TracChangeset for help on using the changeset viewer.