#!/usr/local/bin/perl # edit_export.cgi # Allow editing of one export to a client require './exports-lib.pl'; &ReadParse(); if ($in{'new'}) { &ui_print_header(undef, $text{'create_title'}, "", "create_export"); } else { &ui_print_header(undef, $text{'edit_title'}, "", "edit_export"); @exps = &list_exports(); $exp = $exps[$in{'idx'}]; %opts = %{$exp->{'options'}}; } print "