[Bio] / FigWebServices / subsys.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/subsys.cgi

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.110, Tue Aug 9 19:04:39 2005 UTC revision 1.111, Wed Aug 10 12:03:36 2005 UTC
# Line 1582  Line 1582 
1582  {  {
1583      my($fig, $subsystem, $cgi, $html) = @_;      my($fig, $subsystem, $cgi, $html) = @_;
1584      my $changed;      my $changed;
1585        my $sub_name = $subsystem->get_name();
1586    
1587      return unless $cgi->param("diagram_action");      return unless $cgi->param("diagram_action");
1588    
# Line 1590  Line 1591 
1591      for my $action (@actions)      for my $action (@actions)
1592      {      {
1593          my $value = $cgi->param($action);          my $value = $cgi->param($action);
         warn "Diagram action $action: $value\n";  
1594          if ($action =~ /^diagram_delete_(\S+)/ and $value eq "on")          if ($action =~ /^diagram_delete_(\S+)/ and $value eq "on")
1595          {          {
1596                warn "Delete diagram $sub_name $1\n";
1597              $subsystem->delete_diagram($1);              $subsystem->delete_diagram($1);
1598              $changed++;              $changed++;
1599          }          }
1600          elsif ($action =~ /^diagram_rename_(\S+)/ and $value ne "")          elsif ($action =~ /^diagram_rename_(\S+)/ and $value ne "")
1601          {          {
1602                warn "Rename diagram $sub_name $1 to $value\n";
1603              $subsystem->rename_diagram($1, $value);              $subsystem->rename_diagram($1, $value);
1604              $changed++;              $changed++;
1605          }          }
1606          elsif ($action =~ /^diagram_new_image_(\S+)/ and $value ne '')          elsif ($action =~ /^diagram_new_image_(\S+)/ and $value ne '')
1607          {          {
1608                my $fh = $cgi->upload($action);
1609                warn "Upload new image $fh $value for diagram $sub_name $1\n";
1610              $subsystem->upload_new_image($1, $cgi->upload($action));              $subsystem->upload_new_image($1, $cgi->upload($action));
1611              $changed++;              $changed++;
1612          }          }
1613          elsif ($action =~ /^diagram_new_html_(\S+)/ and $value ne '')          elsif ($action =~ /^diagram_new_html_(\S+)/ and $value ne '')
1614          {          {
1615                my $fh = $cgi->upload($action);
1616                warn "Upload new html $fh $value for diagram $sub_name $1\n";
1617              $subsystem->upload_new_html($1, $cgi->upload($action));              $subsystem->upload_new_html($1, $cgi->upload($action));
1618              $changed++;              $changed++;
1619          }          }
# Line 1619  Line 1625 
1625    
1626      if ($fh)      if ($fh)
1627      {      {
1628          $subsystem->create_new_diagram($fh, $html_fh, $cgi->param("diagram_new_name"));          my $name = $cgi->param("diagram_new_name");
1629    
1630            warn "Create new diagram $fh $html_fh name=$name\n";
1631            $subsystem->create_new_diagram($fh, $html_fh, $name);
1632          $changed++;          $changed++;
1633      }      }
1634    

Legend:
Removed from v.1.110  
changed lines
  Added in v.1.111

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3